Thanks. A variation...
screenw=1280
screenh=720
set display mode screenw,screenh,32
ww=screenw*0.5
hh=screenh*0.5
sync on :sync rate 60
dim cc(146)
cc(1)=rgb(110,250,0)
cc(2)=rgb(50,200,0)
cc(2)=rgb(0,150,0)
cc(3)=rgb(0,100,50)
cc(4)=rgb(0,50,110)
cc(5)=rgb(0,0,160)
cc(6)=rgb(0,0,210)
cc(7)=rgb(0,0,255)
cc(8)=rgb(0,50,250)
cc(9)=rgb(0,100,255)
cc(10)=rgb(0,150,200)
cc(11)=rgb(0,200,155)
cc(12)=rgb(0,250,100)
cc(13)=rgb(50,210,50)
cc(14)=rgb(110,160,0)
cc(15)=rgb(160,100,0)
cc(15)=rgb(210,50,0)
cc(16)=rgb(210,210,120)
a=1
for f=16 to 1 step -1:cc(f+30)=cc(a):inc a:next f
ll=-275
rr=400
zm#=0.005
`````````````````````````````````
do
z#=0.0
`cls
ab#=sin(delay*0.1)
cb#=abs(cos(delay*0.3))*-1
for y=ll to ll+550
for x=ll to ll+550
a#=x*zm#:b#=y*zm#
x#=a#:y#=b#
f=15
lp1:
aa#=a#*a#-b#*b#
bb#=2*a#*b#
a#=aa#+ab# `x#
b#=bb#+cb# `-0.3842 `y#
if abs(a#+b#)>6.0 then col=cc(fat+f) :goto gog
dec f:if f>0 then goto lp1
col=0
gog:
ink col
xx=ww+x:yy=hh+y
box xx,yy,xx+1,yy+1
next x
next y
dec bb1:if bb1<0
bb1=7
dec fat:if fat<0 then fat=31
endif
`scroll object texture 1,0.0,-0.002
`yrotate object 1,delay*0.3
inc delay
`ink rgb(0,200,0)
`text 20,20,str$(screen fps())+" "+str$(a)+" "+str$(x#)
dec fig:if fig<0 then fig=3
`gosub saver
`gosub bend
ttt:
if inkey$()=" " then goto ttt
if upkey()=1 then inc zm#,0.01
if downkey()=1 then dec zm#,0.001
if leftkey()=1 then dec ll,5:dec rr,5
if rightkey()=1 then inc rr,5:inc ll,5
sync
loop
`````````````````````````````````````````````````