diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-05-31 08:59:09 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-05-31 08:59:09 -0700 |
| commit | 650f417de2d471cf51668cd58c8e0fb19a834ec2 (patch) | |
| tree | 68da17e66a36d255e16e3e398ff5eaeb56bb2a99 /shell/data.limg | |
| parent | 33311443957db23e88aca6a3469b1be9ff32b4a0 (diff) | |
| download | mu-650f417de2d471cf51668cd58c8e0fb19a834ec2.tar.gz | |
.
Diffstat (limited to 'shell/data.limg')
| -rw-r--r-- | shell/data.limg | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/shell/data.limg b/shell/data.limg index 5fbd6548..c0fee939 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -19,7 +19,7 @@ (hline1 screen y 0 (width screen) color)))]) (vline . [(def vline (fn (screen x color) (vline1 screen x 0 (height screen) color)))]) - (brline . [(def brline (fn (screen x0 y0 x1 y1 color) + (line . [(def line (fn (screen x0 y0 x1 y1 color) (let (x y) `(,x0 ,y0) (let dx (abs (- x1 x0)) (let dy (- 0 (abs (- y1 y0))) @@ -69,7 +69,7 @@ (set y (+ y px)) (chessboard_row screen px y px xmax) (set y (+ y px))))))))]) - (brcircle . [(def brcircle (fn (screen cx cy r clr) + (circle . [(def circle (fn (screen cx cy r clr) (let x (- 0 r) (let y 0 (let err (- 2 (* 2 r)) @@ -94,7 +94,7 @@ (ring . [(def ring (fn(screen cx cy r w clr) (let rmax (+ r w) (while (< r rmax) - (brcircle screen cx cy r clr) + (circle screen cx cy r clr) (set r (+ r 1))))))]) (circle_rainbow . [(def circle_rainbow (fn(screen cx cy r w) (ring screen cx cy r w 37) |