[Fractint] Thermal Emission

12 Nov 2010


      The map suggests heat and flame. Fire-along with air,earth, and water one of four elements to the ancients.
Ready made at http://maxitersfractalfollies.blogspot.com.

Thermal Emission      { ; fract510.gif 
                     ; blank
                     ; calctime   0:02:00.94
                     ; created Nov 12, 2010
                     ;  Fractint Version 2004 Patchlevel 10
  reset=2004 type=formula formulafile=kerrym.frm
  formulaname=range-y-3_jul center-mag=0.127469/0.618401/13.64778
  params=0.5/0.5/4/1/1/1 float=y maxiter=1500 inside=0 decomp=256
  periodicity=0
  colors=000000000000000000000000000000000100100200400500700900B00D00G00I0\
  0L00O10Q10T10W10Z10a10e10h20k20o20r20v20y20z30z50z60z80z90zB0zC0zE0zF0zH\
  0zI0zK0zL0zN0zO0zQ0zR0zT0zU0zW0zX0zZ0z_0za0zb0zd0ze0zg0zh0zj0zk0zm0zn0zp\
  0zq0zs0zt0zv0zw0zy0zz1zz3zz4zz6zz7zz7zy7zx7zx7zw7zv7zv7zu7yt7ys7ys7yr7yq\
  6yq6yp6yo6yo6xn6xm6xl6xl6xk6xj6xj6xi5xh5wh5wg5wf5we5we5wd5wc5wc5vb5va5va\
  5v`4v_4vZ4vZ4vY4vX4uX4uW4uV4uV4uU4uT4uS3uS3uR3tQ3tQ3tP3tO3tO3tN3tM3tL3sL\
  3sK3sJ2sJ2sI2sH2sH2sG2sF2rE2rE2rD2rC2rC2rB1rA1rA1r91q81q71q71q61q51q51q4\
  1q31p20p20o20n20m20m20l20k20j20j20i20h20g20g20f20e20d20d20c20b20a20a20`2\
  0_20Z20Z20Y20X20W20W20V20U20T20T20S20R20Q20Q20P20O20N20N20M20L20K20K20J2\
  0I20H20H20G20F20E20E20E20D20D20C20C20C20B20B20A20A20A2092092092082082072\
  0720720620620520520520420420420320320220220220120120010
  }
frm:range-y-3_jul { ; Kerry Mitchell 23jan98
        ;
        ; colors Julia set by real part of iterate, only when
        ; imaginary part of iterate falls in certain range;
        ; range specified in terms of c
        ; use decomp=256
        ;
        ; p1 = Julia parameter
        ; real(p2) = bailout (try 4)
        ; imag(p2) = decomposition scale factor (try 16)
        ; real(p3) = center of range (try 1)
        ; imag(p3) = width of range (try 0.1)
        ; center of range is multiplied by imag(sqr(sqr(c)+c)+c)
        ; calculation done on variable zc, z used for coloring
        ;
        zc=pixel, c=p1, maxr=real(p2), scale=imag(p2), iter=1
        angle=0, fac=imag(sqr(sqr(c)+c)+c)
        lo=(real(p3)-imag(p3)/2)*fac, hi=(real(p3)+imag(p3)/2)*fac
        if (hi<lo)
          temp=lo, lo=hi, hi=temp
          end if
        :
        ;
        ; iteration
        ;   if imaginary part of iterate falls into range,
        ;   scale real part into decomp angle
        ;
        iter=iter+1, zc=sqr(zc)+c, r=imag(zc)
        if ((r>lo)&&(r<hi))
          angle=scale*real(zc)
          end if
        ;
        ; bailout--escape and maximum iterations treated the same
        ;   set "iteration done" flag (iter=-1)
        ;   decomposition method will color according to last time
        ;     imaginary part of iterate was within range
        ;   if iterate was never in range, angle was initially set
        ;     to 0, so decomp with use color 0
        ;
        if ((|zc|>maxr)||(iter==maxit))
          iter=-1
          z=cos(angle)+flip(sin(angle))
          end if
        iter>0
        }
Roger Alexander