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