Here is the par and frm info for the fractals
in my blog post demonstrating resizing and
anti-aliasing if you want to try them out yourself.
I've also posted the original full sized gifs -3000x2250
They're bigguns tho' -Big Blue is 5.4 MB and the Julia spiral is
3.6 MB.
go to: http://maxitersfractalfollies.blogspot.com
fracblu1.gif { ;Big Blue Gif
; blank
; calctime 0:00:10.66
; created Apr 05, 2010
; Fractint Version 2004 Patchlevel 9
reset=2004 type=formula formulafile=field.frm formulaname=field2_man
passes=1
center-mag=-1.63351379261808400/+0.00550110730071875/304.7593/1/-140.000\
000000001023/1.64155494752904474e-012 params=3600/1 float=y
maxiter=1200 inside=0 decomp=256 periodicity=0 cyclerange=0/255
colors=00101211312412413523624724825935936A36B37C47D48E48F49F59G5AH5AI5B\
J6BK6CK6CL6DM7DN7EO7EP7FP8FQ8GR8GS9HT9HU9IUAIVAJWAJXBKXBKYBLYCLZCMZCM_DN\
`DN`DOaDOaEPbEPbEQcFQcFRdFReGReGSfGSfHTgHTgHUhIUiIViIVjIWjJWkJXkJXlKYlKY\
mLZnLZnM_oM_oM`oN`pNapOaqObqPbrPcrPcrQdrQdsResRetRftSftSgtTguThuUhuUivVi\
vVjvVjvWkwXkwYlwYlwZmxZmx_nx_nx`ox`oxapyapybqybqycrydryesyeszftzgtzhuzhu\
zivzjvzkwzmwznxzpxzqyzryzuzzuzzuzzryzqyzoxznxzmwzkwzjvzivziuzhuzgtzftzfs\
zesydrycrybqybqyapyapy`ox_ox_nxZnxZmxYmwYlwXlwXkwWkwVjvVjvVivVivUhvUhuTg\
uTguSfuSftRetQesQdsQdrPcrPcrObqObqOapNapN`oN`oM_nM_nMZmLZmLYlLYlKYlKXkJX\
kJWjJWjIViIViIUhHUhHTgHTgGSfGSfFRfFReFQdFQcEPcEPbEObDOaDNaDN`CM_CM_BLZBL\
ZBKYAKYAJXAJWAIV9IU9HU9HT8GS8GR8FR8FQ7EP7EO7DN7DM6CL6CL6BK6BJ5AI5AH59G59\
G48F48E47D37C36B36A35A259248247236135124124113012001000
}
frm:field2_man {; Kerry Mitchell
; Colors Mandelbrot set by nearest approach to
; period 2 field lines
; use decomp=256
; real(p1) = bailout (try 1e12)
; imag(p1) = number of field line to use: 0, 1, or 2
; 2 iterations per pixel
; variable zc used for calculation, z for coloring
zc=0, c=pixel, maxr=real(p1), minr=maxr, iter=1
fieldangle=tan(imag(p1)*2*pi/3):
; iteration
; compare tangent of polar angle with desired
; field line angle, update minimum if needed
iter=iter+2, zc=sqr(zc)+c, zc=sqr(zc)+c
rzc=|zc|, tanangle=imag(zc)/real(zc)
r=cabs(fieldangle-tanangle)
IF (r<minr)
minr=r
ENDIF
; bailout
; set "iteration done" flag (iter=-1)
; use log of minimum difference of angles as
; decomposition angle
IF ((rzc>maxr)||(iter>=maxit))
iter=-1
angle=log(minr)
z=cos(angle)+flip(sin(angle))
ENDIF
iter>0
;SOURCE: 98msg.frm
}
Stay in touch. Get Hotmail & Messenger on your phone.