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

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

            Version 1.2 - Minor fixes, eliminated divide by zero

            Version 1.1 - Major optimization overhaul, cleanup, hints

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Fixed errors in Carr 2185, 2186, 2187
}

Carr2100 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init: 
  c=(-.7456,-.13)
  z=conj(tan(pixel))-sqr(conj(.1/pixel))-sqr(flip(.02/pixel))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2100"
  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
}

Carr2101 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init: 
  z=c=pixel-1/(log(tan(pixel))^10+pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2101"
  periodicity = 0
  maxiter = 500
  magn = 1.25
  center = (-.2,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
}

Carr2102 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996 
init:
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  c=pixel-.5/(log(conj(pixel))^12+pixel)+conj(.04/pixel)
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c-.087
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2102"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (-.2,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
}

Carr2103 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=c=pixel-.5/(log(conj(pixel))^12+pixel)+conj(.04/pixel)
  float compt=0, float limit=real(p1*cos(pixel/5))
  float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2103"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.2,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "This iteration limit is scaled by the cosine of \
            the current pixel divided by 5.  The real part of \
            this scaled iteration limit signals a change in the \
            value of c."
  endparam
}

Carr2104 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=flip(1-pixel)*sqr(pixel)-conj(.1/pixel)-flip(.01/pixel)
  c=(-.8006,-.149), int iter = 1, rad = 6, center = (1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), int limit = round(real(p1))
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2104"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.25,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2105 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init: 
  z=flip(1+pixel)*sqr(conj(pixel))-conj(.1/pixel)+flip(.01/pixel)
  c=(-.63,-.4), int iter = 1, rad = 6, center = (1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), int limit = round(real(p1))
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2105"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.3,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2106 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. 
init:
  z=c=pixel-2/(sinh(0.10/pixel)-sqr(tanh(0.010/pixel)))
  float iter = 1, rad = 6, center = (1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2106"
  periodicity = 0
  maxiter = 500
  magn = 16
  center = (.025,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2107 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init: 
  c=(-.8006,-.149)
  z=pixel-1/(sinh(.1/pixel)-sqr(cosh(.025/pixel)))
  z1 = 1.5*z, z2 = 2.25*z, z3 = 3.375*z, z4 = 5.0625*z
  float l1=real(p1), float l2=imag(p1)
  float l3=real(p2), float l4=imag(p2)
  float bailout=16, float iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+.75
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2107"
  periodicity = 0
  maxiter = 500
  magn = 1.35
  center = (-1.05,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
}

Carr2108 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=pixel-(tanh(.1/pixel)-sqr(sinh(.025/pixel)))^-6
  float iter = 1, rad = 6, center = (1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2108"
  periodicity = 0
  maxiter = 500
  magn = 10
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2109 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(-.8006,-.149)
  z=pixel-(atan(.1/pixel)-sqr(acos(.025/pixel)))^-6
  float iter = 1, rad = 6, center = (1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2109"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2110 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.8006,-.149), p01=.1/pixel
  z=pixel-1/log(p01)-cos(p01+1.25)+conj(p01)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2110"
  periodicity = 0
  maxiter = 500
  magn = 1.35
  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
}

Carr2111 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.8006,-.159)
  z=pixel-1/log(.05/pixel)-cos(.1/pixel+1.25)+conj(.025/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2111"
  periodicity = 0
  maxiter = 500
  magn = 1.35
  center = (.1,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
}

Carr2112 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.8006,-.149)
  z=pixel-cos(.1/pixel+1.25)+conj(.1/pixel+1.35)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=5.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2112"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (-1.2,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
}

Carr2113 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.3,-.6)
  z=cotanh(1-pixel)^1.5*pixel^4-log(conj(.1/pixel+1.25))^-2.5
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2113"
  periodicity = 0
  maxiter = 500
  magn = 15
  center = (-.017,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
}

Carr2114 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.3,-.625)
  z=pixel^2.33/log(1.667-pixel)^2.87 \
    -log(conj(.1/pixel+1.25))^-2.95
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2114"
  periodicity = 0
  maxiter = 500
  magn = 15
  center = (-.017,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
}

Carr2115 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-1.099,-.2349)
  z=pixel^2.33/log(1.667-pixel)^2.87 \
    -log(conj(.1/pixel+1.25))^-2.95
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2115"
  periodicity = 0
  maxiter = 500
  magn = 15
  center = (-.017,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
}

