add array drawing example

2019-07-14 05:17:02 +02:00 · 2019-07-14 05:17:02 +02:00 · 0d7a33d4af
commit 0d7a33d4af
parent f05fa86dbb
1 changed files with 7 additions and 2 deletions
--- a/examples/arrays.lisp
+++ b/examples/arrays.lisp
@ -14,6 +14,11 @@
 (
  (clear) 
  (map (lambda (a)
-    (stroke (rect (mul a 30) 20 50 50) 1 "red"))
-    (5 10 15 20))
+    (stroke 
+      (rect 
+        (mul a 10) 
+        (add 50 (mul (sin a) 40)) 
+        a 
+        (add 20 (mul (cos a) 50))) 1 "red"))
+    (range 0 200 5)))
 )