[Fractint] Greenery

15 Oct 2010


      More summer greenery reminders. Perhaps I can't face the possibility of frigid winter? 
At the usual http://maxitersfractalfollies.blogspot.com.


fract473.gif       { ; green swirls
                     ; blank
                     ; calctime   0:09:38.76
                     ; created Oct 15, 2010
                     ;  Fractint Version 2004 Patchlevel 9
  reset=2004 type=formula formulafile=kerrym.frm
  formulaname=ave8triangcount_m center-mag=-0.837046/0.868648/3.081854
  params=1000000/0/3/3 float=y maxiter=1500 inside=0
  invert=-0.485518967253/-0.217505417035/-0.711050752281 decomp=256
  periodicity=0 cyclerange=0/255
  colors=Dp1Cp1Co1Bo1Ao19n18n17n16m06l06k06j06i06h06g06f05e05d05c05b05a05`\
  05_05Z04Y04X04W04V04U04T04S04R03P03O03N03M03L03K03J03I02H02G02F02E02D02C\
  02B02A01901801701601501401300100100200300400500700800900A00B00D00E00F00G\
  00H00J00K00L00M00N00P00Q00R00S00T00V00W00X00Y00Z00`00a00b00c00d00f00g00h\
  00i00k00k01k02k03l04l05l05m06m07m08n09n0An0Bo0Bo0Co0Dp0Ep0Fp0Gp0Hq0Hq0Iq\
  0Jr0Kr0Lr0Ms0Ns0Ns0Ot0Pt0Qt0Ru0Su0Tu0Tu0Uv0Vv0Wv0Xw0Yw0Zw0Zx0_x0`x0ay0by\
  0cy0dz1dz1ez1ez1fz2fz2gz2gz2hz3hz3iz3iz3jz4jz4kz4kz4lz5mz5mz5nz5nz6oz6oz\
  6pz6pz7qz7qz7rz7rz8sz8sz8tz8uz9uz9uz9tz9tz9tz9sz9sz8sz8rz8rz8rz8qz8qz7qz\
  7pz7pz7oz7oz7oz6nz6nz6nz6mz6mz6mz5lz5lz5lz5kz5kz5kz4jz4jz4iz4iz4iz4hz3hz\
  3hz3gz3gz3gz3fz2fz2fz2ez2ez2dz1dz1cz1bz1ay1`y1_y1_x1Zx1Yx1Xw1Ww1Vw1Uv1Uv\
  1Tv1Su1Ru1Qu1Pt1Ot1Ot1Nt1Ms1Ls1Ks1Jr1Ir1Ir1Hq1Gq1Fq1Ep1
  }
frm:ave8triangcount_m {; Kerry Mitchell 12feb98
        ; See the end of formula ave8rootcount_j for Kerry Mitchell's
        ; explanation of his "average" formulas
        ; real(p1) = bailout (try 1e6)
        ; imag(p1) = unused
        ; real(p2) = inner coloring speed (0 for outer only)
        ; imag(p2) = outer coloring speed (0 for inner only)
  zc=pixel, c=pixel, rc=cabs(c), r2zc=|zc|
  iter=1, maxr=real(p1), count=0
  b1=maxr, fac=b1^0.125, b2=b1*fac, b3=b2*fac
  b4=b3*fac, b5=b4*fac, b6=b5*fac, b7=b6*fac, b8=b7*fac
  iter1=iter2=iter3=iter4=iter5=iter6=iter7=iter8=0
  inspeed=real(p2)*pi*255/128
  outspeed=imag(p2)*pi*255/128:
  iter=iter+1, z2=sqr(zc)+c, rz2=cabs(z2)
  fac=abs(r2zc-rc), q=(rz2-fac)/(r2zc+rc-fac)
  zc=z2, r2zc=|zc|, count=count+q
  IF (r2zc>b1)
    IF (iter1==0)
      iter1=iter, q1=count/iter
    ENDIF
    IF (r2zc>b2)
      IF (iter2==0)
        iter2=iter, q2=count/iter
      ENDIF
      IF (r2zc>b3)
        IF (iter3==0)
          iter3=iter, q3=count/iter
        ENDIF
        IF (r2zc>b4)
          IF (iter4==0)
            iter4=iter, q4=count/iter
          ENDIF
          IF (r2zc>b5)
            IF (iter5==0)
              iter5=iter, q5=count/iter
            ENDIF
            IF (r2zc>b6)
              IF (iter6==0)
                iter6=iter, q6=count/iter
              ENDIF
              IF (r2zc>b7)
                IF (iter7==0)
                  iter7=iter, q7=count/iter
                ENDIF
                IF (r2zc>b8)
                  IF (iter8==0)
                    iter8=iter, q8=count/iter
                  ENDIF
                  iter=-1
                  q=(q1+q2+q3+q4+q5+q6+q7+q8)*0.125
                  angle=q*outspeed
                  z=cos(angle)+flip(sin(angle))
                ENDIF
              ENDIF
            ENDIF
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
  IF (iter==maxit)
    q=count/iter
    angle=q*inspeed
    z=cos(angle)+flip(sin(angle))
    iter=-1
  ENDIF
  iter>0
  ;SOURCE: 98msg.frm
}
Roger Alexander