; Date: Sat, 24 Jul 2010 23:57:07 -0600 ; From: Roger Alexander ; Subject: [Fractint] Jim Muth's Page Upgrade and a Fractal ; Id: ; --------- ; ; 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 ; ; ; ; ; _________________________________________________________________ ; Look 'em in the eye: FREE Messenger video chat ; http://go.microsoft.com/?linkid=9734386 ; _______________________________________________ ; Fractint mailing list ; Fractint@mailman.xmission.com ; http://mailman.xmission.com/cgi-bin/mailman/listinfo/fractint ;