28 lines
466 B
Plaintext
28 lines
466 B
Plaintext
proc pix x y .
|
|
grect x / 5 y / 5 0.25 0.25
|
|
.
|
|
proc circ x0 y0 r .
|
|
t1 = r div 16
|
|
x = r
|
|
while x >= y
|
|
pix x0 - x, y0 + y
|
|
pix x0 - x, y0 - y
|
|
pix x0 - y, y0 + x
|
|
pix x0 - y, y0 - x
|
|
pix x0 + x, y0 + y
|
|
pix x0 + x, y0 - y
|
|
pix x0 + y, y0 + x
|
|
pix x0 + y, y0 - x
|
|
y += 1
|
|
t1 += y
|
|
t2 = t1 - x
|
|
if t2 >= 0
|
|
t1 = t2
|
|
x -= 1
|
|
.
|
|
.
|
|
.
|
|
for r = 20 step 20 to 240
|
|
circ 250 250 r
|
|
.
|