Move some ugly Canvas rendering code into a helper function.

epost · Oct 28, 2014 · b7dc826 · b7dc826
1 parent 683e555
commit b7dc826
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 16 deletions.
diff --git a/src/BrowserMain.purs b/src/BrowserMain.purs
@@ -10,13 +10,14 @@ import Debug.Trace
 
 
 main :: Context2DEff
-main =
-  get2DContext "turtleCanvas" >>=
-  initContext >>=
-  beginStroke >>=
-  moveTo 0 0 >>=
-  compileTurtleProg stars >>=
-  endStroke
+main = renderTurtleProgOnCanvas "turtleCanvas" $ do
+  star
+  penUp
+  forward 40
+  left 100
+  penDown
+  color Red
+  star
 
 star = do
   right 144
@@ -29,12 +30,3 @@ star = do
   forward 100
   right 144
   forward 100
-
-stars = do
-  star
-  penUp
-  forward 40
-  left 100
-  penDown
-  color Red
-  star
diff --git a/src/CanvasCompiler.purs b/src/CanvasCompiler.purs
@@ -96,3 +96,12 @@ colorToCanvasStyle col = case col of
   Purple -> "purple"
   Black -> "black"
   CustomColor str -> str
+
+renderTurtleProgOnCanvas :: String -> TurtleProg Unit -> Context2DEff
+renderTurtleProgOnCanvas canvasId prog =
+  get2DContext canvasId >>=
+  initContext >>=
+  beginStroke >>=
+  moveTo 0 0 >>=
+  compileTurtleProg prog >>=
+  endStroke