a full-circle rainbow

1 files changed, 29 insertions, 2 deletions

diff --git a/shell/data.limg b/shell/data.limg
index 8b46e58b..54ea3f54 100644
--- a/shell/data.limg
+++ b/shell/data.limg
@@ -91,8 +91,35 @@
            (+ 1 (* 2 (set x (+ x 1))))))
  )
     (set continue (< x 0)))))))))])
+    (ring . [(def ring (fn(screen cx cy r w clr)
+    (let rmax (+ r w)
+    (while (< r rmax)
+      (brcircle screen cx cy r clr)
+      (set r (+ r 1))))))])
+    (circle_rainbow . [(def circle_rainbow (fn(screen c w)
+  (let cx (/ (width screen) 2)
+  (let cy (/ (height screen) 2)
+    (ring screen cx cy c w 37)
+    (set c (+ c w))
+    (ring screen cx cy c w 33)
+    (set c (+ c w))
+    (ring screen cx cy c w 55)
+    (set c (+ c w))
+    (ring screen cx cy c w 52)
+    (set c (+ c w))
+    (ring screen cx cy c w 47)
+    (set c (+ c w))
+    (ring screen cx cy c w 45)
+    (set c (+ c w))
+    (ring screen cx cy c w 44)
+    (set c (+ c w))
+    (ring screen cx cy c w 42)
+    (set c (+ c w))
+    (ring screen cx cy c w 41)
+    (set c (+ c w))
+    (ring screen cx cy c w 40)))))])
     (main . [(def main (fn (screen keyboard)
-  (chessboard screen 16)))])
+  (circle_rainbow screen 80 10)))])
   ))
-  (sandbox . (brcircle screen 14 8 6 2))
+  (sandbox . (circle_rainbow screen 8 1))
 )