Screenres 640,480,32,2

Dim as Uinteger ptr Scrptr = Screenptr

Dim as single zx,zy,cx,cy,norm,oldzx,offsetX,t,offsetY,g,b
Dim as integer nbloops

cx = 1.23
cy = 0.44

Do
	t+=.1
	offsetX = cos(t)
	offsetY = sin(t)
	cx = t
	
	screenlock : cls
	
	For i as integer = -320 to 319
		for j as integer = -240 to 239
			
			zx = i*.01 + offsetX
			zy = j*.01 + offsetY
			
			nbloops = 0
			
			do
				oldzx = zx
				zx = cos(zx*zx + 2*zx*zy + cx)
				zy = sin(zy*zy + 2*zy*oldzx + cy)
				
				nbloops+=1
				
				if nbloops>2 then exit do
				
			Loop
			
			norm = (zx*zx+zy*zy)
			g = norm
			b = norm
			
			if norm>1 then norm=1
			if g>1 then g=1
			if b>1 then b=1
			
			norm*=255
			g*=255
			b*=255
			
			ScrPtr[i+320+(j+240)*640] = rgb(norm,g,b)
			
		next
	next

	screenunlock : sleep 1,1
Loop until multikey(&h01)