comment {
  Carr2300.ufm Version 1.1
  Ultra Fractal conversions of Robert Carr's formulas Carr2300 - Carr2399
  by Erik Reckase / Lale Erguner, 12 December 2002

  History:  Version 1.2 - Fixes for UF3 compatibility by
                          Lale Erguner

            Version 1.1 - Major optimization effort, hints, cleanup

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Carr2300-2331,2333-2391,
                              2394-2399              : pixel fix
                          Carr2341,2370              : cosxx fix
                          Carr2389-2399              : statements out of order
                          Carr2392                   : bad assignment
}

Carr2300 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(.8*pixel2)-5*((.3,.6)+pixel2)*pixel2
  d1=real(.0009055/pixel2),d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2300"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  center = (0,-.4)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2301 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(.65*pixel2)-5*((.3,.6)+pixel2)*pixel2+conj(.065/pixel2)
  d1=real(.0009055/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2301"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  center = (0,-.36)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2302 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^3-conj(.01/pixel2)-flip(.015/pixel2)
  c=(-.6256,-.09), q=pixel2/4.375
  d1=.0007155/pixel2, d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2.3 + c - q
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2302"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2303 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2+pixel2^2.18+conj(.13/pixel2)+flip(.02/pixel2) \
    +tanh(.01/pixel2)
  c=(-.6256,-.49), d1=.0003055/pixel2, d7=7*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d7
  z = (z+d7)^2.3 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2303"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2304 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2)^4-conj(.05/pixel2)-flip(.029/pixel2)
  c=flip(pixel2)^4-conj(.02/pixel2)-flip(.02/pixel2)
  d1=-tanh(.0014095/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2304"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2305 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2)^4-conj(.05/pixel2)-flip(.029/pixel2)
  c=flip(pixel2)^4+conj(.02/pixel2)+flip(.02/pixel2)
  d1=sinh(conj(.0014095/pixel2-flip(.001/pixel2))), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2305"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2306 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^2.8-conj(pixel2/5), c=(-.7456,.18)
  d1=sinh(conj(.0005095/pixel2-flip(.001/pixel2))), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2306"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2307 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=2*pixel2+1.5/log(pixel2)
  d1=sinh(conj(.0004295/pixel2-cabs(.0001/pixel2))), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2307"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2308 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  z=pixel2+pixel2^2.5, c=sin((-.82456,.189))
  d1=-.0002395/pixel2 + tanh(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2308"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2309 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=.25*pixel2+cabs(pixel2^2.5)-tan(pixel2)^2-conj(pixel2^2)
  c=sin((-.87646,.189))
  d1=-.0003095/pixel2+tanh(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2309"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2310 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  m1=1/pixel2, m=conj(m1), m2=.125*pixel2+cabs(pixel2^4.9)
  z=m2-tanh(pixel2/3)^2-conj(sinh(pixel2^2.3))+sqr(m/1.5/m1)
  c=sin((-.87446,.189))
  d1=-.0003495/pixel2+tanh(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2310"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2311 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2 = -abs(real(pixel)) + flip(imag(pixel))
  m1=1/pixel2, m=conj(m1) 
  m2=(.125*pixel2 + cabs(pixel2^4.9))^4
  z=m2-tanh(pixel2/3)^2-conj(tan(pixel2^4.3))+sqr(m/1.5/m1)
  c=sin((-.87446,.189))
  d1=-.0003495/pixel2+tanh(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2311"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2312 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2 + cabs(pixel2^4.9))^4-.6
  z=m2-tanh(pixel2)^2-conj(tan(pixel2^4.3)) \
    +sqr(cos(m/6)/sin(m1/4))
  c=sin((-.88946,.219))
  d1=-.0003495/pixel2+conj(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2312"
  periodicity = 0
  maxiter = 500
  magn = 5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2313 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  z=conj(abs(tan(pixel2^2)))+m/4+m1/6, c=sin((-.8556,.1728))
  d1=-.0005395/pixel2+conj(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2313"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2314 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  z=(.25-pixel2)/((m+m1) * sqr(tan(1.5/pixel2)))
  c=sin((-.7956,.297))
  d1=-.0005395/pixel2+conj(.0001/pixel2), d4=4*d1
  z1 = 1.5*z+d1, z2 = 2.25*z+d1, z3 = 3.375*z+d1, z4 = 5.0625*z+d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2314"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2315 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=2*pixel2-1/log(pixel2+log(100*pixel2))
  z=sqr(.9*pixel2)-conj(.01/pixel2)-flip(.001/pixel2)
  d1=-.00039795/pixel2+conj(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ELSE
    z = z - .25*c
  ENDIF
  c = c + d4
  z = (z+d4)^2.4 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2315"
  periodicity = 0
  maxiter = 500
  magn = 2.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2316 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=sin(pixel2)*pixel2^2-conj(.1/pixel2)-flip(.01/pixel2)-.05
  z=pixel2/2, d1=-.0010913/pixel2+conj(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2316"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2317 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b=.01/pixel2, b2=b^2
  z=3.5*pixel2^5-sinh(.1*b-tan(b))+conj(10*b)+.135
  c=sin((-.515,.4099))
  d1=tanh(tanh(conj(0.0001/pixel2)-.0008013/pixel2)), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ELSE
    z = z + b2
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2317"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2318 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=17*pixel2/24
  z=c=2*pixel2^4-r-sin(.8*pixel2-flip(.01/pixel2))\
      +conj(.1275/pixel2)+.117
  d1=tanh(tanh(conj(.0001/pixel2)-.0003913/pixel2)), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + sinh(z/2)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2318"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2319 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(abs(sin(pixel2)))-pixel2+conj(.035/pixel2) \
    -flip(.001/pixel2)
  c=4.25*pixel2-conj(.01/pixel2-flip(.001/pixel2))
  d1=tanh(tanh(conj(.0001/pixel2)-.00021217/pixel2)), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + flip(z)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2319"
  periodicity = 0
  maxiter = 500
  magn = 5
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2320 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=conj(tanh(pixel2/5+pixel2/7))
  z=c=2*pixel2^7-r-sin(.0001/pixel2-flip(.009/pixel2))\
      +conj(.1873/pixel2)+.117
  d1=tanh(tanh(conj(.0001/pixel2)-.00084217/pixel2)), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^1.9 + c + flip(z/1.9)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2320"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2321 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  r=sinh(pixel2/5+pixel2/7)
  z=c=(3*pixel2)^5+r-flip(sqr(pixel2)-conj(.01/pixel2)\
      +flip(.01/pixel2))-.25
  d1=-.00035217/pixel2+flip(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^1.9 + c + flip(z/1.9)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2321"
  periodicity = 0
  maxiter = 500
  magn = 4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2322 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=.2*pixel2/conj(.073*pixel-cos(1/pixel2)-conj(1/pixel2))
  z=pixel2-conj(.1/pixel2)-flip(.01/pixel2)
  d1=-.00030217/pixel2+flip(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + tan(z/2)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2322"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2323 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.1*pixel2/conj(.009*pixel2-cos(1/pixel2)-conj(1/pixel2)))^2
  z=pixel2-conj(.1/pixel2)-flip(.01/pixel2)
  d1=-.00030217/pixel2+flip(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + tan(z/2)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2323"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2324 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=tan(2*pixel2)/(flip(1/pixel2)-conj(1/pixel2))+.2
  d1=-.00230217/pixel2+flip(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + sinh(z/4)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2324"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,.3)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr2325 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.1*pixel2/conj(.009*pixel2-cos(1/pixel2)-conj(1/pixel2)))^2
  z=conj(2*pixel2)^2/(conj(1.5/pixel2)-flip(4/pixel2))
  d1=-.00064217/pixel2+flip(.0001/pixel2), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=5.0625*z+d1
  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)
    c = z1, z=0
  ELSEIF (iter==l2)
    c = z2, z=0
  ELSEIF (iter==l3)
    c = z3, z=0
  ELSEIF (iter==l4)
    c = z4, z=0
  ENDIF
  z=z+d4, c=c+d4
  z = z^2 + c + sinh(z/4)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2325"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2326 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.1*pixel2/conj(.009*pixel2-cos(1/pixel2)-conj(1/pixel2)))^2 \
    -.15
  z=sin(43*pixel2/60)/(sin(1.5/pixel2)-conj(.1/pixel2))-.55
  d1=-.00149917/pixel2+flip(.0001/pixel2), d5=5*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1
  z4=5.0625*z+d1, z5 = 7.59375*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z+z5
  ENDIF
  z = z + d5, c = c + d5
  z = z^2.2 + c + sinh(z/4)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2326"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2327 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.1*pixel2/conj(.009*pixel2-cos(1/pixel2)-conj(1/pixel2)))^2 \
    -.35
  z=abs(pixel2*8) \
    /(sqr(2*pixel2)-flip(5/pixel2)+1/pixel2+conj(1/pixel2))-.15
  d1=-.00499917/pixel2+flip(.0001/pixel2), d5=5*d1
  z1=z+d1, z2=1.5*z+d1, z3=2.25*z+d1 
  z4=3.375*z+d1, z5=5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z+z5
  ENDIF
  z = z + d5, c = c + d5
  z = z^2 + c + sinh(z/4)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2327"
  periodicity = 0
  maxiter = 500
  magn = .12
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2328 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), th1=tanh(1)
  z=pixel2-flip(.01/pixel2)-conj(.1/pixel2)+.285
  c=conj(flip((pixel2-conj(0.15/pixel2))^4))
  d1=-.0013899/pixel2+flip(.0001/pixel2), d5=5*d1, d3=3*d1
  z1=z+d1, z2=1.5*z+d1, z3=2.25*z+d1 
  z4=3.375*z+d1, z5=5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z*th1+c
  ELSE
    z=z*th1
  ENDIF
  z = z + d3, c = c + d5
  z = z^2 + c + sinh(z/4)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2328"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2329 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), c=2*pixel2
  z=sin(pixel2)+sinh(pixel2)+cabs(pixel2)+conj(pixel2) \
    +flip(pixel2)
  d1=-.0005045/pixel2+tanh(.0001/pixel2), d5=5*d1, d3=3*d1
  z1=z+d1, z2=1.5*z+d1, z3=2.25*z+d1 
  z4=3.375*z+d1, z5=5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z+z5
  ENDIF
  z = z + d3, c = c + d5
  z = z^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2329"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2330 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=tan(pixel2)-tanh(pixel2), z=2*m+flip(pixel2), c=(-.7,.2)
  d1=-.0003545/pixel2+tanh(.0001/pixel2), d5=5*d1, d3=3*d1
  z1=z+d1, z2=1.5*z+d1, z3=2.25*z+d1 
  z4=3.375*z+d1, z5=5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z+z5
  ENDIF
  z = z + d3, c = c + d5
  z = z^2.45 + c + sinh(z/6)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2330"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,-.2)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2331 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=cosh(pixel2)^2-cos(pixel2)^2
  z=2*m+flip(pixel2), c=(-.7,.2)
  d1=-.0003545/pixel2+tanh(.0001/pixel2), d5=5*d1, d3=3*d1
  z1=z+d1, z2=1.5*z+d1, z3=2.25*z+d1 
  z4=3.375*z+d1, z5=5.0625*z+d1
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2)), int l5=300
  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
  ELSEIF (iter==l5)
    c=c+z5, z=z+z5
  ENDIF
  z = z + d3, c = c + d5
  z = z^2.45 + c + sinh(z/6)
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2331"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  center = (0,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150) 
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <  300 \
            for best results"
  endparam
}

Carr2332 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=pixel, c=cos(pixel)^2-cosh(pixel)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2332"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2333 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2/tanh(.3/pixel2)+.3, c=pixel2
  d1=-.0003299/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = (z+d1)^2 + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2333"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2334 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2-flip(.01/pixel2)-conj(.1/pixel2)+.285
  c=conj(flip((pixel2-conj(.15/pixel2))^4))
  d1=-.0008099/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = (z+d1)^2 + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2334"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2335 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(conj(abs(pixel2^2))), th12=tanh(1)^2
  d1=-.0032556/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z^2*th12 + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2335"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2336 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(conj(abs(pixel2^2)))+.4
  d1=-.0030556/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = (z*(0,1))^2 + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2336"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2337 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=2*pixel2-flip(.001/pixel2)-conj(.01/pixel2)
  z=pixel2-conj(asin(2*pixel2+.32))
  d1=-.00033556/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2337"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2338 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(conj(abs((pixel2)))), c=3*z-.8
  d1=-.00003556/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2338"
  periodicity = 0
  maxiter = 500
  magn = 5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2339 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=pixel2-conj(.1/pixel2)-flip(.01/pixel2)
  d1=-.0004056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2339"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2340 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=conj(pixel2^2)/flip(1-pixel2)
  d1=-.0008056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2340"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (0,-.6)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2341 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=(1+1.5/pixel2)/conj(cos(2/pixel2-.25))
  d1=-.0008056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2341"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2342 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=conj(1+pixel2/2)/cos(2/pixel2-.25)-.275
  d1=-.0010056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2342"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2343 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=pixel2-flip(sin(.1/pixel2))-conj(sin(.01/pixel2))-.3
  d1=-.0013056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2343"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,.1)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2344 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=(.33-cos(pixel2))/(.33-tan(2*pixel2))+.5
  d1=-.00039056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2344"
  periodicity = 0
  maxiter = 500
  magn = 2.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2345 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(cabs(pixel2))
  d1=-.00089056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2345"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2346 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.3,.3), z=flip(cabs(2*pixel2))
  d1=-.00049056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2346"
  periodicity = 0
  maxiter = 500
  magn = 2.8
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2347 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(cabs(2*pixel2))
  c=pixel2-conj(.01/pixel2)-flip(.1/pixel2)
  d1=-.00046056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2347"
  periodicity = 0
  maxiter = 500
  magn = 2.6
  center = (0,.04)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2348 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(flip(pixel2)-sinh(2*pixel2))-.4
  c=conj(pixel2)-tan(flip(1.4*pixel2+.2))
  d1=-.00046056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2348"
  periodicity = 0
  maxiter = 500
  magn = 2.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2349 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=tanh(pixel2)-5*pixel2*((.3,.6)+pixel2)
  d1=-.00046056/pixel2+flip(.0001/pixel2), sh12=sinh(1)^2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z^2*sh12 + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2349"
  periodicity = 0
  maxiter = 500
  magn = 3.3
  center = (0,-.3)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2350 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=pixel2+pixel2^2.18+conj(.13/pixel2)+flip(.02/pixel2) \
    +tanh(.01/pixel2)
  d1=-.00028056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2350"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2351 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(.013/pixel2)+flip(.002/pixel2)+tanh(.001/pixel2)
  z=pixel2+pixel2^2.18+m^6-.5
  c=cabs(sqr(2*pixel2-m))
  d1=-.00039056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2351"
  periodicity = 0
  maxiter = 500
  magn = 4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2352 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(.013/pixel2)+flip(.002/pixel2)+tanh(.001/pixel2)
  c=pixel2+pixel2^2.18+m^6-.45
  z=cabs(sqr(7*pixel2/3-m))
  d1=-.00034056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2352"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2353 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1), m2=.125*pixel2+cabs(pixel2^4.9)+.23
  z=m2-tanh(pixel2/3)^2-conj(sinh(pixel2^2.3))+(.5*m/m1)^4
  c=z/3.3
  d1=-.00038056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = z/2, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ELSE
    z = z*1.5
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2353"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2354 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=flip(m1), m2=pixel2+cabs(pixel2^4.9)+.09
  c=m2-sinh(pixel2/3)^2-conj(sinh(pixel2^1.7))+(m/2.4/m1)^4
  z=c-conj(.01/pixel2)-flip(.001/pixel2)
  d1=-.00020056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = z/2, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ELSE
    z = z*1.5
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2354"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2355 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2)^4-conj(.05/pixel2)-flip(.029/pixel2)-.25
  c=flip(pixel2)^4-conj(.02/pixel2)-flip(.02/pixel2)-.15
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = z/2, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ELSE
    z = z*1.5
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2355"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2356 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2+cabs(pixel2^4.9))^4-.3
  z=c=m2-tanh(pixel2)^2-conj(tan(pixel2^4.3)) \
      +(cos(m/6)/sin(m1/4))^2
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = z/2, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ELSE
    z = z*1.5
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2356"
  periodicity = 0
  maxiter = 500
  magn = 8
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2357 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2+cabs(pixel2^4.9))^4-.3
  z=c=m2-tanh(pixel2)^2-conj(tan(pixel2^4.3))\ 
      +(cos(m/6)/sin(m1/4))^2
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2357"
  periodicity = 0
  maxiter = 500
  magn = 5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2358 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2 + cabs(pixel2^4.9))^4-.3
  z=m2-tanh(pixel2)^2-conj(tan(pixel2^4.3))\ 
    +(cos(m/6)/sin(m1/4))^2
  c=m2-sinh(pixel2)*2-flip(sin(pixel2^4.3))\ 
    +(cotan(m/6)/flip(m1/4))^2
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2358"
  periodicity = 0
  maxiter = 500
  magn = 6.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2359 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2 + cabs(pixel2^4.9))^4-.6
  m3=(cotan(m/6)/flip(m1/4))^2
  z=c=1.6*m2-sinh(pixel2/3.3)*2.3-flip(imag(pixel2^4.3))+m3-.2
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2359"
  periodicity = 0
  maxiter = 500
  magn = 8
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2360 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m1=1/pixel2, m=conj(m1)
  m2=(1.125*pixel2+abs(pixel2^4.9))^4-.6
  m3=sqr(tan(m/6)/conj(m1/4))+.4
  z=c=1.6*m2/.67-sqr(pixel2/.75)*2.3-sinh(tanh(pixel2/3))+m3
  d1=-.00035056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2360"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2361 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(.1/pixel2)+.135
  z=c=3.5*pixel2^5-sinh(.001/pixel2-tan(.01/pixel2))+m
  d1=-.00095056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z = 0, c = p2*c + p3
    nextzoom = nextzoom + iterspace
  ENDIF
  c = c + d1
  z = z*z + c
  iter = iter + 1
bailout:
  |z| <= 16
default:
  title = "Carr 2361"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = 128
    hint = "The number of iteration steps between value resets."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2362 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^5-tanh(.01/pixel2)
  c=3.5*pixel2^10-sinh(.001/pixel2-tan(.01/pixel2))+.135
  d1=-.00045056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2362"
  periodicity=0
  maxiter=500
  magn=1.5
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2363 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2)
  c=cabs(3.5*pixel2^10)-sinh(.001/pixel2-tan(.01/pixel2))+.135
  d1=-.00045056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2363"
  periodicity=0
  maxiter=500
  magn=2
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2364 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2)^5
  c=cabs(3.5*pixel2^10)-sinh(.001/pixel2-tan(.01/pixel2))
  d1=-.00045056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2364"
  periodicity=0
  maxiter=500
  magn=1.8
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2365 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=sinh(pixel2^2)\ 
      -cabs(4*pixel2-conj(1/pixel2/150)-flip(.001/pixel2))
  d1=-.00075056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2365"
  periodicity=0
  maxiter=500
  magn=3
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2366 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=tanh(pixel2)-cabs(pixel2/1.3-conj(.01/pixel2) \
    -flip(.001/pixel2))
  c=sinh(pixel2/2)\ 
    -cabs(pixel2-conj(1/pixel2/15)-flip(.001/pixel2))+.3
  d1=-.00095056/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2366"
  periodicity=0
  maxiter=500
  magn=1.5
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2367 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2/5.6)-2*pixel2+conj(.01/pixel2)+flip(.001/pixel2)
  c=cabs(2*pixel2-conj(.01/pixel2)-flip(conj(.001/pixel2)))
  d1=-.00015956/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2367"
  periodicity=0
  maxiter=500
  magn=8
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2368 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=sqr(flip(pixel2/5.6)-2*pixel2+conj(.01/pixel2) \
    +flip(.001/pixel2))
  c=cabs(2*pixel2-conj(.01/pixel2)-flip(conj(.001/pixel2)))^2
  d1=-.00009956/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2368"
  periodicity=0
  maxiter=500
  magn=5
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2369 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(cabs(2*pixel2)-log(pixel2-1/tan(.001/pixel2))^-3.8)^2-.2
  z=pixel2+cabs(.5*pixel2)
  d1=-.00002956/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2369"
  periodicity=0
  maxiter=500
  magn=4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2370 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(cabs(pixel2/1.3+sinh(pixel2)) \
    -sqrt(pixel2-1/tan(0.001/pixel2))^-3.8)^2-.2
  z=c+conj(cos(c/1.8))
  d1=-.00002956/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2370"
  periodicity=0
  maxiter=500
  magn=5
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2371 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(tanh(conj(sinh(pixel2+flip(.0035/pixel2)))))
  c=cabs(pixel2+flip(.0055/pixel2))\ 
    -log(pixel2-1/tan(.001/pixel2))^-4.8
  z=2*m+pixel2-flip(.0035/pixel2)
  d1=-.00015956/pixel2+flip(.0001/pixel2)
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2371"
  periodicity=0
  maxiter=500
  magn=4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2372 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=conj(tanh(conj(sinh(pixel2/3+flip(.0035/pixel2)))))
  c=sin((-0.485,0.0959))
  z=flip(m)+4*pixel2+flip(.0535/pixel2)+.3
  d1=flip(-.00005156/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2372"
  periodicity=0
  maxiter=500
  magn=4.5
  center=(0,.04)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2373 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=4*pixel2/tan(.125/pixel2)+.3
  c=tanh((-.695,.0959))
  d1=flip(-.00003356/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2373"
  periodicity=0
  maxiter=500
  magn=6
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2374 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2-flip(.001/pixel2)-conj(.01/pixel2))
  c=cabs((pixel2-conj(.1/pixel2))^4)
  d1=flip(-.00006756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2374"
  periodicity=0
  maxiter=2000
  magn=1.8
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2375 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(pixel2/2.5)+flip(.001/pixel2)+conj(.01/pixel2)
  c=abs((pixel2/1.25)^4)
  d1=flip(-.00007756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2375"
  periodicity=0
  maxiter=2000
  magn=1.2
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2376 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m=sinh(pixel2+flip(.0035/pixel2))
  z=2.5*tanh(pixel2^3.5)\ 
    -sin(.001/pixel2-tan(.01/pixel2))+conj(.001/pixel2)+.135
  c=m+3*tan(pixel2-flip(.0035/pixel2))
  d1=flip(-.00014756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2376"
  periodicity=0
  maxiter=2000
  magn=4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2377 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b=conj(.01/pixel2)+flip(.1/pixel2)
  z=1/log(.2*(pixel2-b))+(pixel2-b)/3+(pixel2/2)^8-.1
  c=(-.7406,-.122)
  d1=flip(-.00030756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2377"
  periodicity=0
  maxiter=2000
  magn=.7
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2378 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=abs(pixel2)-.1, c=(-.7456,-.127)
  d1=flip(-.00079756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2378"
  periodicity=0
  maxiter=2000
  magn=1.2
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2379 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.7806,-.135)
  z=(pixel2/2)^1.25\ 
    -(atan(.1/pixel2)-sqr(acos(.025/pixel2)))^-3+.15
  d1=flip(-.00029756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2379"
  periodicity=0
  maxiter=2000
  magn=.65
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2380 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.7906,-.149), m3=pixel2*cabs(pixel2^2.33)
  z=m3-sinh(.1/pixel2)-sqr(flip(.0051/pixel2))-.2
  d1=flip(-.00045756/pixel2)+.0001/pixel2
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2380"
  periodicity=0
  maxiter=2000
  magn=1.7
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2381 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m3=cabs(pixel2+.5)*pixel2^7
  z=m3-conj(.1/pixel2)-sqr(flip(.0051/pixel2))-.25
  c=(-.5495,-.00245)
  d1=flip(-.00075756/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2381"
  periodicity=0
  maxiter=2000
  magn=1.4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2382 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.8006,-.1645)
  z=pixel2^6-(atan(1/pixel2)-cabs(acos(2/pixel2)))^-6-.09
  d1=flip(-.00060756/pixel2+flip(.0001/pixel2))
  iter=0, nextzoom=iterspace=real(p1)
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2382"
  periodicity=0
  maxiter=2000
  magn=1.4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2383 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(-.372,-.625)
  z=cotanh(1-pixel2)^1.5*pixel2^4-log(conj(.1/pixel2+1.25))^-2.5
  d1=flip(-.00020756/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2383"
  periodicity=0
  maxiter=2000
  magn=15
  center=(0,.004)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2384 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(abs(pixel2))^4/flip(asinh(pixel2))-.2
  c=(-.3009,-.645)
  d1=flip(-.00080756/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2384"
  periodicity=0
  maxiter=2000
  magn=1.2
  center=(0,.09)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2385 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=c=flip(abs(pixel2))^8/flip(asinh(pixel2))-.2
  d1=flip(-.00099756/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2385"
  periodicity=0
  maxiter=2000
  magn=1.3
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2386 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m3=conj(.1/pixel2), m4=.1/pixel2
  z=2*pixel2-flip(m3^6), c=pixel2-cabs(m4-.1)
  d1=flip(-.00059756/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2386"
  periodicity=0
  maxiter=2000
  magn=2.4
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2387 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2)-.15, c=(1/z^z*z+z)^3
  d1=flip(-.00020975/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2387"
  periodicity=0
  maxiter=2000
  magn=3
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2388 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(tan(pixel2^2+flip(.1/pixel2)))
  c=.04*cabs(z*z+1/z)+pixel2
  d1=flip(-.00070475/pixel2+flip(.0001/pixel2))
  int iter = 0, int nextzoom = round(p1)
  int iterspace = nextzoom
loop:
  IF (iter==nextzoom)
    z=0, c=p2*c + p3
    nextzoom=nextzoom + iterspace
  ENDIF
  c=c + d1
  z=z*z + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2388"
  periodicity=0
  maxiter=2000
  magn=1.9
  center=(0,0)
  method=multipass
  param p1
    caption="Nextzoom"
    default=128
    hint="The number of iteration steps between value resets."
  endparam
  param p2
    caption="C-Mult"
    default=(1.2,.1)
    hint="C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption="C-Add"
    default=(-.05,-.06)
    hint="This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
}

Carr2389 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  z=pixel2=-abs(real(pixel))+flip(imag(pixel)), c=(-.7456,-.112)
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2389"
  periodicity=0
  maxiter=1000
  magn=1.3
  center=(0,0)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2390 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  c=pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2/cabs(.3/pixel2)
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2390"
  periodicity=0
  maxiter=1000
  magn=2.5
  center=(0,0)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2391 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=sinh(pixel2^2)-1/log(pixel2-conj(.1/pixel2)-flip(.01/pixel2))
  c=sin((-.7896,.1309))
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2391"
  periodicity=0
  maxiter=1000
  magn=1
  center=(0,0)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2392 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Brian Jones frm.
init:
  z=pixel-conj(.1/pixel-flip(.01/pixel)), c=pixel
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2392"
  periodicity=0
  maxiter=1000
  magn=1
  center=(0,0)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2393 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Brian Jones frm.
init:
  z=c=pixel-conj(.1/pixel)-flip(.1/pixel)
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2393"
  periodicity=0
  maxiter=1000
  magn=1
  center=(-.3,0)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2394 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=conj(flip(2*pixel2)-sinh(pixel2)), c=(-.7456,-.132)
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2394"
  periodicity=0
  maxiter=1000
  magn=1.8
  center=(0,-.2)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2395 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=tan(pixel2)-((.3,.6)+pixel2)*pixel2/.2, c=pixel2
  x=real(z), y=imag(z), x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2395"
  periodicity=0
  maxiter=1000
  magn=2.6
  center=(0,-.27)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2396 (YAXIS) {; Updated for UF by Erik Reckase, March 2000
                  ; Modified Brian Jones frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=cabs(pixel2)-((.3,.6)+pixel2)*pixel2/.2, c=pixel2
  x=real(z), y=imag(z)
  x1=x-p2*fn1(y*y+p3*fn2(y))
  y1=y-p2*fn1(x*x+p3*fn2(x))
  coracao=x1+flip(y1)
  z1=c1=1.5*z, z2=c2=fn3(coracao*pixel2)
  l1=round(real(p1)), l2=round(imag(p1))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=z1, c=c1
  ELSEIF (iter==l2)
    z=z2, c=c2
  ENDIF
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= bailout
default:
  title="Carr 2396"
  periodicity=0
  maxiter=1000
  magn=2.5
  center=(0,-.27)
  method = multipass
  param p1
    caption="Iter. Limits 1/2"
    default=(25,50)
    hint="0 < Re(P1) < Im(P1) < maxiter for best results"
  endparam
  param p2
    caption = "Outer Fn Mult"
    default=(-12,.5)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default=(21,.6)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default=tan()
    hint = "Operates on the sum of the squared z-coordinates \
            and the scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default=sin()
    hint = "Operates on raw z-coordinates"
  endfunc
  func fn3
    caption = "Coracao Function"
    default=tan()
  endfunc
}

Carr2397 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Brian Jones frm. mans-galore-012
init:
  z=c=conj(flip(2*pixel))
  int iter=0, x=real(z), y=imag(z)
  int nextzoom=round(real(p1)), float magnification=imag(p1)
  int iterspace = nextzoom
  x1=x-p2*fn1(y+p3*fn2(y))
  y1=y-p2*fn1(x+p3*fn2(x))
  k = x1 + flip(y1)
loop:
  IF (iter==nextzoom)
    nextzoom=nextzoom + iterspace
    z=0, c=magnification*c
  ENDIF  
  z=z + k
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2397"
  periodicity=0
  maxiter=500
  magn=4
  center=(0,-.1)
  method = multipass
  param p1
    caption = "Nextzoom/Mag"
    default = (25,1.33)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is the magnification factor."
  endparam
  param p2
    caption = "Outer Fn Mult"
    default = (.05,0)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default = (50,0)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default = tan()
    hint = "Operates on the sum of the z-coordinates and the \
            scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default = asin()
    hint = "Operates on raw z-coordinates"
  endfunc
}

Carr2398 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Brian Jones frm. mans-galore-012
init:
  z=c=pixel-(conj(.05/pixel)+flip(conj(.001/pixel)))^4
  int iter=0, x=real(z), y=imag(z)
  int nextzoom=round(real(p1)), float magnification=imag(p1)
  int iterspace = nextzoom
  x1=x-p2*fn1(y+p3*fn2(y))
  y1=y-p2*fn1(x+p3*fn2(x))
  k = x1 + flip(y1)
loop:
  IF (iter==nextzoom)
    nextzoom=nextzoom + iterspace
    z=0, c=magnification*c
  ENDIF
  z=z + k
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2398"
  periodicity=0
  maxiter=500
  magn=2.4
  center=(-.1,0)
  method = multipass
  param p1
    caption = "Nextzoom/Mag"
    default = (25,1.33)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is the magnification factor."
  endparam
  param p2
    caption = "Outer Fn Mult"
    default = (.05,0)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default = (50,0)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default = tan()
    hint = "Operates on the sum of the z-coordinates and the \
            scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default = asin()
    hint = "Operates on raw z-coordinates"
  endfunc
}

Carr2399 {; Updated for UF by Erik Reckase, March 2000
          ; Modified Brian Jones frm. mans-galore-012
init:
  z=c=|pixel|*pixel/2-sinh(.1/pixel)-sqr(flip(.0051/pixel))
  int iter=0, x=real(z), y=imag(z)
  int nextzoom=round(real(p1)), float magnification=imag(p1)
  int iterspace = nextzoom
  x1=x-p2*fn1(y+p3*fn2(y))
  y1=y-p2*fn1(x+p3*fn2(x))
  k = x1 + flip(y1)
loop:
  IF (iter==nextzoom)
    nextzoom=nextzoom + iterspace
    z=0, c=magnification*c
  ENDIF  
  z=z + k
  z=z^2 + c
  iter=iter + 1
bailout:
  |z| <= 16
default:
  title="Carr 2399"
  periodicity=0
  maxiter=500
  magn=1.4
  center=(-.07,0)
  method = multipass
  param p1
    caption = "Nextzoom/Mag"
    default = (25,1.33)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is the magnification factor."
  endparam
  param p2
    caption = "Outer Fn Mult"
    default = (.05,0)
    hint = "This value scales the result of the coordinate \
            transform's Outer Function."
  endparam
  param p3
    caption = "Inner Fn Mult"
    default = (50,0)
    hint = "This value scales the result of the coordinate \
            transform's Inner Function."
  endparam
  func fn1
    caption = "Outer Function"
    default = tan()
    hint = "Operates on the sum of the z-coordinates and the \
            scaled result of the Inner Function"
  endfunc
  func fn2
    caption = "Inner Function"
    default = asin()
    hint = "Operates on raw z-coordinates"
  endfunc
}