Make initial colour a parameter of 'initContext'.

epost · May 10, 2015 · b1da9a6 · b1da9a6
1 parent 0647d1e
commit b1da9a6
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 9 deletions.
diff --git a/src/Canvas.purs b/src/Canvas.purs
@@ -8,6 +8,7 @@ foreign import data DOM :: !
 
 type Context2DEff = Eff (dom :: DOM) Context2D
 
+type ColorString = String
 
 foreign import get2DContext
   """
@@ -20,15 +21,17 @@ foreign import get2DContext
 
 foreign import initContext
   """
-  function initContext(context) {
-    return function() {
-      context.beginPath();
-      context.lineWidth = 2;
-      context.strokeStyle = 'purple';
-      return context;
-    };
+  function initContext(color) {
+    return function initContext(context) {
+      return function() {
+        context.beginPath();
+        context.lineWidth = 2;
+        context.strokeStyle = color;
+        return context;
+      };
+    }
   }
-  """ :: forall eff. Context2D -> Context2DEff
+  """ :: forall eff. ColorString -> Context2D -> Context2DEff
 
 foreign import beginStroke
   """

diff --git a/src/CanvasCompiler.purs b/src/CanvasCompiler.purs
@@ -96,7 +96,7 @@ colorToCanvasStyle col = case col of
 renderTurtleProgOnCanvas :: String -> TurtleProg Unit -> Context2DEff
 renderTurtleProgOnCanvas canvasId prog =
   get2DContext canvasId >>=
-  initContext >>=
+  initContext (colorToCanvasStyle Purple) >>=
   moveTo 0 0 >>=
   beginStroke >>=
   compileTurtleProg prog >>=