Carr2116 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-1.099,-.2349)
  z=conj(pixel^2.33)/log(2.667-pixel)^2.87 \
      -log(acos(.1/pixel+1.25))^-2.95
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2116"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

Carr2117 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(1-pixel)^1.8/flip(asinh(pixel+1.5))
  c=(-.3,-.625)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2117"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (1.2,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
}

Carr2118 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(abs(1-pixel))^1.66/flip(asinh(pixel+1.5))
  c=(-.3009,-.625)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c-.057
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2118"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (1.3,-0.2)
  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
}

Carr2119 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(cos(1-pixel))^1.66/flip(asinh(pixel+1.5))
  c=(-.3009,-.63525)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c-.057
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2119"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (1.3,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
}

Carr2120 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=log((pixel+4/pixel)^1.8)*asin(1-pixel)
  c=(-.7456,-.132)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2120"
  periodicity = 0
  maxiter = 500
  magn = 4
  center = (1.08,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
}

Carr2121 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(pixel-asin(pixel))
  c=(-1.099,-.2349)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2121"
  periodicity = 0
  maxiter = 500
  magn = .04
  center = (2.75,-0.6)
  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
}

Carr2122 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(conj(pixel)-asin(pixel))
  c=(-1.099,-.2349)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2122"
  periodicity = 0
  maxiter = 500
  magn = .05
  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
}

Carr2123 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/pixel/(3*pixel-flip(1/pixel)-conj(1/pixel))
  c=(-1.099,-.2349)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2123"
  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
}

Carr2124 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=3.3/pixel/(cabs(2.15*pixel-flip(.01/pixel)-conj(.1/pixel)))
  c=(-1.099,-.2349)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2124"
  periodicity = 0
  maxiter = 500
  magn = .15
  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
}

Carr2125 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel+1.25-flip(asin(.01/pixel))-conj(asin(.1/pixel))
  c=(-.3009,-.63555)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2125"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-1.2,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
}

Carr2126 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/pixel/(3*pixel-flip(1/pixel)-conj(1/pixel))
  c=(-1.099,-.2349)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2126"
  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
}

Carr2127 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-.01/conj(pixel)-.01/flip(pixel)
  c=sin((-.81256,.189))
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2127"
  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
}

Carr2128 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(tan(1/pixel))/(5*pixel-(sin(flip(pixel)))-conj(1/pixel))
  c=1/(tan(pixel)*(pixel))/(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2128"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr2129 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  d=.3
  z=c=1/(tan(pixel)*pixel) \
      /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2129"
  periodicity = 0
  maxiter = 500
  magn = .15
  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
}

Carr2130 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  d=.3/pixel
  z=c=1/(tan(pixel)*pixel) \
      /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2130"
  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
}

Carr2131 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=sin((-.81256,.189)), d=.3/pixel
  z=1/(cos(pixel)*pixel) \
    /(pixel-sqr(flip(1/pixel)-sqr(conj(1/pixel))))
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2131"
  periodicity = 0
  maxiter = 500
  magn = .25
  center = (.1,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
}

Carr2132 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=sin((-.81256,.189)), d=.1/pixel
  z=sin(conj(pixel+1.5))*conj(pixel-0.75)/tanh((-.81256,.189))
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2132"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (.2,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
}

Carr2133 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  d=.1/pixel
  z=c=flip(conj(pixel^2))/conj(pixel)
  z1=1.5*z+d, z2=2.25*z+d, z3=3.375*z+d, z4=11.0625*z+d
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2133"
  periodicity = 0
  maxiter = 500
  magn = 1
  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) <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
}

Carr2134 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  d=.1/pixel, d1=flip(1/pixel)
  z=flip(conj(pixel^2))/flip(pixel), c=(-.7456,-.132)
  z1=1.5*z+d, z2=2.25*z+d1, z3=3.375*z+d, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2134"
  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
}

Carr2135 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel-1/log(pixel-real(.01/pixel) \
      +flip(imag(.1/pixel)*2.924))
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2135"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.35,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
}

Carr2136 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=tan(pixel-1/log(real(pixel^2+1.25)+flip(imag(pixel)*2.924)))
  d1=real(.004/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2136"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.4,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
}

Carr2137 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel, c=sin((-.81256,.189)), d1=flip(.0018/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2137"
  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
}

Carr2138 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^2-flip(pixel)^4, c=sin((-.81256,.189))
  d1=flip(.00045/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2138"
  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
}

