picolisp

commit 33200defcefa72f43a52efc3e1c9349dfc1fd06a
parent 84639b4f0aff1cc5f324f174b28a96764ff313bd
Author: Alexander Burger <abu@software-lab.de>
Date:   Tue,  6 Aug 2013 19:57:01 +0200

Clean up canvas commands
Diffstat:
M
lib/canvas.l
 | 
85
+++++++++++++++++++++++++++++++++++++++----------------------------------------

1 file changed, 42 insertions(+), 43 deletions(-)
diff --git a/lib/canvas.l b/lib/canvas.l
@@ -4,49 +4,48 @@
 (allow "!jsDraw" )
 (push1 '*JS (allow "@lib/plio.js") (allow "@lib/canvas.js"))
 
-(de canvasCommands Lst
-   (for (Opc . L) Lst
-      (def (car L)
-         (list
-            (cdr L)
-            (list 'link
-               (if (cdr L)
-                  (cons 'list Opc @)
-                  (list Opc) ) ) ) ) ) )
-
-(canvasCommands  # In sync with "@lib/canvas.js"
-   ### Functions ###
-   (csFillText Str X Y)
-   (csStrokeLine X1 Y1 X2 Y2)
-   (csClearRect X Y DX DY)
-   (csStrokeRect X Y DX DY)
-   (csFillRect X Y DX DY)
-   (csBeginPath)
-   (csClosePath)
-   (csMoveTo X Y)
-   (csLineTo X Y)
-   (csBezierCurveTo X1 Y1 X2 Y2 X Y)
-   (csLine X1 Y1 X2 Y2)
-   (csRect X Y DX DY)
-   (csArc X Y R A B F)
-   (csStroke)
-   (csFill)
-   (csClip)
-   (csDrawImage Img DX DY)
-   (csTranslate X Y)
-   (csRotate A)
-   (csScale X Y)
-   (csSave)
-   (csRestore)
-   ### Variables ###
-   (csFillStyle V)
-   (csStrokeStyle V)
-   (csGlobalAlpha V)
-   (csLineWidth V)
-   (csLineCap V)
-   (csLineJoin V)
-   (csMiterLimit V)
-   (csGlobalCompositeOperation V) )
+# Canvas Commands
+(for (Opc . L)
+   (quote  # In sync with "@lib/canvas.js"
+      ### Functions ###
+      (csFillText Str X Y)
+      (csStrokeLine X1 Y1 X2 Y2)
+      (csClearRect X Y DX DY)
+      (csStrokeRect X Y DX DY)
+      (csFillRect X Y DX DY)
+      (csBeginPath)
+      (csClosePath)
+      (csMoveTo X Y)
+      (csLineTo X Y)
+      (csBezierCurveTo X1 Y1 X2 Y2 X Y)
+      (csLine X1 Y1 X2 Y2)
+      (csRect X Y DX DY)
+      (csArc X Y R A B F)
+      (csStroke)
+      (csFill)
+      (csClip)
+      (csDrawImage Img DX DY)
+      (csTranslate X Y)
+      (csRotate A)
+      (csScale X Y)
+      (csSave)
+      (csRestore)
+      ### Variables ###
+      (csFillStyle V)
+      (csStrokeStyle V)
+      (csGlobalAlpha V)
+      (csLineWidth V)
+      (csLineCap V)
+      (csLineJoin V)
+      (csMiterLimit V)
+      (csGlobalCompositeOperation V) )
+   (def (car L)
+      (list
+         (cdr L)
+         (list 'link
+            (if (cdr L)
+               (cons 'list Opc @)
+               (list Opc) ) ) ) ) )
 
 (de <canvas> (Id DX DY)
    (prin