[Fractint] Cobalt Capilleries

14 Jul 2010


      Another busy day at Action Central so today's posting will be brief- but not so brief
I won't mention the completed fractal is on display at http://maxitersfractalfollies.blogspot.com.

fract307.gif       { ;Cobalt Capillaries-I just like the sound of it
                     ; blank
                     ; calctime   0:02:42.14
                     ; created Jul 13, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2004 type=formula formulafile=_k.frm formulaname=km_10
  passes=1
  center-mag=-0.189282/-0.728366/7.747816/1/127.500000000000014/-7.5946193\
  7782646146e-014
  params=0.875/0.875/1.75/1.75/0.2483901486251411/-0.5270851771599475/-0.7\
  5/-0.75 float=y maxiter=1500 inside=0 decomp=256 periodicity=0
  colors=05F05F05F16G16G16G16G16G27H27H27H27H27H38I38I38I38I38I49J49J49J49\
  J49J5AK5AK5AK5AK5AK6BL6BL6BL6BL7CM7CM7CM7CM7CM8DN8DN8DN8DN8DN9EO9EO9EO9E\
  O9EOAFPAFPAFPAFPAFPBGQBGQBGQBGQBGQCHRCHRCHRCHRCHRDISDISDISDISDISEISEJTFJ\
  TFKTGKUGLUHLVHMVIMVINWJNWJOWKOXKPXLPYLQYMQYMRZNRZNSZOS_OT_PT_PT`QU`QUaRV\
  aRVaSWbSWbTXbTXcUYcUYcVZdVZdW_eW_eX`eX`fYafYafZbgZbg_ch_ch`ch`diadiaeibe\
  jbfjcfjcgkdgkdhlehleilfimfjmgjmgknhknhlniloimojmpjmpknpknqloqloqmprmprnq\
  snqsorsortpstpstqtuqturuuruvsvvsvwtwwtwwuxxuxxuxxvyyvyywzzvyyvyyuxxtxxtw\
  wsvwsvvruvquuqtupstostorsnqsnqrmprlpqloqknpjnpjmoimohlnhkngkmgjmfjleileh\
  kdhkcgjcfjbfibeiaeh`dh`cg_cgZbfZbfYaeX`eX`dW_dW_cVZcUYbUYbTXaSWaSW`RV`RV\
  _QU_PTZPTZOSYNSYNRXMQXLQWLPWKPVKOVJNUINUIMTHLTGLSGKSFKRFJREIQDIQDHPCHPBG\
  OBFOAFN9EN9EM8DM8CL7CL6BK6AK5AJ49J49I38I37H27H16G16G05F
  }
frm:
 km_10  { ; Kerry Mitchell 
        ; originally conic-near_juli
        ; tweaked so user can directly input
        ; julia parameters (p4) originally hardcoded
        ; to 0,1
        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
          ;SOURCE: kerrym.frm
}
Roger Alexander 		 	   		  
_________________________________________________________________
Game on: Challenge friends to great games on Messenger
http://go.microsoft.com/?linkid=9734387