mothstyx2{ ; by Ted Nason 2004 archosaur@comcast.net init: pixel2=-abs(real(pixel))+flip(imag(pixel)) m4=conj(.1/pixel) float a = 1 - real(z) float dd = a^2 + imag(z)^2 float d = real(z)^2 - imag(z)^2 float xx = (@mult1*d*a + @mult2*real(z)*imag(z)^2)/dd + real(pixel2) float yy = imag(z)*(@mult3*real(z)*a + @mult4*d)/dd + imag(pixel2) z = xx + flip(yy) ;z=conj(sin(1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))))-.6 c=tanh(sinh(1.5/(.224+.612*real(pixel2)+flip(abs(pixel2)))-m4)) c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z k = pixel2/imag(p2) + .001995 k2 = .15/pixel2 l1=round(real(p1)), l2=round(imag(p1)) l3=round(real(p2)), l4=round(imag(p2)) float bailout=16, int iter=0 loop: IF (iter==l1) z=-.09/c, c=c1 ELSEIF (iter==l2) z=-.09/c, c=c2 ELSEIF (iter==l3) z=-.09/c, c=c3 ELSEIF (iter==l4) z=-.09/c, c=c4 ELSE z=z-.09/c ENDIF c = c + k ;z = .2*real(z^2)*z + z^2 + c - k2 iter=iter+1 bailout: |real(z)| <= bailout default: title = "mothstyx" periodicity = 0 maxiter = 500 magn = .08 center = (0,-1) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) endparam param p2 caption = "Iter Limits 3,4" default = (200,250) endparam param start caption = "Starting point" default = (0,0) endparam float param bailout caption = "Bailout value" default = 100 min = 0 endparam float param mult1 caption = "multiplier 1" default = 1 endparam float param mult2 caption = "multiplier 2" default = 2 endparam float param mult3 caption = "multiplier 3" default = 2 endparam float param mult4 caption = "multiplier 4" default = -1 endparam switch: type = "mothstyx-Julia" seed = #pixel bailout = bailout p1 = p1 p2 = p2 mult1 = mult1 mult2 = mult2 mult3 = mult3 mult4 = mult4 } mothstyx{ ; by Ted Nason 2004 archosaur@comcast.net init: pixel2=-abs(real(pixel))+flip(imag(pixel)) m4=conj(.1/pixel) float a = 1 - real(z) float dd = a^2 + imag(z)^2 float d = real(z)^2 - imag(z)^2 float xx = (@mult1*d*a + @mult2*real(z)*imag(z)^2)/dd + real(#pixel) float yy = imag(z)*(@mult3*real(z)*a + @mult4*d)/dd + imag(#pixel) z = xx + flip(yy) z=conj(sin(1/(imag(pixel2)+flip(real(pixel2-.224)*1.224))))-.6 c=tanh(sinh(1.5/(.224+.612*real(pixel2)+flip(abs(pixel2)))-m4)) c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z k = pixel2/imag(p2) + .001995 k2 = .15/pixel2 l1=round(real(p1)), l2=round(imag(p1)) l3=round(real(p2)), l4=round(imag(p2)) float bailout=16, int iter=0 loop: IF (iter==l1) z=-.09/c, c=c1 ELSEIF (iter==l2) z=-.09/c, c=c2 ELSEIF (iter==l3) z=-.09/c, c=c3 ELSEIF (iter==l4) z=-.09/c, c=c4 ELSE z=z-.09/c ENDIF c = c + k z = .2*real(z^2)*z + z^2 + c - k2 iter=iter+1 bailout: |real(z)| <= bailout default: title = "mothstyx" periodicity = 0 maxiter = 500 magn = .08 center = (0,-1) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) endparam param p2 caption = "Iter Limits 3,4" default = (200,250) endparam param start caption = "Starting point" default = (0,0) endparam float param bailout caption = "Bailout value" default = 100 min = 0 endparam float param mult1 caption = "multiplier 1" default = 1 endparam float param mult2 caption = "multiplier 2" default = 2 endparam float param mult3 caption = "multiplier 3" default = 2 endparam float param mult4 caption = "multiplier 4" default = -1 endparam switch: type = "mothstyx-Julia" seed = #pixel bailout = bailout p1 = p1 p2 = p2 mult1 = mult1 mult2 = mult2 mult3 = mult3 mult4 = mult4 } carr2082tna{ ; Updated for UF by Erik Reckase, February 2000 ; Modified Sylvie Gallet frm. ; modified for UF3 by Ted Nason Feb 2004 archosaur@comcast.net init: c=pixel^2/conj(pixel) z=-flip(imag(pixel))*|pixel|-conj(.1/pixel)-flip(.01/pixel) z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z l1=round(real(p1)), l2=round(imag(p1)) l3=round(real(p2)), l4=round(imag(p2)) float bailout=16, int iter=0 loop: IF (iter==l1) z=c=z1 ELSEIF (iter==l2) z=c=z2 ELSEIF (iter==l3) z=c=z3 ELSEIF (iter==l4) z=c=z4 ENDIF z = z*z + c iter=iter+1 bailout: |real(z)| <= bailout default: title = "carr2082tna" periodicity = 0 maxiter = 500 magn = 1.3 center = (-.5,0) method = multipass param p1 caption = "Iter Limits 1,2" default = (100,150) hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2)