Updated some examples

desktop/sources/scripts/lisp.js

@@ -22,7 +22,6 @@ function Lisp (input, lib) {
     include: (input, context) => {
       if (!input[1].value || !fs.existsSync(input[1].value)) { console.warn('Source', input[1].value); return [] }
       const file = fs.readFileSync(input[1].value, { encoding: 'utf-8' })
-      console.log(input, context)
       return interpret(this.parse(file), context)
     },
     let: function (input, context) {

examples/glitch.lisp

@@ -17,7 +17,7 @@
 
   ; Draw photo 
   
-  (draw 
+  (import 
     "../static/crystal.jpg" 
     (rect 0 0 400 400))
 

examples/guides.lisp

@@ -1,36 +1,57 @@
-; guides file
-
-((clear)
-  (stroke (frame) 1 "red")
-
+; guides
+(
+  (clear) 
+  (stroke 
+    (frame) 1 "red") 
   (stroke 
     (line 
       (pos 0 0) 
-      (pos (of (frame) "w") (of (frame) "h"))) 
-    1 "red")
-
-
+      (pos 
+        (of 
+          (frame) "w") 
+        (of 
+          (frame) "h"))) 1 "red") 
   (stroke 
     (line 
-      (pos (of (frame) "w") 0) 
-      (pos 0 (of (frame) "h"))) 
-    1 "red")
-
+      (pos 
+        (of 
+          (frame) "w") 0) 
+      (pos 0 
+        (of 
+          (frame) "h"))) 1 "red") 
   (stroke 
     (line 
-      (pos (div (of (frame) "w") 2) 0) 
-      (pos (div (of (frame) "w") 2) (of (frame) "h"))) 
-    1 "red")
-
+      (pos 
+        (div 
+          (of 
+            (frame) "w") 2) 0) 
+      (pos 
+        (div 
+          (of 
+            (frame) "w") 2) 
+        (of 
+          (frame) "h"))) 1 "red") 
   (stroke 
     (line 
-      (pos 0 (div (of (frame) "h") 2)) 
-      (pos (div (of (frame) "w") 2) (of (frame) "h"))) 
-    1 "#72dec2")
-
+      (pos 0 
+        (div 
+          (of 
+            (frame) "h") 2)) 
+      (pos 
+        (div 
+          (of 
+            (frame) "w") 2) 
+        (of 
+          (frame) "h"))) 1 "#72dec2") 
   (stroke 
     (line 
-      (pos (div (of (frame) "w") 2) 0) 
-      (pos (of (frame) "w") (div (of (frame) "h") 2))) 
-    1 "#72dec2")
-)
+      (pos 
+        (div 
+          (of 
+            (frame) "w") 2) 0) 
+      (pos 
+        (of 
+          (frame) "w") 
+        (div 
+          (of 
+            (frame) "h") 2))) 1 "#72dec2"))

examples/pixels.lisp

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

examples/random.lisp

@@ -1,21 +1,17 @@
 ; random 
-
 (
-  (clear)
-
-  (defn place
-    (rec)
-    (if (gt rec 0)
+  (clear) 
+  (defn place 
+    (rec) 
+    (if 
+      (gt rec 0) 
       (
-        (draw "../static/crystal.jpg"
+        (import "../static/crystal.jpg" 
           (rect 
-            (random 200)
             (random 200) 
             (random 200) 
-            (random 200)))
-        (place (sub rec 1))
-    ))
-  )
-    
-  (place 30)
-)
+            (random 200) 
+            (random 200))) 
+        (place 
+          (sub rec 1))))) 
+  (place 30))

examples/svg.lisp

@@ -1,5 +1,8 @@
-((fill 
-  (svg "M255,60 L255,60 L135,180 L75,60 L195,210 L120,225 L105,225 L165,255 L225,195 L255,135 L285,150") "white")
-
-(stroke 
-  (svg "M405,15 L405,15 L150,150 L195,90 L240,135 L120,195 L75,90 L135,165 L120,225 L90,240 L60,210 L90,150 L255,180 L285,180 L285,165 ") "pink"))
+(
+  (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"))