First on the agenda is a well done to Jim on the new banner on his fractal page. It sure brightens it up.
Secondly is today's fractal which is generated from Paul Carlson's Zf_Ang formula mindlessly mutated by me.
By squinting and using my imagination I persuaded myself I was looking down the tooth (or barb) lined
gullet of some virtual predator. At http://maxitersfractalfollies.blogspot.com is both today's par
pre-rendered and an anti-aliased jpg version.
fract328.gif { ; carlson stalks
; blank
; calctime 0:03:05.03
; created Jul 24, 2010
; Fractint Version 2004 Patchlevel 9
reset=2004 type=formula formulafile=_z.frm formulaname=Zf_Ang_rjr3
function=tanh/cotan passes=1
center-mag=-3.33067e-016/2.22045e-016/2.73224
params=-0.875/-0.375/2.876613666188543/-6/2/128 float=y maxiter=1500
inside=0 outside=summ
colors=zffzffzeezddzccyccybbyaay``x``x__xZZxYYwYYwXXwWWwVVwUUvUUvTTvSSvR\
RuRRuQQuPPuOOtOOtNNtMMtLLtKKsKKsJJsIIsHHrHHrGGrFFrEEqEEqDDqCCqBBqAApAAp9\
9p88p77o77o66o55o44n44n33n22n11m00m00l00l00k00j00j00i00h00h00g00g00f00e0\
0e00d00c00c00b00a00a00`00`00_00Z00Z00Y00X00X00W00V00V00U00U00T00S00S00R0\
0Q00Q00P00P00O00N00N00M00L00L00K00J00J00I00I00H00G00G00F00E00E00D00C00C0\
0B00B00A00900900800700700600500ffzffzeezddzcczcczbbzaaz``y``y__yZZyYYyYY\
yXXyWWxVVxUUxUUxTTxSSxRRxRRwQQwPPwOOwOOwNNwMMwLLvKKvKKvJJvIIvHHvHHvGGuFF\
uEEuEEuDDuCCuBBuAAtAAt99t88t77t77t66t55s44s44s33s22s11s00r00r00q00p00p00\
o00n00n00m00l00l00k00j00j00i00h00h00g00f00f00e00d00d00c00b00b00a00`00`00\
_00Z00Z00Y00X00X00W00V00U00U00T00S00S00R00Q00Q00P00O00O00N00M00M00L00K00\
K00J00I00I00H00G00G00F00E00E00D00C00C00B00A00A009008007
}
frm:Zf_Ang_rjr3 {; Copyright (c) Paul W. Carlson, 1998
; p1 = Julia set coordinates
; real(p2) = controls size of the elements
; imag(p2) = number of iterations to skip
; real(p3) = number of color ranges
; imag(p3) = number of colors in a range
;
z = k = iter = range_num = bailout = 0
w = pixel
c = p1
prev_modw2 = 1.0e20
size = real(p2)
skip_iters = imag(p2)
num_ranges = real(p3)
colors_in_range = imag(p3)
factor = (colors_in_range - 1) / size
:
w = c * (w - 1 / w)
a = 2 * atan(imag(w) / real(w))
a = a * a + c
a = fn1(1 - a) /fn2(a)
;
dist = abs(|w| - |a|)
IF (dist < size)
bailout = 1
IF (iter > skip_iters)
k = 1
ENDIF
z = (factor * dist + range_num * colors_in_range + 1) * k
ENDIF
range_num = range_num + 1
IF (range_num == num_ranges)
range_num = 0
ENDIF
iter = iter + 1
z = z - iter
bailout == 0 && |w| < 1.0e20
;SOURCE: 98msg.frm
}
Roger Alexander
Turn down-time into play-time with Messenger games Play Now!