From 650f417de2d471cf51668cd58c8e0fb19a834ec2 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 31 May 2021 08:59:09 -0700 Subject: . --- shell/data.limg | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'shell/data.limg') 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) -- cgit 1.4.1-2-gfad0