diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 00:59:14 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2021-06-23 00:59:14 -0700 |
commit | cfa1bac8bbd235dc5e6c6ccb5893f3089f561370 (patch) | |
tree | 983a73afa4db1ef79631f64179be4a7b61ea51e6 /shell | |
parent | 577123e975bec6d8a4ddef6cc57b9c7cfef6c462 (diff) | |
download | mu-cfa1bac8bbd235dc5e6c6ccb5893f3089f561370.tar.gz |
.
Diffstat (limited to 'shell')
-rw-r--r-- | shell/data.limg | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/shell/data.limg b/shell/data.limg index 03366720..4386df7a 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -112,11 +112,11 @@ (hline1 . [def (hline1 screen y x xmax color) while (x < xmax) (pixel screen x y color) - (++ x)]) + ++x]) (vline1 . [def (vline1 screen x y ymax color) while (y < ymax) (pixel screen x y color) - ++ y]) + ++y]) (hline . [def (hline scr y color) (hline1 scr y 0 (width scr) color)]) (vline . [def (vline scr x color) @@ -156,7 +156,7 @@ (sq . [def (sq n) (n * n)]) (cube . [def (cube n) (n * n * n)]) (fill_rect . [def (fill_rect screen x1 y1 x2 y2 color) - for y y1 (y < y2) (++ y) + for y y1 (y < y2) ++y (hline1 screen y x1 x2 color)]) (circle . [def (circle scr cx cy r clr) with (x (0 - r) @@ -170,14 +170,14 @@ (pixel scr cx+y cy+x clr) (set r err) when (r <= y) - ++ y + ++y err += (1 + (2 * y)) when (or (r > x) (err > y)) - ++ x + ++x err += (+ 1 (* 2 x)) set continue (x < 0)]) (ring . [def (ring screen cx cy r0 w clr) - for r r0 (r < (r0 + w)) (++ r) + for r r0 (r < (r0 + w)) ++r (circle screen cx cy r clr)]) (Greys . [define Greys (map1 (fn(n) (n + 15)) @@ -189,8 +189,8 @@ (pat . [def (pat screen) with (w (width screen) h (height screen)) - for y 0 (y < h) (++ y) - for x 0 (x < w) (++ x) + for y 0 (y < h) ++y + for x 0 (x < w) ++x (pixel screen x y x*y)]) (main . [def (main screen keyboard) (pat screen)]) |