ZXASCII
AUTO -1
PROG /demos/graphics/bubble_universe3
CHANGED FALSE
10 const w=480,n=200:
	x,y=0,t=9:
	window depth 0,32:
	screen lock:
	do:
    cls 0:
	   for i=0 to n;j=0 to n:
				   u=sin(i+y)+sin(j/(n*pi)+x),
							v=cos(i+y)+cos(j/(n*pi)+x),
							x=u+t,y=v+t:
							circle ink rgbtoint(i,j,99);u*100+w/1.2,v*100+w/2,1:
				next j;i:
				t+=.1:
				wait screen:
	loop