svg-icons-3.0.0: src/SvgIcons/Icons/Computer.hs
{-# LANGUAGE OverloadedStrings #-}
module SvgIcons.Icons.Computer
( svgComputer
, ring
, accept
, cancel
, plus
, maximize
, minimize
, menuDots
, menuLines
, powerButton
, warning
, diskette
, save
, dustBin
) where
import Text.Blaze.Svg11 ((!))
import Text.Blaze.Svg11 as S
import Text.Blaze.Svg11.Attributes as A
import SvgIcons.Core.Utils
{- |
A list with all the icons of this module,
together with appropriate names.
>svgComputer :: [ (String , S.Svg) ]
>svgComputer =
> [ (,) "ring" ring
> , (,) "accept" accept
> , (,) "cancel" cancel
> , (,) "plus" plus
> , (,) "maximize" maximize
> , (,) "minimize" minimize
> , (,) "menuDots" menuDots
> , (,) "menuLines" menuLines
> , (,) "powerButton" powerButton
> , (,) "warning" warning
> , (,) "diskette" diskette
> , (,) "save" save
> , (,) "dustBin" dustBin
> ]
-}
svgComputer :: [ (String , S.Svg) ]
svgComputer =
[ (,) "ring" ring
, (,) "accept" accept
, (,) "cancel" cancel
, (,) "plus" plus
, (,) "maximize" maximize
, (,) "minimize" minimize
, (,) "menuDots" menuDots
, (,) "menuLines" menuLines
, (,) "powerButton" powerButton
, (,) "warning" warning
, (,) "diskette" diskette
, (,) "save" save
, (,) "dustBin" dustBin
]
--------------------------------------------------------------------------------
{- |
-}
ring :: Svg
ring =
S.g
! A.class_ "HaskellSvgIcons__ring"
$ do
S.path
! A.d dirs
where
r1 = 0.75
r2 = 0.95
dirs = mkPath $ do
m r1 0
aa r1 r1 0 True False r1 0.0001
S.z
m r2 0
aa r2 r2 0 True True r2 (-0.0001)
S.z
{- |
-}
accept :: Svg
accept =
S.g
! A.class_ "HaskellSvgIcons__accept"
$ do
S.path
! A.strokeLinejoin "round"
! d dirs
! A.transform (translate (-0.3) 0.3 <> rotateAround 45 0 0)
where
k1 = 0.1
k2 = 0.5
k3 = 1.3
dirs = mkPath $ do
m (-k1) (-k1)
l (-k2) (-k1)
aa k1 k1 0 True False (-k2) ( k1)
l ( k1) ( k1)
l ( k1) (-k3)
aa k1 k1 0 True False (-k1) (-k3)
S.z
{- |
-}
plus :: Svg
plus =
S.path
! A.class_ "HaskellSvgIcons__plus"
! A.d dirs
where
k1 = 0.1
k2 = 0.8
dirs = mkPath $ do
m ( k1) (-k1)
l ( k1) (-k2)
aa k1 k1 0 True False (-k1) (-k2)
l (-k1) (-k1)
l (-k2) (-k1)
aa k1 k1 0 True False (-k2) ( k1)
l (-k1) ( k1)
l (-k1) ( k2)
aa k1 k1 0 True False ( k1) ( k2)
l ( k1) ( k1)
l ( k2) ( k1)
aa k1 k1 0 True False ( k2) (-k1)
S.z
{- |
-}
cancel :: Svg
cancel =
S.g
! A.class_ "HaskellSvgIcons__cancel"
$ plus ! A.transform (rotateAround 45 0 0)
{- |
-}
warning :: Svg
warning =
S.g
! A.class_ "HaskellSvgIcons__warning"
$
S.g
! A.transform (translate 0 0.2)
$ do
S.path
! d triangleDirs
! strokeLinejoin "round"
! fillRule "evenodd"
S.path
! d stickPath
S.circle
! (cx .: 0)
! (cy .: 0.15)
! (r .: w)
where
w = 0.1
ap1 = 0.42
ap2 = ap1 + w
lm1 = (sqrt 3) * ap1
lm2 = (sqrt 3) * ap2
y1 = -0.3
y2 = -0.05
triangleDirs = mkPath $ do
m 0 (-2*ap2)
l (-lm2) ( ap2)
l ( lm2) ( ap2)
S.z
m 0 (-2*ap1)
l (-lm1) ( ap1)
l ( lm1) ( ap1)
S.z
stickPath = mkPath $ do
m (-w) y1
l (-w/2) y2
aa ( w/2) (w/2) 0 True False (w/2) y2
l ( w) y1
aa w w 0 True False (-w) y1
S.z
{- |
-}
minimize :: Svg
minimize =
S.path
! A.class_ "HaskellSvgIcons__minimize"
! A.d dirs
where
w = 0.1
k = 0.7
dirs = mkPath $ do
m (-k) (-w)
aa ( w) ( w) 0 True False (-k) ( w)
l ( k) ( w)
aa ( w) ( w) 0 True False ( k) (-w)
S.z
{- |
-}
maximize :: Svg
maximize =
S.g
! A.class_ "HaskellSvgIcons__maximize"
$ do
S.path
! A.d dirs1
! A.transform (translate (k - 0.15) (0.15 - k))
! A.stroke "none"
! A.opacity "0.5"
S.path
! A.d dirs2
! A.transform (translate ( - 0.15) 0.15)
! A.fill "none"
S.path
! A.d dirs1
! A.transform (translate (-0.1 ) 0.1)
where
w = 1.4
k = 0.25
dirs1 = mkPath $ do
m (-0.5 * w) (-0.5 * w)
l ( 0.5 * w) (-0.5 * w)
l ( 0.5 * w) ( 0.5 * w)
l (-0.5 * w) ( 0.5 * w)
S.z
dirs2 = mkPath $ do
m (-0.5*w + k) (-0.5*w - k)
l ( 0.5*w + k) (-0.5*w - k)
l ( 0.5*w + k) ( 0.5*w - k)
{- |
-}
menuDots :: Svg
menuDots =
S.g
! A.class_ "HaskellSvgIcons__menuDots"
$ do
dot (-0.7)
dot ( 0 )
dot ( 0.7)
where
dot y =
circle
! (A.cy .: y)
! A.cx "0"
! A.r "0.2"
{- |
-}
menuLines :: Svg
menuLines =
S.g
! A.class_ "HaskellSvgIcons__menuLines"
$ do
S.path ! A.d (line (-0.5))
S.path ! A.d (line ( 0 ))
S.path ! A.d (line ( 0.5))
where
kx = 0.7
r = 0.12
line y = mkPath $ do
m (-kx) (y - r)
aa r r 0 True False (-kx) (y + r)
l ( kx) (y + r)
aa r r 0 True False ( kx) (y - r)
S.z
{- |
-}
powerButton :: S.Svg
powerButton =
S.g
! A.class_ "HaskellSvgIcons__powerButton"
$ do
S.path
! d innerCircle
! A.transform (translate 0 0.1)
S.path
! d littleStickPath
! A.transform (translate 0 (-0.42))
where
w = 0.08
r1 = 0.7
r2 = r1 + 2*w
α = pi / 8
y1 = 0.4
innerCircle =
mkPath $ do
m (r1 * sin α) (-r1 * cos α)
aa w w 0 True True ( r2 * sin α) (-r2 * cos α)
aa r2 r2 0 True True (-r2 * sin α) (-r2 * cos α)
aa w w 0 True True (-r1 * sin α) (-r1 * cos α)
aa r1 r1 0 True False ( r1 * sin α) (-r1 * cos α)
S.z
littleStickPath =
mkPath $ do
m w (-y1)
aa w w 0 True False (-w) (-y1)
l (-w) ( y1)
aa w w 0 True False ( w) ( y1)
S.z
{- |
-}
diskette :: Svg
diskette =
S.path
! A.class_ "HaskellSvgIcons__diskette"
! A.d shell
! A.fillRule "evenodd"
where
k0 = 0.9
r0 = 0.06
r1 = 3*r0
(px,py) = (0 ,-0.55)
(pw,ph) = (0.5 , 0.29)
(qx,qy) = (0 , 0.35)
(qw,qh) = (0.65 , 0.45)
(tx,ty) = (0.2 ,-0.54)
(tw,th) = (0.1 , 0.23)
rq = 0.05
shell = mkPath $ do
m 0 (-k0 )
l (-k0 + r0) (-k0 )
aa r0 r0 0 False False (-k0 ) (-k0 + r0)
l (-k0 ) ( k0 - r0)
aa r0 r0 0 False False (-k0 + r0) ( k0 )
l ( k0 - r0) ( k0 )
aa r0 r0 0 False False ( k0 ) ( k0 - r0)
l ( k0 ) (-k0 + r1)
l ( k0 - r1) (-k0 )
S.z
rectangleWithRoundCorners rq (qw,qh) (qx,qy)
rectangleWithRoundCorners rq (pw,ph) (px,py)
rectangleWithRoundCorners 0.01 (tw,th) (tx,ty)
{- |
-}
save :: Svg
save =
S.g
! A.class_ "HaskellSvgIcons__save"
$ do
diskette
accept
! A.transform (translate 0 0.4 <> S.scale 0.5 0.5)
{- |
-}
dustBin :: Svg
dustBin =
S.g
! A.class_ "HaskellSvgIcons__dustBin"
$ do
S.path
! A.d binDirs
! A.strokeLinecap "round"
! A.strokeLinejoin "round"
S.path
! A.d handleDirs
! A.strokeLinejoin "round"
! A.fill "none"
S.path
! A.d linesDirs
! A.strokeLinecap "round"
where
x0 = x1 - 0.15
x8 = x7 + 0.15
x1 = (y0 - y4) * 0.5 * 0.618
x7 = -x1
x2 = x1 + 1 * (x7 - x1) / 4
x4 = x1 + 2 * (x7 - x1) / 4
x6 = x1 + 3 * (x7 - x1) / 4
x3 = x4 - (x7 - x1) / 8
x5 = x4 + (x7 - x1) / 8
y0 = -0.9
y1 = -0.7
y2 = -0.5
y3 = 0.6
y4 = 0.85
binDirs = mkPath $ do
m x0 y1
l x1 y1
l x1 y4
l x7 y4
l x7 y1
l x8 y1
S.z
handleDirs = mkPath $ do
m x3 y1
l x3 y0
l x5 y0
l x5 y1
linesDirs = mkPath $ do
m x2 y2
l x2 y3
m x4 y2
l x4 y3
m x6 y2
l x6 y3