update examples with no global ( )

desktop/sources/scripts/lisp.js

@@ -146,7 +146,7 @@ function Lisp (input, lib) {
   }
 
   this.parse = function (input) {
-    return parenthesize(tokenize(input))
+    return parenthesize(tokenize(`(${input})`))
   }
 
   this.toPixels = async function () {

examples/animate.lisp

@@ -1,5 +1,5 @@
 ; animate
-(
+
 (clear) 
 (def t 
   (sin 
@@ -14,4 +14,4 @@
 (stroke 
   (square pos) 1 "red") 
 ; set false to stop 
-  (animate true))
+(animate true)

examples/arrays.lisp

@@ -1,9 +1,7 @@
 (echo (map (lambda (a) (add a 1)) (1 2 3)))
 
-(
 (echo (first (1 2 3)))
 (echo (rest (1 2 3)))
-)
 
 (echo
   (filter 
@@ -11,16 +9,12 @@
     (1 2 3 4 5))
 )
 
-(
 (clear) 
 (map (lambda (a)
   (stroke (rect (mul a 30) 20 50 50)
 1 "red"))
 (range 0 20 5))
-)
 
-(
-  (clear) 
 (map (lambda (a)
   (stroke 
     (rect 
@@ -28,4 +22,4 @@
       (add 50 (mul (sin a) 40)) 
       a 
       (add 20 (mul (cos a) 50))) 1 "red"))
-    (range 0 200 5)))
+  (range 0 200 5))

examples/basics.lisp

@@ -1,9 +1,9 @@
 ; basics
-( 
+
 ; define a variable 
 (def a 25) 
 (echo a) 
 
 ; define a function 
 (defn add-two (a) (add 2 a)) 
-  (echo (add-two 4)))
+(echo (add-two 4))

examples/benchmark.fs.lisp

@@ -1,5 +1,5 @@
 ; filesystem
-(
+
 ; print path 
 (echo 
   (filepath))
@@ -11,4 +11,4 @@
   (file))
 ; print folder content 
 (echo 
-    (dir)))
+  (dir))

examples/benchmark.lisp

@@ -1,6 +1,5 @@
 ; benchmark
 
-(
 ; Basics
 
   (test "add" (add 8 4 2) 14)
@@ -58,4 +57,3 @@
 ; Interop
   (test "interop" ((of (of (js) "Math") "max") 2 4) 4)
   (test "recursive key selector" ((of (js) "Math" "max") 2 4) 4)
-)

examples/crop.lisp

@@ -1,7 +1,5 @@
 ; crop
 
-(
 (clear)
 (open "../static/crystal.jpg")
 (crop (rect 100 100 400 400))
-)

examples/dejong.lisp

@@ -1,6 +1,5 @@
 ; dejong attractor
 
-(
 (clear) 
 (defn point (x y color) 
   (fill (rect x y 1 1) color))
@@ -32,4 +31,3 @@
     (random -2 2)
     (random -2 2) 
 ))
-)

examples/glitch.lisp

@@ -1,10 +1,7 @@
-; pixels
-
-(
-  (clear)
-
 ; Glitch
 
+(clear)
+
 (defn glitch 
   (rec) 
   (if (gt rec 1)
@@ -15,11 +12,8 @@
     (glitch (sub rec 1))))
 )
 
-  ; Draw photo 
-  
 (import 
   "../static/crystal.jpg" 
   (rect 0 0 400 400))
 
 (glitch 500)
-)

examples/gradient.lisp

@@ -1,4 +1,3 @@
-(
 ; gradients
 
 (clear)
@@ -13,4 +12,3 @@
   (gradient 
     (50 0 180 0)
     ("black" "white" "blue" "green")))
-)

examples/guides.lisp

@@ -1,5 +1,4 @@
 ; guides
-(
 (clear) 
 (stroke 
   (frame) 1 "red") 
@@ -54,4 +53,4 @@
         (frame) "w") 
       (div 
         (of 
-            (frame) "h") 2))) 1 "#72dec2"))
+          (frame) "h") 2))) 1 "#72dec2")

