diff options
| -rw-r--r-- | shell/data.limg | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/shell/data.limg b/shell/data.limg index c2a7805c..dd40fbdc 100644 --- a/shell/data.limg +++ b/shell/data.limg @@ -7,15 +7,17 @@ (let . [(mac let (var val . body) `((fn (,var) ,@body) ,val))]) (hline . [(def hline (fn (screen y color) - (let (x xmax) `(0 ,(width screen)) - (while (< x xmax) - (pixel screen x y color) - (set x (+ x 1))))))]) + (hline1 screen y 0 (width screen) color)))]) + (hline1 . [(def hline1 (fn (screen y x xmax color) + (while (< x xmax) + (pixel screen x y color) + (set x (+ x 1)))))]) (vline . [(def vline (fn (screen x color) - (let (y ymax) `(0 ,(height screen)) - (while (< y ymax) - (pixel screen x y color) - (set y (+ y 1))))))]) + (vline1 screen x 0 (height screen) color)))]) + (vline1 . [(def vline1 (fn (screen x y ymax color) + (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) |