From 0d7a33d4af7c8dd34d983f3c162bb7feb160b7be Mon Sep 17 00:00:00 2001
From: Quentin Leonetti <q.leonetti@gmail.com>
Date: Sun, 14 Jul 2019 05:17:02 +0200
Subject: [PATCH] add array drawing example

---
 examples/arrays.lisp | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/examples/arrays.lisp b/examples/arrays.lisp
index fa87526..c1024b1 100644
--- 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)))
 )
\ No newline at end of file