examples/import.lisp

@@ -1,5 +1,5 @@
-(
+(clear)
 (def a (import 
   "../static/crystal.jpg" 
   (rect 0 0 400 400)))
-(echo a))
+(echo a)

examples/include.lisp

@@ -1,4 +1,3 @@
 ; include
-(
 (include "../examples/recursive.lisp") 
-  (echo line-color))
+(echo line-color)

examples/lambda.lisp

@@ -1,6 +1,6 @@
 (
 
-(echo (map '(echo 1 2 3) (4 5 6))
+(echo (map '(add 1 2) (4 5 6))
 
 )
 

examples/open.lisp

@@ -1,9 +1,7 @@
-; scale file
+; saturate image 
-(
 
 (open "../static/crystal.jpg")
 (pixels 
   (frame)
   saturation
   12)
-)

examples/pixels.lisp

@@ -1,7 +1,7 @@
 ; pixels
-(
+
 (clear) 
 (import "../../PREVIEW.jpg" 
   (frame)) 
 (pixels 
-    (rect 0 0 500 500) saturation 0.5))
+  (rect 0 0 500 500) saturation 0.5)

examples/random.file.lisp

@@ -1,5 +1,5 @@
 ; filesystem
-( 
+
 ; get files 
 (def files 
   (dir 
@@ -11,4 +11,4 @@
       (len files)))) 
 ; print random file name
 (echo 
-    (get files random-index)))
+  (get files random-index))

examples/random.lisp

@@ -1,5 +1,5 @@
 ; random 
-(
+
 (clear) 
 (defn place 
   (rec) 
@@ -14,4 +14,4 @@
           (random 200))) 
       (place 
         (sub rec 1))))) 
-  (place 30))
+(place 30)

examples/recursive.lisp

@@ -1,5 +1,5 @@
 ; recursive
-(
+
 (clear) 
 (defn rec 
   (v) 
@@ -13,4 +13,4 @@
           (mul 5 v)) 1 "red") 
       (rec 
         (sub v 5))))) 
-  (rec 100))
+(rec 100)

examples/resize.lisp

@@ -1,5 +1,5 @@
 ; resize
-(
+
 (clear) 
 (open "../../PREVIEW.jpg") 
-  (resize 0.5 0.5))
+(resize 0.5 0.5)

examples/shapes.lisp

@@ -1,6 +1,6 @@
 ; Shapes
 
-((clear)
+(clear)
 
 ; variables
 (def center-w (div (of (frame) "w") 2))
@@ -22,4 +22,3 @@
     (pos (sub center-w rad) center-h)
     (pos (add center-w rad) center-h)))
 (stroke (text 10 170 200 "HELL") 2 "pink")
-)

examples/spiral.lisp

@@ -1,6 +1,6 @@
 ; animated recusive spiral
 ; by @local_guru
-(
+
   (clear) 
   (defn rec 
     (v) 
@@ -27,4 +27,4 @@
           (sub v 0.3))))) 
   ; set false to stop 
   (animate true) 
-  (rec 300))
+  (rec 300)

examples/svg.lisp

@@ -1,8 +1,8 @@
-(
+
 (clear) 
 ; ronin path 
 (stroke 
   (svg "M60,60 L195,60 A45,45 0 0,1 240,105 A45,45 0 0,1 195,150 L60,150 M195,150 A45,45 0 0,1 240,195 L240,240 ") 2 "white")
 ; outline 
 (stroke 
-    (svg "M15,15 L15,15 L285,15 L285,285 L15,285 Z") 1 "#555"))
+  (svg "M15,15 L15,15 L285,15 L285,285 L15,285 Z") 1 "#555")

examples/theme.lisp

@@ -1,5 +1,5 @@
 ; theme
-(
+
 (clear) 
 (def col 
   (lambda 
@@ -35,4 +35,4 @@
         (rec 
           (sub v 3) 
           (add i 1)))))) 
-  (rec 40 0))
+(rec 40 0)