add prelude.lisp

2019-07-20 21:25:28 +02:00
parent fade8cb396
commit 0f2acc0d0e
3 changed files with 20 additions and 8 deletions
--- a/examples/glitch.lisp
+++ b/examples/glitch.lisp
@@ -5,12 +5,11 @@
 (defn glitch 
  (rec) 
  (if (gt rec 1)
-  ((clone 
-    (rect (random 400) (random 400) 2 2)
-    (rect (random 400) (random 400) 
-(random 10) (random 30)))
-    (glitch (sub rec 1))))
-)
+    (
+      (translate
+        (rect (random 400) (random 400) (random 10) (random 10))
+        (pos (random 400) (random 400)))
+      (glitch (sub rec 1)))))

 (import 
  "../static/crystal.jpg"