akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

clean up hline and vline

This commit is contained in:
Kartik K. Agaram 2021-05-07 10:05:20 -07:00
parent 74be534e2b
commit c651bbeffc
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
shell/data.limg
View File

@ -4,18 +4,18 @@
`(def ,name (litmac litfn () ,params ,@body))))])
(when . [(mac when (cond body)
`(if ,cond ,body ()))])
(let . [(mac let (var val . body)
`((fn (,var) ,@body) ,val))])
(hline . [(def hline (fn (screen y color)
(hline1 screen y 0 (width screen) color)))])
(hline1 . [(def hline1 (fn (screen y lo hi color)
(while (< lo hi)
(pixel screen lo y color)
(set lo (+ lo 1)))))])
(let (x xmax) `(0 ,(width screen))
(while (< x xmax)
(pixel screen x y color)
(set x (+ x 1))))))])
(vline . [(def vline (fn (screen x color)
(vline1 screen x 0 (height screen) color)))])
(vline1 . [(def vline1 (fn (screen x lo hi color)
(while (< lo hi)
(pixel screen x lo color)
(set lo (+ lo 1)))))])
(let (y ymax) `(0 ,(height screen))
(while (< y ymax)
(pixel screen x y color)
(set y (+ y 1))))))])
(fill_rect . [(def fill_rect (fn (screen x1 y1 x2 y2 color)
(while (< y1 y2)
(hline1 screen y1 x1 x2 color)