[Fractint] Pars and Frms for April 4 blog post

5 Apr 2010

      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
}

_________________________________________________________________
Hotmail & Messenger. Get them on your phone now.
http://go.microsoft.com/?linkid=9724463

[Fractint] Pars and Frms for April 4 blog post

Roger Alexander