Merge pull request #17 from stefan-hoeck/dashes

[ new ] stroke-dasharray and -dashoffset attributes
stefan-hoeck · Jul 3, 2024 · dc4784f · dc4784f
2 parents fbc6c75 + 67b9829
commit dc4784f
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/src/Text/SVG/Attribute.idr b/src/Text/SVG/Attribute.idr
@@ -203,6 +203,14 @@ parameters {0 s : String}
   strokeWidth : (0 p : HasStroke s) => LengthOrPercentage -> SVGAttribute s
   strokeWidth = Style "stroke-width" . interpolate
 
+  export
+  strokeDasharray : (0 p : HasStroke s) => List Double -> SVGAttribute s
+  strokeDasharray = Style "stroke-dasharray" . unwords . map renderDouble
+
+  export
+  strokeDashoffset : (0 p : HasStroke s) => Double -> SVGAttribute s
+  strokeDashoffset = Style "stroke-dashoffset" . renderDouble
+
   export
   points : (0 p : HasPoints s) => List Double -> SVGAttribute s
   points = Points "points"