You can't keep a good formula down! Today's fractal was generated from Paul Carlson's
Zf_ang formula which had been mindlessly mutated by myself. For the formula modification I used
the monkey-at-keyboard approach rather than any algorithmic insight
Today's post at http://maxitersfractalfollies.blogspot.com has a bonus feature-
a photo of Tipsy our almost fractal cat.
fract276.gif { ; another orbit trap
; blank
; calctime 0:04:24.79
; created Jun 26, 2010
; Fractint Version 2004 Patchlevel 9
reset=2004 type=formula formulafile=_z.frm formulaname=Zf_Ang_rjr3
function=sin/sqr center-mag=0/0/0.6666667
params=0.1/-0.9/0.5/-12/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
; modded rjr
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
Enter for a chance to get your town photo on Bing.ca! Submit a Photo Now!