add random example script

2019-07-15 21:56:47 +02:00
parent c81a0a8c96
commit 90e7b52867
2 changed files with 20 additions and 0 deletions
--- a/examples/random.lisp
+++ b/examples/random.lisp
@@ -0,0 +1,20 @@
+; random 
+
+(
+  (clear)
+
+  (defn place
+    (rec)
+    (if (gt rec 0)
+      ((draw "../static/crystal.jpg"
+      (rect 
+        (random 200)
+        (random 200) 
+        (random 200) 
+        (random 200))
+      (lambda () (place (sub rec 1)))
+    )))
+)
+    
+  (place 30)
+)