diff options
Diffstat (limited to 'shell/data.limg')
-rw-r--r-- | shell/data.limg | 31 |
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)) ) |