{-# LANGUAGE OverloadedStrings #-}
module SvgIcons.Icons.Business
( svgBusiness
, analytics
, bullseye
, company
, connections
, creditCard
, creditIn
, creditOut
, coinColumn
, coinPile
, dividends
) where
import Text.Blaze.Svg11 ((!))
import Text.Blaze.Svg11 as S
import Text.Blaze.Svg11.Attributes as A
import SvgIcons.Core.Utils
import SvgIcons.Icons.Arrows (bigArrowLeft, bigArrowRight)
svgBusiness :: [ (String , S.Svg) ]
svgBusiness :: [(String, Svg)]
svgBusiness =
[ (,) String
"analytics" Svg
analytics
, (,) String
"bullseye" Svg
bullseye
, (,) String
"company" Svg
company
, (,) String
"connections" Svg
connections
, (,) String
"creditCard" Svg
creditCard
, (,) String
"creditIn" Svg
creditIn
, (,) String
"creditOut" Svg
creditOut
, (,) String
"coinPile" Svg
coinPile
, (,) String
"dividends" (String -> Svg
dividends String
"$")
]
company :: S.Svg
company :: Svg
company =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__company"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
d AttributeValue
leftBuildingPath
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
d AttributeValue
leftWindowsPath
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
strokeDasharray AttributeValue
"0.12 0.06"
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
d AttributeValue
rightBuildingPath
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
d AttributeValue
rightWindowsPath
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
strokeDasharray AttributeValue
"0.05"
where
x1 :: Double
x1 = -Double
0.92
x2 :: Double
x2 = -Double
0.72
x3 :: Double
x3 = Double
0
x4 :: Double
x4 = Double
0.22
x5 :: Double
x5 = Double
0.92
y1 :: Double
y1 = -Double
0.9
y2 :: Double
y2 = -Double
0.75
y3 :: Double
y3 = (Double
y1 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
y4) Double -> Double -> Double
forall a. Fractional a => a -> a -> a
/ Double
2
y4 :: Double
y4 = -Double
0.3
y5 :: Double
y5 = -Double
0.2
y6 :: Double
y6 = Double
0.8
y7 :: Double
y7 = Double
0.9
k1 :: Double
k1 = (Double
x3 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
x2) Double -> Double -> Double
forall a. Fractional a => a -> a -> a
/ Double
3
k2 :: Double
k2 = (Double
x5 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
x4) Double -> Double -> Double
forall a. Fractional a => a -> a -> a
/ Double
4
doorH :: Double
doorH = Double
0.24
leftBuildingPath :: AttributeValue
leftBuildingPath =
Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
x1 Double
y7
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x1 Double
y2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x2 Double
y2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x2 Double
y1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x3 Double
y1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x3 Double
y2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x4 Double
y2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x4 Double
y7
Path
doorPath
Path
S.z
rightBuildingPath :: AttributeValue
rightBuildingPath =
Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
x4 Double
y4
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x5 Double
y4
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x5 Double
y7
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x4 Double
y7
Path
S.z
doorPath :: Path
doorPath =
do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y7
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) (Double
y7 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
doorH)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
k1) (Double
y7 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
doorH)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
k1) Double
y7
leftWindowsPath :: AttributeValue
leftWindowsPath =
Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
0Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
0Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y6
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
1Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
1Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) (Double
y7 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
1.5 Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
doorH)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) (Double
y7 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
1.5 Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
doorH)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
3Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x2 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
3Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k1) Double
y6
rightWindowsPath :: AttributeValue
rightWindowsPath =
Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
1Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y5
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
1Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y6
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y5
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
2Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y6
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
3Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y5
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
x4 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
3Double -> Double -> Double
forall a. Num a => a -> a -> a
*Double
k2) Double
y6
connections :: Svg
connections :: Svg
connections =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__connections"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Float -> Float -> Float -> Svg
circ Float
x0 Float
y0 Float
r0
Float -> Float -> Float -> Svg
circ Float
x1 Float
y1 Float
r1
Float -> Float -> Float -> Svg
circ Float
x2 Float
y2 Float
r2
Float -> Float -> Float -> Svg
circ Float
x3 Float
y3 Float
r3
Float -> Float -> Float -> Svg
circ Float
x4 Float
y4 Float
r4
Float -> Float -> Float -> Svg
circ Float
x5 Float
y5 Float
r5
Float -> Float -> Float -> Svg
circ Float
x6 Float
y6 Float
r6
Float -> Float -> Float -> Svg
circ Float
x7 Float
y7 Float
r7
Float -> Float -> Float -> Svg
circ Float
x8 Float
y8 Float
r8
Float -> Float -> Float -> Svg
circ Float
x9 Float
y9 Float
r9
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
d (Path -> AttributeValue
mkPath Path
connectingLines)
where
rad1 :: Float
rad1 = Float
0.2
rad2 :: Float
rad2 = Float
0.12
(Float
x0,Float
y0,Float
r0) = (,,) ( Float
0 ) ( Float
0 ) Float
0.3
(Float
x1,Float
y1,Float
r1) = (,,) (-Float
0.64) ( Float
0 ) Float
rad1
(Float
x2,Float
y2,Float
r2) = (,,) ( Float
0.56) (-Float
0.4 ) Float
rad1
(Float
x3,Float
y3,Float
r3) = (,,) ( Float
0.56) ( Float
0.4 ) Float
rad1
(Float
x4,Float
y4,Float
r4) = (,,) (-Float
0.64) (-Float
0.6 ) Float
rad2
(Float
x5,Float
y5,Float
r5) = (,,) (-Float
0.82) ( Float
0.4 ) Float
rad2
(Float
x6,Float
y6,Float
r6) = (,,) (-Float
0.4 ) ( Float
0.7 ) Float
rad2
(Float
x7,Float
y7,Float
r7) = (,,) ( Float
0.1 ) (-Float
0.74) Float
rad2
(Float
x8,Float
y8,Float
r8) = (,,) ( Float
0.80) (-Float
0.8 ) Float
rad2
(Float
x9,Float
y9,Float
r9) = (,,) ( Float
0.56) ( Float
0.8 ) Float
rad2
circ :: Float -> Float -> Float -> Svg
circ Float
c1 Float
c2 Float
radius =
Svg
circle
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
cx (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
c1)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
cy (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
c2)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
r (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
radius)
connect :: (Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
p1,Float
p2,Float
radius1) (Float
q1,Float
q2,Float
radius2) =
let
d :: Float
d = (Float, Float) -> (Float, Float) -> Float
distance (Float
p1,Float
p2) (Float
q1,Float
q2)
k1 :: Float
k1 = Float
radius1 Float -> Float -> Float
forall a. Fractional a => a -> a -> a
/ Float
d
k2 :: Float
k2 = Float
radius2 Float -> Float -> Float
forall a. Fractional a => a -> a -> a
/ Float
d
in do
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
k2Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
q1 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k2Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
q1) (Float
k2Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
q2 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k2Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
q2)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
l (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k1Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k1Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
q1) (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k1Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k1Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
q2)
connectingLines :: Path
connectingLines = do
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x0,Float
y0,Float
r0) (Float
x1,Float
y1,Float
r1)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x0,Float
y0,Float
r0) (Float
x2,Float
y2,Float
r2)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x0,Float
y0,Float
r0) (Float
x3,Float
y3,Float
r3)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x1,Float
y1,Float
r1) (Float
x4,Float
y4,Float
r4)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x1,Float
y1,Float
r1) (Float
x5,Float
y5,Float
r5)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x1,Float
y1,Float
r1) (Float
x6,Float
y6,Float
r6)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x2,Float
y2,Float
r2) (Float
x7,Float
y7,Float
r7)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x2,Float
y2,Float
r2) (Float
x8,Float
y8,Float
r8)
(Float, Float, Float) -> (Float, Float, Float) -> Path
connect (Float
x3,Float
y3,Float
r3) (Float
x9,Float
y9,Float
r9)
analytics :: Svg
analytics :: Svg
analytics =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__analytics"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
axesPath
Svg
S.path Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d (Double -> Double -> AttributeValue
bar Double
x1 Double
y1)
Svg
S.path Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d (Double -> Double -> AttributeValue
bar Double
x2 Double
y2)
Svg
S.path Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d (Double -> Double -> AttributeValue
bar Double
x3 Double
y3)
where
ax :: Double
ax = Double
0.96
ay :: Double
ay = Double
0.96
w :: Double
w = Double
0.14
x1 :: Double
x1 = -Double
0.5
x2 :: Double
x2 = Double
0
x3 :: Double
x3 = Double
0.5
y1 :: Double
y1 = -Double
0.1
y2 :: Double
y2 = -Double
0.4
y3 :: Double
y3 = -Double
0.7
axesPath :: AttributeValue
axesPath = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (-Double
ax) (-Double
ay)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (-Double
ax) ( Double
ay)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l ( Double
ax) ( Double
ay)
bar :: Double -> Double -> AttributeValue
bar Double
px Double
py = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (Double
px Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
w) Double
ay
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
px Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
w) Double
py
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
px Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
w) Double
py
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
px Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
w) Double
ay
Path
S.z
bullseye :: Svg
bullseye :: Svg
bullseye =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__bullseye"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.strokeLinecap AttributeValue
"round"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
circles
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
strokeLinecap AttributeValue
"round"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d (Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ Path
stick Path -> Path -> Path
forall a b.
StateT AttributeValue Identity a
-> StateT AttributeValue Identity b
-> StateT AttributeValue Identity b
forall (m :: * -> *) a b. Monad m => m a -> m b -> m b
>> Path
feathers)
where
distanceToCenter :: Float -> Float -> Float
distanceToCenter Float
x Float
y = (Float, Float) -> (Float, Float) -> Float
distance (Float
x,Float
y) (Float
0,Float
0)
(Float
p1,Float
k1) = (,) (-Float
0.6 ) Float
0.1
(Float
p2,Float
k2) = (,) (-Float
0.44) Float
0.07
(Float
p3,Float
k3) = (,) (-Float
0.28) Float
0.07
(Float
p4,Float
k4) = (,) (-Float
0.12) Float
0.05
d1 :: Float
d1 = Float -> Float -> Float
distanceToCenter (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k1) (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k1)
d2 :: Float
d2 = Float -> Float -> Float
distanceToCenter (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k2) (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k2)
d3 :: Float
d3 = Float -> Float -> Float
distanceToCenter (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k3) (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k3)
d4 :: Float
d4 = Float -> Float -> Float
distanceToCenter (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k4) (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k4)
circles :: AttributeValue
circles = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k1) (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k1)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
d1 Float
d1 Float
0 Bool
True Bool
True (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k1) (Float
p1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k1)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k2) (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k2)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
d2 Float
d2 Float
0 Bool
True Bool
True (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k2) (Float
p2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k2)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k3) (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k3)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
d3 Float
d3 Float
0 Bool
True Bool
True (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k3) (Float
p3 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k3)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k4) (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k4)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
d4 Float
d4 Float
0 Bool
True Bool
True (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
k4) (Float
p4 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
k4)
fl :: Double
fl = Double
0.2
q1 :: Double
q1 = -Double
0.76
q2 :: Double
q2 = -Double
0.68
q3 :: Double
q3 = -Double
0.6
stick :: Path
stick = do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q1 Double
q1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (-Double
0.01) (-Double
0.01)
feathers :: Path
feathers = do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q1 Double
q1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
q1 (Double
q1 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q1 Double
q1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
q1 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl) Double
q1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q2 Double
q2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
q2 (Double
q2 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q2 Double
q2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
q2 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl) Double
q2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q3 Double
q3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
q3 (Double
q3 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
q3 Double
q3
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (Double
q3 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
fl) Double
q3
creditCard :: Svg
creditCard :: Svg
creditCard =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__creditCard"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
cardPath
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
cardBand
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.strokeLinejoin AttributeValue
"round"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
chip
where
x0 :: Double
x0 = Double
0.93
y0 :: Double
y0 = Double
x0 Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
0.618
r0 :: Double
r0 = Double
0.1
y1 :: Double
y1 = -Double
0.4
y2 :: Double
y2 = -Double
0.15
cw :: Double
cw = Double
1.618 Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
ch
ch :: Double
ch = Double
0.3
cx :: Double
cx = -Double
0.7
cy :: Double
cy = Double
0.5 Double -> Double -> Double
forall a. Num a => a -> a -> a
* (Double
y0 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
y2) Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
0.5 Double -> Double -> Double
forall a. Num a => a -> a -> a
* Double
ch
cardPath :: AttributeValue
cardPath = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
0 Double
y0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l ( Double
x0 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
r0) Double
y0
Double
-> Double -> Double -> Bool -> Bool -> Double -> Double -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Double
r0 Double
r0 Double
0 Bool
False Bool
False Double
x0 ( Double
y0 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
r0)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l Double
x0 (-Double
y0 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
r0)
Double
-> Double -> Double -> Bool -> Bool -> Double -> Double -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Double
r0 Double
r0 Double
0 Bool
False Bool
False ( Double
x0 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
r0) (-Double
y0)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (-Double
x0 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
r0) (-Double
y0)
Double
-> Double -> Double -> Bool -> Bool -> Double -> Double -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Double
r0 Double
r0 Double
0 Bool
False Bool
False (-Double
x0) (-Double
y0 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
r0)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (-Double
x0) ( Double
y0 Double -> Double -> Double
forall a. Num a => a -> a -> a
- Double
r0)
Double
-> Double -> Double -> Bool -> Bool -> Double -> Double -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Double
r0 Double
r0 Double
0 Bool
False Bool
False (-Double
x0 Double -> Double -> Double
forall a. Num a => a -> a -> a
+ Double
r0) Double
y0
Path
S.z
cardBand :: AttributeValue
cardBand = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m (-Double
x0) Double
y1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l ( Double
x0) Double
y1
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l ( Double
x0) Double
y2
Double -> Double -> Path
forall a. Show a => a -> a -> Path
l (-Double
x0) Double
y2
Path
S.z
chip :: AttributeValue
chip = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Double -> Double -> Path
forall a. Show a => a -> a -> Path
m Double
cx Double
cy
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr Double
cw Double
0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr Double
0 Double
ch
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr (-Double
cw) Double
0
Path
S.z
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr ( Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) Double
0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr Double
0 Double
ch
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr Double
0 (-Double
chDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr (-Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) Double
0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr Double
0 (-Double
chDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr ( Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) Double
0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr ( Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) (-Double
chDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr Double
0 Double
ch
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr Double
0 (-Double
chDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr ( Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) Double
0
Double -> Double -> Path
forall a. Show a => a -> a -> Path
mr Double
0 (-Double
chDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3)
Double -> Double -> Path
forall a. Show a => a -> a -> Path
lr (-Double
cwDouble -> Double -> Double
forall a. Fractional a => a -> a -> a
/Double
3) Double
0
creditIn :: Svg
creditIn :: Svg
creditIn =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__creditIn"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
creditCard
Svg
bigArrowLeft
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.transform (Double -> Double -> AttributeValue
forall a. Show a => a -> a -> AttributeValue
translate Double
0.45 Double
0.22 AttributeValue -> AttributeValue -> AttributeValue
forall a. Semigroup a => a -> a -> a
<> Double -> Double -> AttributeValue
forall a. Show a => a -> a -> AttributeValue
S.scale Double
0.25 Double
0.25)
creditOut :: Svg
creditOut :: Svg
creditOut =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__creditOut"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
creditCard
Svg
bigArrowRight
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.transform (Double -> Double -> AttributeValue
forall a. Show a => a -> a -> AttributeValue
translate Double
0.45 Double
0.22 AttributeValue -> AttributeValue -> AttributeValue
forall a. Semigroup a => a -> a -> a
<> Double -> Double -> AttributeValue
forall a. Show a => a -> a -> AttributeValue
S.scale Double
0.25 Double
0.25)
coinColumn
:: Int
-> Float
-> Float
-> Svg
coinColumn :: Int -> Float -> Float -> Svg
coinColumn Int
n0 Float
x0 Float
y0 =
Svg -> Svg
S.g (Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d (Float -> Float -> Float -> AttributeValue
coinColumnDirs Float
n Float
x0 Float
y0)
Svg
S.ellipse
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.cx (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
x0)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.cy (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- (Float
nFloat -> Float -> Float
forall a. Num a => a -> a -> a
+Float
1)Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
ch)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.rx (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
cw)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.ry (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
ry)
where
n :: Float
n = Int -> Float
forall a b. (Integral a, Num b) => a -> b
fromIntegral Int
n0
cw :: Float
cw = Float
0.3
ch :: Float
ch = Float
0.15
ry :: Float
ry = Float
0.18
coin :: Float -> Float -> Path
coin Float
x0 Float
y0 = do
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
cw) (Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
ch)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
l (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
cw) Float
y0
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
cw Float
ry Float
0 Bool
False Bool
False (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
cw) Float
y0
Float -> Float -> Path
forall a. Show a => a -> a -> Path
l (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
cw) (Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
ch)
coinColumnDirs :: Float -> Float -> Float -> AttributeValue
coinColumnDirs Float
n Float
x0 Float
y0 = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
(Float -> Path) -> [Float] -> Path
forall (t :: * -> *) (m :: * -> *) a b.
(Foldable t, Monad m) =>
(a -> m b) -> t a -> m ()
mapM_ (Float -> Float -> Path
coin Float
x0) ([Float] -> Path) -> [Float] -> Path
forall a b. (a -> b) -> a -> b
$ (Float -> Float) -> [Float] -> [Float]
forall a b. (a -> b) -> [a] -> [b]
map (\Float
k -> Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
kFloat -> Float -> Float
forall a. Num a => a -> a -> a
*Float
ch) [Float
0..Float
n]
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
cw Float
ry Float
0 Bool
False Bool
True (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- Float
cw) (Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- (Float
nFloat -> Float -> Float
forall a. Num a => a -> a -> a
+Float
1) Float -> Float -> Float
forall a. Num a => a -> a -> a
* Float
ch)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
cw Float
ry Float
0 Bool
False Bool
True (Float
x0 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
cw) (Float
y0 Float -> Float -> Float
forall a. Num a => a -> a -> a
- (Float
nFloat -> Float -> Float
forall a. Num a => a -> a -> a
+Float
1) Float -> Float -> Float
forall a. Num a => a -> a -> a
* Float
ch)
coinPile :: Svg
coinPile :: Svg
coinPile =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__coinPile"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
(Int -> Float -> Float -> Svg
coinColumn Int
7 Float
0 Float
0.5 )
(Int -> Float -> Float -> Svg
coinColumn Int
5 (-Float
0.6) Float
0.55)
(Int -> Float -> Float -> Svg
coinColumn Int
3 ( Float
0.6) Float
0.55)
(Int -> Float -> Float -> Svg
coinColumn Int
1 (-Float
0.3) Float
0.75)
(Int -> Float -> Float -> Svg
coinColumn Int
5 ( Float
0.3) Float
0.75)
dividends :: String -> Svg
dividends :: String -> Svg
dividends String
moneySymbol =
Svg -> Svg
S.g
(Svg -> Svg) -> Attribute -> Svg -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.class_ AttributeValue
"HaskellSvgIcons__dividends"
(Svg -> Svg) -> Svg -> Svg
forall a b. (a -> b) -> a -> b
$ do
Svg
S.path
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.d AttributeValue
cakePath
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fill AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.strokeLinejoin AttributeValue
"round"
Svg -> Svg
S.text_ Svg
"%"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.x (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
k2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
0.5Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
r1)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.y (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
k2 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
0.5Float -> Float -> Float
forall a. Num a => a -> a -> a
*Float
r1)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.stroke AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.dominantBaseline AttributeValue
"middle"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.textAnchor AttributeValue
"middle"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fontFamily AttributeValue
"Arial Black"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fontSize AttributeValue
"0.35"
Svg -> Svg
S.text_ (String -> Svg
forall a. ToMarkup a => a -> Svg
S.toSvg String
moneySymbol)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.x (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
sx)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! (AttributeValue -> Attribute
A.y (AttributeValue -> Attribute) -> Float -> Attribute
.: Float
sy)
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.stroke AttributeValue
"none"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.dominantBaseline AttributeValue
"middle"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.textAnchor AttributeValue
"middle"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fontFamily AttributeValue
"Arial Black"
Svg -> Attribute -> Svg
forall h. Attributable h => h -> Attribute -> h
! AttributeValue -> Attribute
A.fontSize AttributeValue
"0.75"
where
r1 :: Float
r1 = Float
0.78
k1 :: Float
k1 = Float
0.12
k2 :: Float
k2 = Float
0.06
(Float
sx, Float
sy) = (-Float
0.5 , -Float
0.1)
cakePath :: AttributeValue
cakePath = Path -> AttributeValue
mkPath (Path -> AttributeValue) -> Path -> AttributeValue
forall a b. (a -> b) -> a -> b
$ do
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m (-Float
k1) (-Float
k1)
Float -> Float -> Path
forall a. Show a => a -> a -> Path
l (-Float
k1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
r1) (-Float
k1)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
r1 Float
r1 Float
0 Bool
True Bool
False (-Float
k1) (-Float
k1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
r1)
Path
S.z
Float -> Float -> Path
forall a. Show a => a -> a -> Path
m Float
k1 Float
k1
Float -> Float -> Path
forall a. Show a => a -> a -> Path
l ( Float
k1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
r1) ( Float
k1)
Float -> Float -> Float -> Bool -> Bool -> Float -> Float -> Path
forall a. Show a => a -> a -> a -> Bool -> Bool -> a -> a -> Path
aa Float
r1 Float
r1 Float
0 Bool
False Bool
True ( Float
k1) ( Float
k1 Float -> Float -> Float
forall a. Num a => a -> a -> a
+ Float
r1)
Path
S.z