This commit is contained in:
parent
577123e975
commit
cfa1bac8bb
|
@ -112,7 +112,7 @@
|
||||||
(hline1 . [def (hline1 screen y x xmax color)
|
(hline1 . [def (hline1 screen y x xmax color)
|
||||||
while (x < xmax)
|
while (x < xmax)
|
||||||
(pixel screen x y color)
|
(pixel screen x y color)
|
||||||
(++ x)])
|
++x])
|
||||||
(vline1 . [def (vline1 screen x y ymax color)
|
(vline1 . [def (vline1 screen x y ymax color)
|
||||||
while (y < ymax)
|
while (y < ymax)
|
||||||
(pixel screen x y color)
|
(pixel screen x y color)
|
||||||
|
@ -156,7 +156,7 @@
|
||||||
(sq . [def (sq n) (n * n)])
|
(sq . [def (sq n) (n * n)])
|
||||||
(cube . [def (cube n) (n * n * n)])
|
(cube . [def (cube n) (n * n * n)])
|
||||||
(fill_rect . [def (fill_rect screen x1 y1 x2 y2 color)
|
(fill_rect . [def (fill_rect screen x1 y1 x2 y2 color)
|
||||||
for y y1 (y < y2) (++ y)
|
for y y1 (y < y2) ++y
|
||||||
(hline1 screen y x1 x2 color)])
|
(hline1 screen y x1 x2 color)])
|
||||||
(circle . [def (circle scr cx cy r clr)
|
(circle . [def (circle scr cx cy r clr)
|
||||||
with (x (0 - r)
|
with (x (0 - r)
|
||||||
|
@ -177,7 +177,7 @@
|
||||||
err += (+ 1 (* 2 x))
|
err += (+ 1 (* 2 x))
|
||||||
set continue (x < 0)])
|
set continue (x < 0)])
|
||||||
(ring . [def (ring screen cx cy r0 w clr)
|
(ring . [def (ring screen cx cy r0 w clr)
|
||||||
for r r0 (r < (r0 + w)) (++ r)
|
for r r0 (r < (r0 + w)) ++r
|
||||||
(circle screen cx cy r clr)])
|
(circle screen cx cy r clr)])
|
||||||
(Greys . [define Greys
|
(Greys . [define Greys
|
||||||
(map1 (fn(n) (n + 15))
|
(map1 (fn(n) (n + 15))
|
||||||
|
@ -189,8 +189,8 @@
|
||||||
(pat . [def (pat screen)
|
(pat . [def (pat screen)
|
||||||
with (w (width screen)
|
with (w (width screen)
|
||||||
h (height screen))
|
h (height screen))
|
||||||
for y 0 (y < h) (++ y)
|
for y 0 (y < h) ++y
|
||||||
for x 0 (x < w) (++ x)
|
for x 0 (x < w) ++x
|
||||||
(pixel screen x y x*y)])
|
(pixel screen x y x*y)])
|
||||||
(main . [def (main screen keyboard)
|
(main . [def (main screen keyboard)
|
||||||
(pat screen)])
|
(pat screen)])
|
||||||
|
|
Loading…
Reference in New Issue