[Fractint] Blue Swirls

11 Nov 2010


      A presentation of blue swirls. Ready made at http://maxitersfractalfollies.blogspot.com


Blue Swirls       { ; fract504.gif noodle-ish
                     ; blank
                     ; calctime   0:04:06.84
                     ; created Nov 11, 2010
                     ;  Fractint Version 2004 Patchlevel 10
  reset=2004 type=formula formulafile=conic.frm formulaname=km_08
  center-mag=-0.894769/0.249144/2.693612/1/180
  params=-0.2698141422772912/-0.1384014404736473/-0.195287942136906/0.3802\
  30109561449/0.1877803888058107/0.9158909878841517/-0.9793694875942259/0.\
  6154667806024354 float=y maxiter=1500 inside=0 outside=atan
  decomp=128
  colors=atubuvcwwdxxfzzfzzeyydyydxxcwxbvwavwauv`tv_tuZsuYrtYqtXqsWpsVorVo\
  rUnqTmpSlpRloRkoQjnPjnOimOhmNglMglLfkLekKejJdjIciHbhHbhGagF`gE`fE_fDZeCY\
  eBYdAXdAWc9Wc8Vb7Ub7Ta6Ta5S`4R_3Q_2PZ2PZ1OY0NX1NX2OY3PY4QZ5R_6R_7S`8Ta9U\
  aAVbCWcDXcEYdFZeG_eH_fI`gJagKbhLciMdiNejOfkPgkQhlRhmSimTjnUkoVloXmpYnqZo\
  q_pr`qsaqsbrtcsudtueuvfvwgwxhxxiyykzzjyyixyhwxgwxfvweuvdtvcsubrtart`qs_p\
  sZorYnqXmqWmpVloUkoTjnSinRhmQhlPglOfkNekMdjLciKciJbhIagH`gG_fFZfEZeDYdCX\
  dBWcAVb9Ub8Ua7Ta6S`5R`4R_3QZ2PZ1OY0NX1NX2OY3PY4QZ5R_6S`7T`8Ua9VbAWcBXcCY\
  dDZeE_fF`fGagHbhJciKdiLejMfkNglOhlPimQjnRkoSloTmpUnqVorWprXqsYrtZsu_tu`u\
  vavwbwxcxxbwxavw`uvZtuYrtXqtWpsUorTnqSmpRkoPjnOimNhmMglKfkJdjIciHbhFagE`\
  fD_fCYeAXd9Wc8Vb7Ta5S`4R_3QZ2PY0NX1OX2PY3QZ4RZ6S_7T`8Ua9VbAXbBYcDZdE_eF`\
  fGafHbgIchKdiLejMfjNgkOhlPimRjnSlnTmoUnpVoqWprYqrZrs_st
  }
frm:km_08 { ; Kerry Mitchell 11may98
        ; originally conic-near_jul16
        ; tweaked by rjr 2k04 to allow user to directly input
        ; julia parameters previously hardcoded to 0.2882,0.0106
        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