[Snippet] Playing with fractal rules

[Hezad]

Hey I wanted to play a bit with fractals and It brought me to this. The basis rule is nearly the mandelbrot one but I added some trigonometric functions. Here's the result It's not fast, sorry for that, just wanted to share the thing

Code: [Select]

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)



[benny!]

Screenie looks nice. Having a quick look at the
source - it seems that this baby is in motion, too.

Any chance of an compiled version ?

[Shockwave]

Here's an exe.

It's an interesting display I'd like to see an optimised version using tinyptc.
I cant recall ever seeing this pattern before.

[benny!]

Thanks for the exe, Shocky.

It looks indeed very interesting and stylish!

[Hezad]

Thanks a lot mates

Sorry for not posting any exe, i'm under debian and I can't get the cross-compiling to work :S

Shockie > Hum.. I never used tiny ptc (but that's a good occasion to learn I'll try it in my next code )

[Shockwave]

tinyptc_ext++ is the best version to use mate.
You will find it in this freebasic board