diff options
Diffstat (limited to 'shell')
| -rw-r--r-- | shell/data.limg | 31 | ||||
| -rw-r--r-- | shell/evaluate.mu | 2 |
2 files changed, 30 insertions, 3 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)) ) diff --git a/shell/evaluate.mu b/shell/evaluate.mu index 4e9ef352..839aa6b5 100644 --- a/shell/evaluate.mu +++ b/shell/evaluate.mu @@ -482,7 +482,7 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han compare left-out, 0 { break-if-!= - abort "error in eval-list" + abort "there was some error (likely in syntax): eval-list" } } # |