implement setLineDash support (#56)

purescript-web · Jan 20, 2018 · 221abb9 · 221abb9
1 parent 3a5890c
commit 221abb9
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 0 deletions.
diff --git a/src/Graphics/Canvas.js b/src/Graphics/Canvas.js
@@ -81,6 +81,14 @@ exports.setLineWidth = function(ctx) {
     };
 };
 
+exports.setLineDash = function(ctx) {
+    return function(dash) {
+        return function() {
+            ctx.setLineDash(dash);
+        };
+    };
+};
+
 exports.setFillStyle = function(ctx) {
     return function(style) {
         return function() {

diff --git a/src/Graphics/Canvas.purs b/src/Graphics/Canvas.purs
@@ -37,6 +37,7 @@ module Graphics.Canvas
   , canvasToDataURL
 
   , setLineWidth
+  , setLineDash
   , setFillStyle
   , setStrokeStyle
   , setShadowBlur
@@ -203,6 +204,9 @@ foreign import canvasToDataURL :: forall eff. CanvasElement -> Eff (canvas :: CA
 -- | Set the current line width.
 foreign import setLineWidth :: forall eff. Context2D -> Number -> Eff (canvas :: CANVAS | eff) Unit
 
+-- | Set the current line dash pattern.
+foreign import setLineDash :: forall eff. Context2D -> Array Number -> Eff (canvas :: CANVAS | eff) Unit
+
 -- | Set the current fill style/color.
 foreign import setFillStyle :: forall eff. Context2D -> String -> Eff (canvas :: CANVAS | eff) Unit