svg-icons 2.10.0 → 2.11.0

raw patch · 2 files changed

+72/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• src/SvgIcons/Icons/Office.hs +71/−1
• svg-icons.cabal +1/−1

@@ -16,6 +16,7 @@   , pencil
   , pin
   , printer
+  , boxClosed
   ) where
 
 import           Text.Blaze.Svg11 ((!))
@@ -44,6 +45,7 @@ >  , (,) "pencil"     pencil
 >  , (,) "pin"        pin
 >  , (,) "printer"    printer
+>  , (,) "boxClosed"  boxClosed
 >  ]
 -}
 svgOffice :: [ (String , S.Svg) ]
@@ -60,6 +62,7 @@   , (,) "pencil"     pencil
   , (,) "pin"        pin
   , (,) "printer"    printer
+  , (,) "boxClosed"  boxClosed
   ]
 
 
@@ -711,4 +714,71 @@       q   q2x  q2y  x2  y2
       l   x2   y4
       q   q3x  q3y  x1  y3
-      S.z+      S.z
+
+
+    
+{- |
+![fill style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/office/boxClosed_fill.svg)
+
+![fill and stroke](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/office/boxClosed_full.svg)
+
+![stroke style](https://raw.githubusercontent.com/RamiroPastor/SvgIcons/main/svg/icons/office/boxClosed_strk.svg)
+-}
+boxClosed :: Svg
+boxClosed =
+    S.g $ do
+      S.path
+        ! A.d backSide
+        ! A.strokeLinecap  "round"
+        ! A.strokeLinejoin "round"
+      S.path
+        ! A.d frontSide
+        ! A.strokeLinecap  "round"
+        ! A.strokeLinejoin "round"
+  where
+    lm = 0.7
+    k  = 0.2
+    (ax,ay) = (-lm + k , -lm - k)
+    (bx,by) = ( lm + k , -lm - k)
+    (cx,cy) = ( lm + k ,  lm - k)
+    (dx,dy) = (-lm + k ,  lm - k)
+    (ex,ey) = (-lm - k , -lm + k)
+    (fx,fy) = ( lm - k , -lm + k)
+    (gx,gy) = ( lm - k ,  lm + k)
+    (hx,hy) = (-lm - k ,  lm + k)
+    backSide = mkPath $ do
+      m   ax  ay
+      l   bx  by
+      l   cx  cy
+      l   dx  dy
+      S.z
+      m   ax  ay
+      l   dx  dy
+      l   hx  hy
+      l   ex  ey
+      S.z
+      m   dx  dy
+      l   cx  cy
+      l   gx  gy
+      l   hx  hy
+      S.z
+    frontSide = mkPath $ do
+      m   ex  ey
+      l   fx  fy
+      l   gx  gy
+      l   hx  hy
+      S.z
+      m   bx  by
+      l   cx  cy
+      l   gx  gy
+      l   fx  fy
+      S.z
+      m   ax  ay
+      l   bx  by
+      l   fx  fy
+      l   ex  ey
+      S.z
+      m  ((ax+bx)/2) ((ay+by)/2)
+      l  ((ex+fx)/2) ((ey+fy)/2)
+    

@@ -1,6 +1,6 @@ cabal-version:      2.4
 name:               svg-icons
-version:            2.10.0
+version:            2.11.0
 homepage:           https://github.com/RamiroPastor/SvgIcons
 license:            BSD-3-Clause
 license-file:       LICENSE