# Contributed by Joel Kahn
fastgraphics
cls
clg
r=0:g=0:b=0
x=250.0:y=250.0
m=1.0
graphsize 500, 500
while x>0.0 and x<500.0 and y>0.0 and y<500.0
m=m+4.0/m
x=x+cos(m)
y=y+sin(m)
r=r+1
if r>255 then
r=1
g=g+1
end if
if g>255 then
g=1
b=b+1
end if
color r, g, b
plot x,y
end while
refresh
# Contributed by Joel Kahn
fastgraphics
cls
clg
graphsize 512, 512
r=1:g=1:b=1
x=250
y=250
s=1
plot x, y
for a=1 to 511
x1=x+s*a
y1=y+s*a
q=s*1
g=((abs(g+a))%255)+1
for xx=x to x1 step q
b=((abs(b+xx))%255)+1
color r, g, b
plot xx, y
next xx
for yy=y to y1 step q
r=((abs(r+yy))%255)+1
color r, g, b
plot x1, yy
next yy
x=x1
y=y1
s=-s
r=1:g=1:b=1
refresh
next a
# Contributed by Joel Kahn
fastgraphics
cls
clg
c=7
xs=750
ys=520
graphsize xs,ys
for y=ys to 0 step -1
for x=0 to xs
c=c*1.00005
color c
plot x,y
next x
refresh
next y
print c