[Fractint] Another julia mutation

17 Jul 2010


      I could say this fractal's  graphic structure reminds me of spaghetti but thread like sounds more classy.
To see the soon to be re-sampled version go to http://maxitersfractalfollies.blogspot.com
and save a bit of generating time.

fract317.gif       { ; spaghetti
                     ; blank
                     ; calctime   0:04:14.53
                     ; created Jul 17, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2004 type=formula formulafile=kerrym.frm formulaname=km_12
  center-mag=0.260325/0.502117/3.875969
  params=0.75/-0.875/0.875/-0.001373332926419875/0.5439924314096499/-0.391\
  155735953856/0.4704428235724967/0.239539780877102 float=y
  maxiter=1500 inside=0 decomp=256 periodicity=0
  colors=ELLFLLFMMGMMGNNHNNHOOIOOIPPJPPJPPKQQKQQLRRLRRMSSMSSNTTNTTOTTOUUPU\
  UPVVQVVQWWRWWRXXSXXSXXTYYTYYUZZUZZV__V__W``W``W``XaaXaaYaaYaaYbbYbbZbbZb\
  b_cc_cc`dd`ddaddaeebeebffcffcffdggdggehhehhfiifiigiigjjhjjhkkikkikkjlljl\
  lkmmkmmlnnlnnmnnmoonoonppoppopppqqpqqqrrqrrrrrrssssssttttttuuuuuuuuvvvvv\
  vwwwwwwwwwxxxxxxyyyyyyyyyxxxxxxwwwwwwvvvvvvuvvuuutuutttsttsttrssrssqrrqr\
  rprrpqqoqqoppnppnoomoomoolnnlnnlmmkmmkmmjlljllikkikkhkkhjjgjjgiifiifiieh\
  hehhdggdggcggcffbffbeeaeeaeeadd`dd`cc_cc_ccZbbZbbYaaYaaXaaX``W``W__V__VZ\
  ZUZZUZZTYYTYYSXXSXXRXXRWWQWWQVVQVVPVVPUUOUUOTTNTTNTTMSSMSSLRRLRRKRRKQQJQ\
  QJPPIPPIPPHOOHOOGNNGNNFNNFMMFMMELLELLDLLDKKCKKCJJBJJBIIAIIAII9HH9HH8GG8G\
  G7GG7FF6FF6EE5EE5EE4DD4DD3CC3CC3CC2BB1BB1AA0AA0AA1BB1BB2CC2CC3DD3DD4DD4E\
  E5EE5FF6FF6FF7GG7GG8HH8HH9HH9IIAIIAJJBJJBJJCKKCKKDLLDLL
  }
km_12 { ; Kerry Mitchell 
                 ;originally conic-near_jul2
                 ;tweaked so user can directly input
                 ; julia parameters (cc=p4) originally
                 ; hardcoded to -2
        cc=p4, zc=pixel, maxr=1e12, minr=maxr, iter=1
        a=real(p1), b=imag(p1), c=real(p2), d=imag(p2)
        e=real(p3), f=imag(p3):
        iter=iter+1, zc=sqr(zc)+cc, x=real(zc), y=imag(zc)
        conic=|x*(a*x+b)+y*(c*y+d)+e*x*y+f|
        if (conic<minr)
          minr=conic
          end if
        if ((|zc|>maxr)||(iter==maxit))
          iter=-1
          t=log(minr)
          z=cos(t)+flip(sin(t))
          end if
        iter>0
        }
Roger Alexander 		 	   		  
_________________________________________________________________
Turn down-time into play-time with Messenger games
http://go.microsoft.com/?linkid=9734385