pl={0,0,1,2,4,9,10,15,7,15,10,9,4,2,1,0}
t=0
function _draw()
 t+=1/400
 for i=1,800 do
  local x,y=rnd(128),rnd(128)
  local c=3
  local xx,yy=x/100,y/100

  c+=cos(x/80)-sin(y/100)

  c+=cos(x/40-t)*sin(y/40-t)
  c+=cos(x/80)*sin(y/80-t)
  c+=cos(x/200+t/2)*sin(y/80+t)

  circ(x,y,1,pl[flr(c*6)%#pl])
 end
end