Fun with "Cool Fractal" by Rod

[klaactu]

I have made no telling how many variations to the Cool Fractal program created by Rod. program that is included in the Just Basic program. I hope it is legal to experiment with another persons program. I mostly manipulated the math to achieve my variation

I call it EYEWOW

'coolFractal.bas contributed by Rod
'amended by klaactu

nomainwin
dim col$(12)
WindowWidth = DisplayWidth
WindowHeight = DisplayHeight
UpperLeftX = int((DisplayWidth-WindowWidth)/2)
UpperLeftY = int((DisplayHeight-WindowHeight)/2)
midx=int(WindowWidth/2)
midy=int(WindowHeight/2)
button #1, "Clear", [clear], LR, 50, 10
open "Fractals" for graphics_nsb as #1
#1 "trapclose [quit]"



[clear]
#1 "down ; fill black"

[draw]
'set up some random colors
for c=0 to 12
col$(c)=str$(int(rnd(0)*256))+" "+str$(int(rnd(0)*256))+" "+str$(int(rnd(0)*256))
next c

'set up some random starting positions
a=rnd(0)
b=0.9998
c=.008+.0032*a
dots=12000
x=a=0
y=rnd(0)*12+0.1

'calculate and draw the points
for i=0 to dots
   scan
   z=x
   x=b*y+j
   j=a*x+c*(x^4)/(1+x^16)
   y=j-z
   xp=(x*20)+midx
   yp=(y*20)+midy
   #1 "color ";col$(i/1000)
   #1 "set ";xp;" ";yp
next i
goto [draw]

[quit]
close #1
end



[Rod]

Very nice, I fixed the listing by posting it between code tags, the tags you get by clicking on the [C] icon. It does look like an eye now!