diff options
| author | Kartik K. Agaram <vc@akkartik.com> | 2021-05-07 12:08:07 -0700 |
|---|---|---|
| committer | Kartik K. Agaram <vc@akkartik.com> | 2021-05-07 12:08:07 -0700 |
| commit | e42ae8219eae6a48b7fc7746a9883c1e46d0be65 (patch) | |
| tree | 00ea6b86889e8526253122b63c2042a625105e1b | |
| parent | d605ba1f9ab08ead61a73f2f102fd8741b4c0352 (diff) | |
| download | mu-e42ae8219eae6a48b7fc7746a9883c1e46d0be65.tar.gz | |
clean up all definitions
| -rw-r--r-- | shell/data.limg | 41 |
1 files changed, 20 insertions, 21 deletions
diff --git a/shell/data.limg b/shell/data.limg index 070f24fa..4c9c21dc 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -68,27 +68,26 @@ x y (+ x px) (+ y px) 15) (set x (+ x (* px 2))))))]) - (brcircle . [(def brcircle (fn (screen cx cy r color) - ((fn (x y err continue) - (while continue - (pixel screen (- cx x) (+ cy y) color) - (pixel screen (- cx y) (- cy x) color) - (pixel screen (+ cx x) (- cy y) color) - (pixel screen (+ cx y) (+ cy x) color) - (set r err) - (if (<= r y) - (set err (+ err (+ 1 (* 2 (set y (+ y 1)))))) - ()) - (if (or (> r x) (> err y)) - (set err (+ err (+ 1 (* 2 (set x (+ x 1)))))) - ()) - (set continue (< x 0)) - )) - (- 0 r) - 0 - (- 2 (* 2 r)) - 1 - )))]) + (brcircle . [(def brcircle (fn (screen cx cy r clr) + (let x (- 0 r) + (let y 0 + (let err (- 2 (* 2 r)) + (let continue 1 + (while continue + (pixel screen (- cx x) (+ cy y) clr) + (pixel screen (- cx y) (- cy x) clr) + (pixel screen (+ cx x) (- cy y) clr) + (pixel screen (+ cx y) (+ cy x) clr) + (set r err) + (when (<= r y) + (set err + (+ err + (+ 1 (* 2 (set y (+ y 1))))))) + (when (or (> r x) (> err y)) + (set err + (+ err + (+ 1 (* 2 (set x (+ x 1))))))) + (set continue (< x 0)))))))))]) (main . [(def main (fn (screen keyboard) (chessboard screen 16)))]) )) |