6jock { ; early formula init: z = fn1(#pixel) y = fn2(#pixel) loop: z = z ^ 3 + z * y + y * y + p1 y = z + y + p2 bailout: |z| < |y| default: title = "6jock" switch: type = "6jock" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p2 = #pixel ; comment out the appropriate line below to correspond to the ? parm p1=p1 ;p2 = p2 fn1 = fn1 fn2 = fn2 } 5jock { ; really early formula init: z = #pixel loop: z = fn2(z) * fn1(z) + 1 / z bailout: |z| < 15 default: title = "5jock" } 4jock { ; really early formula init: z = #pixel loop: z = fn2(z*z) + fn1(z) + z + p1 bailout: z <= 16 default: title = "4jock" } 15jock { ; another early formula probably copied from fractint init: z = #pixel loop: shift = fn3(z * p1) + p2 if |z| < shift * @shift z = (fn1(z * z) + p1) / (fn2(z*z)+p2) else z = (fn2(z) + p1) / (fn1(z)+p2) endif bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + \ abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "15jock" param shift caption = "Shift Value" default = 8.0 endparam param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam func fn1 caption = "First Function" default = sin() endfunc func fn2 caption = "Second Function" default = sin() endfunc } 100jock { ; early init: z = #pixel loop: if |z| < @shift z = (fn1(z * z+z) + p1) / (fn2(z*z+z)+p2) else z = (fn2(z + sqrt(z) ) + p1) / (fn1(z + sqrt(z)) + p2) endif bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + \ abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "100jock" param shift caption = "Shift Value" default = 8.0 endparam param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam } 101jock { ;early init: z = #pixel loop: if |z| < @shift z = (fn1(z * fn3(z)) + p1) / (fn3(z* fn2(z))+p2) else z = fn1(fn2(fn3(fn1(z)+z)+z)+z) endif bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + \ abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "101jock" param shift caption = "Shift Value" default = 8.0 endparam param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam } 18jock { ;early init: z = #pixel c = p1 loop: z = fn1(z) +fn2(z*c) + fn3(c+z) +p1 x = fn2(fn1(c) + c ) + x z = fn3(z*x) bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + \ abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "18jock" param shift caption = "Shift Value" default = 8.0 endparam param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam func fn1 caption = "First Function" default = sin() endfunc func fn2 caption = "Second Function" default = sin() endfunc } 20jock { init: z = #pixel y = #pixel loop: y = fn1(y) + y + p1 z = fn2(y)+ z + p2 bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "20jock" param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam } 22jock { ;early init: x = #pixel y = #pixel loop: a = sqr(fn1(x)) b = sqr(fn2(y)) z = fn3(a+b) + z + p1 bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && \ sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || \ sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "22jock" param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 64.0 min = 1 endparam } rbmask1 { ; unknown source init: z = fn1(#pixel) loop: z = p1*fn2(z)^2 + p2*fn3(z)^2 + #pixel bailout: |z| < 4 default: title = "rbmask1" } sn00z { init: complex z = #pixel loop: a=fn1(z^2) - fn2(z/#pixel) b=fn3(a*a/z) - p1 z=fn4(b*p1)-@fn5(z-p3)-p2 bailout: |z| < @bailout default: title = "sn00z" param bailout caption = "Bailout", default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (-0.1125, -0.0875) endparam param p2 caption = "Parameter 2" default = (0.2, -0.8125) endparam param p3 caption = "Parameter 3" default = (0,0) endparam switch: type = "sn00z" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p1 = #pixel ; comment out the appropriate line below to correspond to the ? parm ;p1 = p1 p2 = p2 p3 = p3 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } snuse { init: complex z = #pixel loop: a=fn1(z^2) - fn2(z/#pixel) -p3 b=fn3(a*a/z) - p1 z=fn4(b*p1)-@fn5(z)-p2 bailout: |z| < @bailout default: title = "snuse" param bailout caption = "Bailout", default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (-0.275, 0.2125) endparam param p2 caption = "Parameter 2" default = (0,0) endparam param p3 caption = "Parameter 3" default = (0,0) endparam switch: type = "snuse" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p2 = #pixel ; comment out the appropriate line below to correspond to the ? parm p1 = p1 ;p2 = p2 p3 = p3 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } ftpo { init: z = Pixel loop: foo = fn1(@fn6(z) /flip(@fn9(z))) a = fn2(@fn8(foo)*foo/fn3(z)) + p1 z = fn4((@fn5(a)+z)/@fn7(a)*z) + p2 bailout: |z| <= @bailout default: title = "ftpo" maxiter = 1000 periodicity = 2 center = (0,0) magn = 0.5 param bailout caption = "Bailout Value" default = (1000,0) endparam param p1 default = (1.225, 2.3625) endparam param p2 default = (0.1625, 0.0125) endparam func fn1 caption = " function1" default = ident() endfunc func fn2 caption = " function2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc func fn6 caption = "Func 6" default = ident() endfunc func fn7 caption = "Func 7" default = ident() endfunc func fn8 caption = "Func 8" default = cabs() endfunc func fn9 caption = "Func 9" default = ident() endfunc switch: type = "ftpo" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p2 = #pixel ; comment out the appropriate line below to correspond to the ? parm p1=p1 ;p2=p2 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 fn6 = fn6 fn7 = fn7 fn8 = fn8 fn9 = fn9 bailout = bailout } deimos { init: complex z = #pixel loop: a = log(z^2- p1)+p1 b = fn1(a/z) c = abs(z-a^2) + fn2(a^2/fn3(b^2)) z = (@fn5(c)-fn4(z^2)) + p2 bailout: |z| < @bailout default: title = "deimos" param bailout caption = "Bailout", default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (-1.225,0.6125) endparam param p2 caption = "Parameter 2" default = (-.49375,0.0125) endparam switch: type = "deimos" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p1 = #pixel ; comment out the appropriate line below to correspond to the ? parm ;p1 = p1 p2 = p2 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } flarphy-work { init: complex z = #pixel complex b = 0 complex a = 0 loop: a = fn1(a+ fn2(b/fn3(z)))+p1 b = fn4(b^2 + z)-p1 z = @fn5(b-a+p2)+ flip(p1) bailout: |z| < @bailout default: title = "flarphy-work" param bailout caption = "Bailout" default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (-0.39875, -0.01125) endparam param p2 caption = "Parameter 2" default = (0,0) endparam switch: type = "flarphy-work" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p1 = #pixel ; comment out the appropriate line below to correspond to the ? parm ;p1 = p1 p2 = p2 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } ftpo2k { init: z = Pixel oldfoo = z loop: foo = fn1(@fn6(z) /flip(@fn9(z))) a = fn2(@fn8(foo)*foo/fn3(z)) + p1 bar = flip(foo^2/a^2)-flip(oldfoo/a+p3) z = fn4((@fn5(a)+z)/@fn7(a)*z) + p2/bar oldfoo = foo bailout: |z| < @bailout default: title = "ftpo2k" maxiter = 1000 periodicity = 2 center = (0,0) magn = 0.5 param bailout caption = "Bailout Value" default = (1000,0) endparam param p1 default = (-2.7, -1.2) endparam param p2 default = (-0.85, 0.27) endparam param p3 default = (0.2, -3.5) endparam func fn1 caption = " function1" default = exp() endfunc func fn2 caption = " function2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = flip() endfunc func fn5 caption = "Func 5" default = ident() endfunc func fn6 caption = "Func 6" default = ident() endfunc func fn7 caption = "Func 7" default = ident() endfunc func fn8 caption = "Func 8" default = cos() endfunc func fn9 caption = "Func 9" default = ident() endfunc switch: type = "ftpo2k" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p2 = #pixel ; comment out the appropriate line below to correspond to the ? parm p1=p1 ;p2 = p2 p3 = p3 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 fn6 = fn6 fn7 = fn7 fn8 = fn8 fn9 = fn9 bailout = bailout } Oscar { init: complex z = #pixel loop: a = fn1(p2*fn4(z)^3) + acos(conj(z)^2 + sqr(flip(z))) z = sqr(a+p1) + fn3(z)/fn2(#pixel) bailout: |z| < @bailout default: title = "Oscar" param bailout caption = "Bailout" default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc param p1 caption = "Parameter 1" default = (-.4,0) endparam param p2 caption = "Parameter 2" default = (0,-.1) endparam switch: type = "oscar" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p2 = #pixel ; comment out the appropriate line below to correspond to the ? parm p1=p1 ;p2 = p2 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 bailout = bailout } neptwona { init: complex z = #pixel loop: a = z^2 - p1 b = fn1(a^2 - p3*z^2)/fn2(z^2/a) c = fn3(a - fn2(b*p2) + fn3(z)) z = ((fn4(b+c)-@fn5(z)) + b/@p4) bailout: |z| < @bailout default: title = "neptwona" param bailout caption = "Bailout", default = 30 endparam func fn1 caption = "Func 1" default = sqr() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (-0.325, 0.00625) endparam param p2 caption = "Parameter 2" default = (1,0) endparam param p3 caption = "Parameter 3" default = (1,0) endparam param p4 caption = "Parameter 4" default = (-1.93125, 0.48125) endparam switch: type = "neptwona" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p1 = #pixel ; comment out the appropriate line below to correspond to the ? parm ;p1 = p1 p2 = p2 p3 = p3 p4 = p4 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } ploom { init: complex z = #pixel loop: a = z*z b = (a-z) / #pixel + p1 c = fn3(a*b) / (fn1(a+b)* fn2(a-b)) z = fn4(z+a+b+@fn5(c)) / p2 - c bailout: |z| < @bailout default: title = "ploom" param bailout caption = "Bailout", default = 30 endparam func fn1 caption = "Func 1" default = ident() endfunc func fn2 caption = "Func 2" default = ident() endfunc func fn3 caption = "Func 3" default = ident() endfunc func fn4 caption = "Func 4" default = ident() endfunc func fn5 caption = "Func 5" default = ident() endfunc param p1 caption = "Parameter 1" default = (0,.1) endparam param p2 caption = "Parameter 2" default = (1.5375,1.2375) endparam switch: type = "ploom" ; edit the line p? = #pixel , change the ? to the parm you want to tweak p1 = #pixel ; comment out the appropriate line below to correspond to the ? parm ;p1=p1 p2 = p2 fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 bailout = bailout } IFS-Barnsley+jockIII { ; IFS-Barnsley by Samuel Monnier, 5.01 ; hacked by Jock Cooper init: z = #pixel c1 = fn1(@bseed) c2 = fn2(@bseed) complex auxz = (0,0) auxc = @c loop: if @mode == 0 || @mode == 2 if real(z) > @c z = fn4(z+@p1)*c1 else z = @fn5(z+@p2)*c2 endif endif if @mode == 1 || @mode == 2 if imag(z) > @c z = fn4(z+@p1)*c1 else z = @fn5(z+@p2)*c2 endif endif if @mode == 3 if cabs(z) > exp(@c) z = fn4(z+@p1)*c1 else z = @fn5(z+@p2)*c2 endif endif if @mode == 4 if real(z)*imag(z) > @c z = fn4(z+@p1)*c1 else z = @fn5(z+@p2)*c2 endif endif if @mode == 5 if fn3(z) > @c z = fn4(z+@p1)*c1 else z = @fn5(z+@p2)*c2 endif endif if @mode == 6 if (@func_operation == 0) auxz = fn3(z + @p3) elseif (@func_operation == 1) auxz = fn3(z - @p3) elseif (@func_operation == 2) auxz = fn3(z * @p3) elseif (@func_operation == 3) auxz = fn3(z / @p3) elseif (@func_operation == 4) auxz = fn3(z ^ @p3) endif auxc = @fn6(auxc + @p4)*(c1+c2) if auxz > auxc z = fn4(auxz+@p1)*c1 else z = @fn5(auxz+@p2)*c2 endif endif if @mode == 7 if fn3(z) > @c if (@func_operation == 0) z = @fn6(fn4(z+@p1)*c1 + @p3) elseif (@func_operation == 1) z = @fn6(fn4(z+@p1)*c1 - @p3) elseif (@func_operation == 2) z = @fn6(fn4(z+@p1)*c1 * @p3 ) elseif (@func_operation == 3) z = @fn6(fn4(z+@p1)*c1 / @p3) elseif (@func_operation == 4) z = @fn6((fn4(z+@p1)*c1) ^ @p3) endif else if (@func_operation == 0) z = @fn6(@fn5(z+@p2)*c2 + @p4) elseif (@func_operation == 1) z = @fn6(@fn5(z+@p2)*c2 - @p4) elseif (@func_operation == 2) z = @fn6(@fn5(z+@p2)*c2 * @p4) elseif (@func_operation == 3) z = @fn6(@fn5(z+@p2)*c2 / @p4) elseif (@func_operation == 4) z = @fn6((@fn5(z+@p2)*c2) ^ @p4) endif endif endif if @mode == 8 if fn3(z) > @c if (@func_operation == 0) z = @fn6(fn4(z*c1+p1) + @p3) elseif (@func_operation == 1) z = @fn6(fn4(z*c1+p1) - @p3) elseif (@func_operation == 2) z = @fn6(fn4(z*c1+p1) * @p3 ) elseif (@func_operation == 3) z = @fn6(fn4(z*c1+p1) / @p3) elseif (@func_operation == 4) z = @fn6(fn4(z*c1+p1) ^ @p3) endif else if (@func_operation == 0) z = @fn6(@fn5(z*c2+p2) + @p4) elseif (@func_operation == 1) z = @fn6(@fn5(z*c2+p2) - @p4) elseif (@func_operation == 2) z = @fn6(@fn5(z*c2+p2) * @p4) elseif (@func_operation == 3) z = @fn6(@fn5(z*c2+p2) / @p4) elseif (@func_operation == 4) z = @fn6(@fn5(z*c2+p2) ^ @p4) endif endif endif bailout: |z| < @bailout default: title = "IFS-Barnsley+jock III" param bailout caption = "Bailout" default = 1e3 endparam param mode caption = "Mode" default = 0 enum = "Real" "Imaginary" "Alternate" "Cabs" "Cross" "Func" "FuncII" "FuncIII" "FuncIV" endparam param bseed caption = "Barnsley Seed" default = (0,0) endparam param c caption = "Critical Value" default = 0.0 endparam param p1 caption = "Parameter 1" default = (-1,0) endparam param p2 caption = "Parameter 2" default = (1,0) endparam func fn1 caption = "Case 1 Seed Function" default = ident() endfunc func fn2 caption = "Case 2 Seed Function" default = ident() endfunc func fn4 caption = "Extra Function 1" default = ident() endfunc func fn5 caption = "Extra Function 2" default = ident() endfunc func fn3 caption = "Switch Function" default = ident() visible = (@mode == 5 || @mode == 6 || @mode == 7 || @mode == 8) endfunc func fn6 caption = "Switch Func 2" default = ident() visible = (@mode == 6 || @mode == 7 || @mode == 8) endfunc param @func_operation caption = "Switch Operation" enum = "+" "-" "*" "/" "^" visible = (@mode == 6 || @mode == 7 || @mode == 8) endparam param p3 caption = "Switch Parameter 1" default = (1,0) visible = (@mode == 6 || @mode == 7 || @mode == 8) endparam param p4 caption = "Switch Parameter 2" default = (1,0) visible = (@mode == 6 || @mode == 7 || @mode == 8) endparam switch: type = "IFS-Barnsley+jockIII" p1 = #pixel ;p1 = p1 p2 = p2 p3 = p3 p4 = p4 bseed = bseed fn1 = fn1 fn2 = fn2 fn3 = fn3 fn4 = fn4 fn5 = fn5 fn6 = fn6 mode = mode c = c func_operation = func_operation }