Carr2139 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^2.5-flip(pixel)^2-conj(pixel^2)
  c=sin((-.81256,.189)), d1=flip(.00045/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2139"
  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
}

Carr2140 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=conj(pixel^2.5)-(pixel-conj(.1/pixel))^4
  c=sin((-.81256,.189)), d1=flip(.00045/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2140"
  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
}

Carr2141 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=conj(pixel^1.5)-(pixel-log(.1/pixel))^4
  c=sin((-.81256,.189)), d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2141"
  periodicity = 0
  maxiter = 500
  magn = 12
  center = (.12,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
}

Carr2142 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=conj(pixel^1.5)-(pixel-log(.1/pixel))^4
  d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2142"
  periodicity = 0
  maxiter = 500
  magn = 14
  center = (.13,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
}

Carr2143 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=conj(pixel^1.5)-(pixel-sqrt(.1/pixel))^4
  d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2143"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.6,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
}

Carr2144 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=log(pixel-conj(.01/pixel))^-2.5
  c=sin((-.81256,.189)), d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2144"
  periodicity = 0
  maxiter = 500
  magn = .09
  center = (5,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

Carr2145 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/pixel-log(pixel-1/cos(.01/pixel))^-2.5
  c=sin((-.81256,.189)), d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2145"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (3.8,6)
  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
}

Carr2146 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(1-pixel)^1.5-log(pixel-1/sin(.01/pixel))^-2.5
  c=sin((-.81256,.189)), d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
  l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2146"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (1,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
}

