add random example script

2019-07-15 21:56:47 +02:00 · 2019-07-15 21:56:47 +02:00 · 90e7b52867
commit 90e7b52867
parent c81a0a8c96
2 changed files with 20 additions and 0 deletions
--- a/desktop/static/crystal.jpg
+++ b/desktop/static/crystal.jpg
--- 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)
+)