And here is a source I made, but beware it's very old and has stupid variable names because I was drunk when I made it.
' Little Mandlebrot using tinyptc by Shockwave ^ DBF
' Fuck I must be bored tonight....
'
' For those learning fractals, the colour of the point is determined by how many
' iterations of z=z^2 +c it takes to determine if a point is a part of the set or
' if it bails out before it can be determined (try playing with the iterations variable).
' Meh! Last time I coded one of these it was in Pascal in college a long time ago.
'
'-------------------------------------------------------------------------------
'#DEFINE PTC_WIN
#Include Once "tinyptc.bi"
If( ptc_open( "LITTLE MANDELBROT BY SHOCKWAVE^DBF", 320, 240 ) = 0 ) Then End
dim shared buffer(320*240) as integer
dim shared as double XADD,XPX,YADD,YPY,AAAA,BBBB,FLOOP,AAA,BBB
option explicit
dim shared MINIMUM_X,MAXIMUM_X,TWAT,BOLLOCKS,PASS,ITERATIONS,y,x as uinteger
dim shared COLOUR_MULT,scale as double
MINIMUM_X = 0
MAXIMUM_X = 319
TWAT = 0
BOLLOCKS = 239
PASS=10
ITERATIONS=50
COLOUR_MULT = (500/ITERATIONS)
dim gadd as uinteger
do
gadd=gadd+1
scale = (4*sin(gadd/27))+7
XADD= (scale/(MAXIMUM_X - MINIMUM_X))
XPX=-scale
YADD= (scale/(BOLLOCKS - TWAT))
YPY=-scale /2
for y = TWAT to BOLLOCKS
XPX=-scale /1.6
for x = MINIMUM_X to MAXIMUM_X
AAA=XPX
BBB=YPY
FLOOP=0
do
FLOOP=FLOOP+1
AAAA=AAA*AAA-BBB*BBB+XPX
BBBB=2*AAA*BBB+YPY
AAA=AAAA
BBB=BBBB
loop until ((FLOOP>ITERATIONS) or ((AAA*AAA)+(BBB*BBB)>PASS))
if FLOOP>=ITERATIONS then
FLOOP=0
else
FLOOP=FLOOP*COLOUR_MULT
end if
buffer((y*320)+x)=rgb(FLOOP,0,FLOOP)
XPX = XPX + XADD
next x
YPY = YPY + YADD
next y
ptc_update@buffer(0)
loop until inkey$<>""
Hope that gives a little extra help.