Carr2147 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(1-pixel)^2.5-log(pixel-1/sqrt(.01/pixel)-conj(.1/pixel))^-1.5
  c=sin((-.81256,.189)), d1=flip(.00053/pixel)
  z1=1.5*z, z2=2.25*z, z3=3.375*z, z4=11.0625*z
   l1=round(real(p1)), l2=round(imag(p1))
  l3=round(real(p2)), l4=round(imag(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    c=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d1
  z=(z+d1)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2147"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (1,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
}

Carr2148 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=conj(abs(tan(pixel^2))), c=sin((-.7456,.132))
  d1=flip(.0002925/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2148"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.03,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
}

Carr2149 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(conj(abs(pixel^2))), c=sin((-.7456,.132))
  d1=flip(.0004925/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2149"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.03,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
}

Carr2150 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(conj(abs(pixel*sin(pixel+1)))), c=sin((-.7456,.132))
  d1=flip(.0004925/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2150"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-.3,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
}

Carr2151 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=flip(conj(abs(sin(pixel))))*asin(pixel-flip(.01/pixel))
  d1=-conj(.0005525/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2151"
  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
}

Carr2152 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sin(.25-pixel)/sin(1/pixel), c=sin((-.7456,.232))
  d1=-conj(.0005525/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2152"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0.05,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
}

Carr2153 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(.33-cos(pixel))/(.33-tan(pixel)), c=sin((-.7456,.232))
  d1=-conj(.0005525/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2153"
  periodicity = 0
  maxiter = 500
  magn = .75
  center = (0.17,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
}

Carr2154 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(.33-cos(pixel))/(.33-tan(pixel))
  c=sin((-.81256,.189))
  d1=-conj(.00000950/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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=z=z1
  ELSEIF (iter==l2)
    c=z=z2
  ELSEIF (iter==l3)
    c=z=z3
  ELSEIF (iter==l4)
    c=z=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2154"
  periodicity = 0
  maxiter = 500
  magn = .75
  center = (0.17,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
}

Carr2155 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(conj(abs(pixel^2)))
  c=sin((-.85126,.139))
  float iter = 1, rad = 6, center=(-3.6,-3)
  pix=(10*pixel+(5,-3.5))*(-.1,-.95)
  zn=flip(center+rad/(pix-center)), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE 
  float b1=16, float b2=.0001
  d1=-conj(.0005455/pixel), d2=sqr(d1)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c + d2
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1 + d2
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2155"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2156 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(conj(abs(log(pixel)*sqrt(pixel))))
  c=sin((-.85126,.139))
  float iter=1, rad=6, center=(-3.6,-3)
  pix=(10*pixel+(5,-3.5))*(-.1,-.95)
  zn=flip(center+rad/(pix-center)), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = 0.0001
  d1=-conj(.0005455/pixel), d2=sqr(d1)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c + d2
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1 + d2
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2156"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (.9,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2157 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=pixel-(tanh(.25/pixel)-sqr(sinh(.0125/pixel)))^-6
  float iter=1, rad=6, center=(-7.6,-3)
  pix=(10*sqr(pixel)+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = 0.0001
  d1=conj(.0005455/pixel)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2157"
  periodicity = 0
  maxiter = 500
  magn = 4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2158 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  p0=1/pixel, c=conj(pixel)/(flip(p0)-conj(p0))
  z=p0/(3*pixel-flip(p0)-conj(p0))
  float iter=1, rad=6, center=(-7.6,-3)
  pix=(10*sqr(pixel)+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = 0.0001
  d1=conj(.0005455/pixel)
loop:
  test0 = !test0  
  IF (iter!=limit)
    z = conj(z-zn) + conj(zn)
  ELSE
    z = conj(zn)
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 2.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2158"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2159 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(1-pixel)^1.8/flip(asinh(pixel+1.5)), c=(-.3,-.625)
  float iter=1, rad=6, center=(-7.6,-3.0)
  pix=(10*sqr(pixel)+(5.0,-3.5))*(-0.1,-0.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = 0.0001, d1=conj(.00054550/pixel)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 2.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2159"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (1.1,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2160 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(-.7456,-.132)
  z=log((pixel+4/pixel)^1.8)*asin(1-pixel)
  float iter=1, rad=6, center=(-7.6,-3)
  pix=(10*sqr(pixel)+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), float limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001, d1=conj(.00054550/pixel)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + .099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2160"
  periodicity = 0
  maxiter = 500
  magn = 4
  center = (1.07,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2161 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm.
init:
  z=c=pixel*tanh(conj(.9/pixel))
  float iter=1, rad=6, center=(-7.6,-3)
  pix=(10*sqr(pixel)+(5,-3.5))*(-.1,-.95)
  zn=center+rad/(pix-center), limit=real(p1)
  bool test0 = TRUE, bool test3 = FALSE
  float b1 = 16, float b2 = .0001, d1=conj(.00054550/pixel)
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = z^2 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = (0,0)
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^5-1)/(4*z^4)+d1
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 2.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 2161"
  periodicity = 0
  maxiter = 500
  magn = 2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "The real part of this parameter signifies the point \
            at which the iterating formula changes.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
}

Carr2162 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel, z=1/(2*pixel+flip(1/pixel)-conj(1/pixel))
  d1=conj(.00000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2162"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-0.5,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
}

Carr2163 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=1/(2*pixel+flip(1/pixel)-conj(1/pixel))
  c=sin((-.81256,.1895)), d1=conj(.00000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2163"
  periodicity = 0
  maxiter = 500
  magn = .1
  center = (2.7,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
}

Carr2164 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(2*pixel+flip(1/pixel)-conj(1/pixel))^-2
  c=sin((-.81256,.1895)), d1=conj(.00000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2164"
  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
}

Carr2165 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(pixel+tan(pixel)+flip(.001/pixel)-conj(.01/pixel))^-2
  op = 1/pixel, c=1/(pixel+flip(op)-conj(op)-sin(op))
  d1=conj(.00000455*op), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2165"
  periodicity = 0
  maxiter = 500
  magn = .45
  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
}

Carr2166 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=sinh((-.7456,.2)*pixel)*pixel^2-conj(.1/pixel)-flip(.1/pixel)
  d1=conj(.00000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    c = c - .00625
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2166"
  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
}

Carr2167 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c1=(-.7456,.2)*pixel, c2=pixel^2
  c3=conj(.1/pixel)+flip(.1/pixel)
  z=sinh(c1)*c2-c3, c=tanh(c1)*c2-c3
  d1=conj(.00000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    c = c - .00625
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2167"
  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
}

Carr2168 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  d1=conj(.0000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*sin(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*sin(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*sin(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*sin(z4+d4), c = z4
  ELSE
    z = z*sin(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2168"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.7,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
}

Carr2169 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=sqrt(pixel)+pixel
  z=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  d1=conj(.0000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*sin(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*sin(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*sin(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*sin(z4+d4), c = z4
  ELSE
    z = z*sin(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2169"
  periodicity = 0
  maxiter = 500
  magn = 2.2
  center = (-.3,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
}

Carr2170 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=2*pixel
  z=sin(-flip(imag(pixel))*conj(tan(pixel))-conj(.1/pixel) \
    -flip(.01/pixel))
  d1=conj(.0000455/pixel), d4 = 4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*sin(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*sin(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*sin(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*sin(z4+d4), c = z4
  ELSE
    z = z*sin(1+d4)
  ENDIF

  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2170"
  periodicity = 0
  maxiter = 500
  magn = 2
  center = (-.3,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
}

Carr2171 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=conj(.5-pixel)*conj(pixel)-sinh(.1/pixel)-flip(.01/pixel)
  z=-flip(imag(pixel))*conj(tan(pixel))-conj(.1/pixel) \
    -flip(.01/pixel)
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*sin(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*sin(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*sin(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*sin(z4+d4), c = z4
  ELSE
    z = z*sin(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2171"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.3,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
}

Carr2172 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=conj(.5-pixel)*conj(pixel)-sinh(.1/pixel)-flip(.01/pixel)
  z=-flip(imag(pixel))/log(tan(pixel))-conj(.1/pixel) \
    -flip(.01/pixel)
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*sin(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*sin(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*sin(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*sin(z4+d4), c = z4
  ELSE
    z = z*sin(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2172"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.3,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
}

Carr2173 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-1.099,-.2149)
  z=|pixel|*pixel-sinh(.1/pixel)-sqr(flip(.0001/pixel))
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*(z4+d4), c = z4
  ELSE
    z = z*(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2173"
  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
}

Carr2174 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-1.099,-.2249)
  z=abs(pixel)*sqr(pixel)-sinh(.1/pixel)-sqr(flip(.0001/pixel))
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*(z4+d4), c = z4
  ELSE
    z = z*(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2174"
  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
}

Carr2175 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=-conj(.1/pixel)-flip(.01/pixel), c=(-1.099,-.63659)
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z*tanh(z1+d4), c = z1
  ELSEIF (iter==l2)
    z = z*tanh(z2+d4), c = z2
  ELSEIF (iter==l3)
    z = z*tanh(z3+d4), c = z3
  ELSEIF (iter==l4)
    z = z*tanh(z4+d4), c = z4
  ELSE
    z = z*tanh(1+d4)
  ENDIF
  c = c + d4
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2175"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.75,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
}

Carr2176 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel-.5/(log(conj(pixel))^12+pixel)+conj(.04/pixel)
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2176"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <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
}

Carr2177 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=2*pixel
  z=c-1/log(pixel-flip(.01/pixel)-conj(.1/pixel)+2/pixel)
  d1=conj(.0000455/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2177"
  periodicity = 0
  maxiter = 500
  magn = 2.2
  center = (-.2,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
}

Carr2178 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel-log(pixel-1/sin(.01/pixel))^-2.5
  c=sin((-.81256,.2495))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/6
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2178"
  periodicity = 0
  maxiter = 500
  magn = 2.7
  center = (-.065,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
}

Carr2179 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel-log(pixel-1/tan(.001/pixel))^-2.5
  c=sin((-.655,.3509))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/6
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2179"
  periodicity = 0
  maxiter = 500
  magn = 2.7
  center = (-.065,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
}

Carr2180 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=3*pixel-log(pixel-1/tan(.001/pixel))^-3.5
  c=sin((-.7445,.3509))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/5
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2180"
  periodicity = 0
  maxiter = 500
  magn = 3.9
  center = (-.055,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
}

Carr2181 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  op = tan(pixel)+sin(pixel)-1/pixel
  z=pixel-op, c=pixel-1/log(pixel-op)
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2181"
  periodicity = 0
  maxiter = 500
  magn = 5
  center = (-.8,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
}

Carr2182 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel
  c=-flip(imag(pixel))*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  d1=conj(.000255/pixel), d4=4*d1, k = pixel/7
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7856,.10)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2182"
  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
}

Carr2183 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel
  c=(1-pixel)*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  d1=conj(.000255/pixel), d4=4*d1, k = pixel/7
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7356,.10)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2183"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.1,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
}

Carr2184 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=2*pixel
  z=(1-pixel)*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  d1=conj(.000255/pixel), d4=4*d1, k = pixel/9
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7356,.10)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2184"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (.35,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
}

Carr2185 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=sqrt(pixel)+pixel
  z=flip(1-pixel)*pixel^2-conj(.1/pixel)-flip(.01/pixel)
  c=sin((-.81256,.2495))
  d1=conj(.000255/pixel), d4=4*d1, k = pixel/7
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7356,.10)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2185"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (.35,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
}

Carr2186 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=2*pixel-log(flip(pixel-1/sin(conj(.01/pixel))))^-2.5
  d1=conj(.000255/pixel), d4=4*d1, k = flip(pixel)/7
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7406,.13)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2186"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2187 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel-log(flip(pixel-1/sin(conj(.01/pixel))))^-2.5
  c=flip(2*pixel)-log(flip(pixel-1/sin(conj(.01/pixel))))^-2.5
  d1=conj(.000255/pixel), d4=4*d1, k = exp(pixel)/5
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.6706,-.13)+c*k
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2187"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2188 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-(pixel-conj(.1/pixel)-flip(.01/pixel))^.25
  c=sin((-.5545,.30009))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z=(z+d4)^2+(-.7106,-.13)+c/6
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2188"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (1,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
}

Carr2189 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sqr(flip(2*(1-pixel))-(3*pixel-.1/pixel-flip(.01/pixel))^.25)
  c=sin((-.5545,.30009))
  d1=conj(.00255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z=z-c/10 
  ENDIF
  c = c + d4
  z=z^2+(-.3,-.613)+c/6
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2189"
  periodicity = 0
  maxiter = 500
  magn = 2.4
  center = (1.1,-0.7)
  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
}

Carr2190 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel+.72-1/log(pixel-1/sin(.01/pixel))
  c=sin((-.81256,.3095))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z = z1+d4, c = 1.5*(z1+d4)
  ELSEIF (iter==l2)
    z = z2+d4, c = 1.5*(z2+d4)
  ELSEIF (iter==l3)
    z = z3+d4, c = 1.5*(z3+d4)
  ELSEIF (iter==l4)
    z = z4+d4, c = 1.5*(z4+d4)
  ELSE
    z = z - c/10 + d4, c = c + 1.5*d4
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2190"
  periodicity = 0
  maxiter = 500
  magn = 2.7
  center = (-.3,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
}

Carr2191 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel+.72-1/log(pixel-1/sin(.01/pixel))
  c=sin((-.81256,.3095))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=11.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z=z-c/6
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2191"
  periodicity = 0
  maxiter = 500
  magn = 2.7
  center = (-.3,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
}

Carr2192 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=2*pixel+.4-1/log(pixel-log(.01/pixel))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=6.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2192"
  periodicity = 0
  maxiter = 500
  magn = 3.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
}

Carr2193 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=2*pixel+.4-1/log(pixel-log(.010/pixel))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=6.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2193"
  periodicity = 0
  maxiter = 500
  magn = 2.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
}

Carr2194 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=3*pixel+.4-1/log(4*pixel-log(.01/pixel))
  c=sin(pixel+0.4-1/log(pixel-log(.01/pixel)))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=6.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2194"
  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
}

Carr2195 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=-conj(.1/pixel)-flip(.006/pixel)
  c=2*pixel-.45/log(sin(pixel-log(1/log(.00555/pixel))))
  d1=conj(.000255/pixel), d4=4*d1
  z1=1.5*z+d1, z2=2.25*z+d1, z3=3.375*z+d1, z4=6.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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2195"
  periodicity = 0
  maxiter = 500
  magn = 2.3
  center = (-.25,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
}

Carr2196 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=-conj(.1/pixel)-flip(.00125/pixel), c=sin((-.763,.3509))
  d1=conj(.000255/pixel), 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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z - c/10
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2196"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  center = (-.4,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
}

Carr2197 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel-tanh(pixel)/log(tan(pixel)+sin(pixel-1)-2.75/pixel)
  z=-conj(.1/pixel)-tanh(.0002525/pixel)
  d1=conj(.000255/pixel), 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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2197"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (-1,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
}

Carr2198 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel-tanh(pixel) \
    /sqrt(log(tan(pixel)+sin(pixel-1)-2.75/pixel))
  z=-conj(.1/pixel)-tanh(.0002525/pixel)
  d1=conj(.000255/pixel), 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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2198"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (-1,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
}

Carr2199 {; Updated for UF2 by Erik Reckase, March 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=-conj(.1/pixel)-tanh(.002525/pixel)
  c=conj(pixel)+flip(pixel)-1/log(pixel-1/sin(.01/pixel))
  d1=conj(.000255/pixel), 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)
    z=c=z1
  ELSEIF (iter==l2)
    z=c=z2
  ELSEIF (iter==l3)
    z=c=z3
  ELSEIF (iter==l4)
    z=c=z4
  ELSE
    z = z + c/8
  ENDIF
  c = c + d4
  z = (z+d4)^2 + c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 2199"
  periodicity = 0
  maxiter = 500
  magn = 1.8
  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
}