Shows colours and sorting.
point=20
dim r(point)
dim x(point)
dim y(point)
dim l(point)
dim d(point)
dim s(point)
dim m(point)
dim R(point)
dim G(point)
dim B(point)
dim size(point)
dim order$(point)
ang=360/point
for a=1 to point
r(a)=a*ang*(pi/180)
l(a)=500 rem int(ran(300))+200
s(a)=2
d(a)=-.1
m(a)=.005
R(a)=ran(256)
G(a)=ran(256)
B(a)=ran(256)
next a
x=320
y=256
open window 640,512
repeat
setdrawbuf vm
vm=1-vm
setdispbuf vm
clear window
for a=1 to point
x(a)=cos(r(a))/(sin(r(a))+s(a))*l(a)+x
y(a)=d(a)/(sin(r(a))+s(a))*l(a)+y
next a
for a=1 to point
r(a)=r(a)+m(a)
if m(a)>360 m(a)=0
next a
for a=1 to point
order$(a)=str$(size(a))
next a
for k=1 to point-1
for j=1 to point-k
if order$(j)>order$(j+1) then
temp=r(j)
r(j)=r(j+1)
r(j+1)=temp
temp=x(j)
x(j)=x(j+1)
x(j+1)=temp
temp=y(j)
y(j)=y(j+1)
y(j+1)=temp
temp=l(j)
l(j)=l(j+1)
l(j+1)=temp
temp=d(j)
d(j)=d(j+1)
d(j+1)=temp
temp=s(j)
s(j)=s(j+1)
s(j+1)=temp
temp=m(j)
m(j)=m(j+1)
m(j+1)=temp
temp=R(j)
R(j)=R(j+1)
R(j+1)=temp
temp=G(j)
G(j)=G(j+1)
G(j+1)=temp
temp=B(j)
B(j)=B(j+1)
B(j+1)=temp
temp=size(j)
size(j)=size(j+1)
size(j+1)=temp
temp$=order$(j)
order$(j)=order$(j+1)
order$(j+1)=temp$
endif
next j
next k
for a=1 to point
size(a)=15*(10-(y(a)/27))
setrgb 1,R(a),G(a),B(a)
fill circle x(a),y(a),size(a)
setrgb 1,256,256,256
circle x(a),y(a),size(a)
next a
until (1=0)
