Removed shapes, fixes #69

2019-07-22 15:56:35 +09:00
parent 8f54f954d2
commit b694d6c8db
14 changed files with 7 additions and 10 deletions
--- a/examples/pixels/glitch.lisp
+++ b/examples/pixels/glitch.lisp
@@ -0,0 +1,18 @@
+; Glitch
+
+(clear)
+
+(defn glitch 
+  (rec) 
+  (if (gt 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" 
+  (rect 0 0 400 400))
+
+(glitch 500)