rem Taglia
rem by Florian with Alain's help

width=512
height=512
open window width,height
black$="0,0,0"
x=width/2
y=height/2
n=0
m=0
dim oldx(10,1)
dim oldy(10,1)
angle=ran(2*pi)

for k=1 to 10
 oldx(k,1)=x
 oldy(k,1)=y
next k

while (n<100000)
 deltaangle=ran(pi)-pi/2
 NbSteps=12+ran(15)
 
 for k=1 to NbSteps
  r=128*(sin(1+0.1*m)+1)
  g=128*(sin(2+0.05*m)+1)
  b=128*(sin(0.01*m)+1)
  color r,g,b
  fill circle oldx(n,1),oldy(n,1),7
  x=x+cos(angle)
  if x<0 then x=x+width endif
  if x>width then x=x-width endif
  y=y+sin(angle)
  if y<0 then y=y+height endif
  if y>height then y=y-height endif
  angle=angle+deltaangle/NbSteps
  color black$
  fill circle x,y,10
  oldx(n,1)=x
  oldy(n,1)=y
  n=n+1
  if n=11 then n=1 endif
  m=m+1
 next k
 
wend