comment {
  Carr1900.ufm Version 1.1
  Ultra Fractal conversions of Robert Carr's formulas Carr1900 - Carr1999
  by Erik Reckase, March 10, 2000  

  History:  Version 1.1 - Major optimization overhaul, hints, cleanup

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc1.frm

                          Carr1995                  : pixel fix                          
                          Carr1944,1947,1948,1951,
                              1952                  : cosxx fix
                          Carr1959                  : iter = iter - 1?
}

Carr1900 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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)/|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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1900"
  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
}

Carr1901 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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*z + c + .1/pixel
    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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1901"
  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
}

Carr1902 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel-1/pixel, c=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*z+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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1902"
  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
}

Carr1903 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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*z+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+z^3-2)/4/(z^4+z^2)
    ENDIF
    z = z - tan(z1)
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1903"
  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
}

Carr1904 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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 = (pixel-z*z+c)/(pixel-c*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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1904"
  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
}

Carr1905 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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^4*c^4 + 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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1905"
  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
}

Carr1906 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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^4*c^4+(-.7456,.2)
    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.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1906"
  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
}

Carr1907 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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^4)^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
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1907"
  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
}

Carr1908 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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 = 4*z^2/(1/sin(z)+4)+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
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1908"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (-.4,-.2)
  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
}

Carr1909 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=1/(pixel-conj(1/pixel)-flip(1/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 = 4*z^2/(1/cotanh(z)+4)+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
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1909"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (.4,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
}

Carr1910 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=1/(pixel-conj(1/pixel)-flip(1/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 = 4*sin(z^2)/(z + 4) + 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
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1910"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (.4,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
}

Carr1911 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel, th1 = 1-tanh(1)
  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 = z*th1
    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 1911"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr1912 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel, th1 = 1-tanh(1)
  float iter = 1, rad = 3, center = (1,.1)
  pix = (10*pixel+(8,-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=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = .79*(z^2 + c)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = z*th1
    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 1912"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1913 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=pixel-conj(1/pixel)-flip(1/pixel), th1 = 1-tanh(1)
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = .79*(z^2 + c)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = z*th1
    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 1913"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1914 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c = z - .099/pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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 1914"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1915 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.0001
loop:
  test0 = !test0  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (iter<limit)
    z = real(z^2)*z^4+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 1915"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1916 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF z==0
    z1 = 0
  ELSE
    z1 = (z^5-1)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z1^2*z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF test3 && test0
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1916"
  periodicity = 0
  maxiter = 500
  magn = .5
  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
}

Carr1917 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=imag(pixel), c=tan(pixel)+sin(pixel)-1/pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 3
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1917"
  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
}

Carr1918 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=imag(pixel), c=pixel-(tan(pixel)+sin(pixel)-1/pixel)/10
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 3
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1918"
  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
}

Carr1919 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=imag(pixel), c=pixel-(tan(pixel)+sin(pixel)-1/pixel)/10
  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, float zro=0
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF z==0
    z1 = 0
  ELSE
    z1 = (z^7-1)/(4*z^6)
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    c = z + c/2.125
    IF (test3 && test0)
      z = 0
    ENDIF
    zfinal = |z|
    bfinal = b1
  ELSE
    z = z - z1
    c = z + c/2.125
    bfinal = |z1|
    zfinal = b2
  ENDIF
  iter = iter+3
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1919"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-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
}

Carr1920 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel-1/log(1/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1920"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-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
}

Carr1921 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=pixel-1/log(1/pixel)+1/sqrt(1/pixel)
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 4
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1921"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (-.5,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
}

Carr1922 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.63,-.4)
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + .9
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1922"
  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
}

Carr1923 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z = pixel, c =(-0.7456,0.2)
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8.0,-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=.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter + 3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1923"
  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
}

Carr1924 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.2)
  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 z==0
    z1 = 0
  ELSE
    z1 = (z^7-1)/(4*z^6)
  ENDIF
  IF (iter<limit)
    z = z^2+c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    c = z + c/2.125
    IF (test3 && test0)
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    c = z + c/2.125
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1924"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1925 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.21)
  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^4+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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1925"
  periodicity = 0
  maxiter = 500
  magn = 1.0
  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
}

Carr1926 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.21)*(.3,.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^4+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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1926"
  periodicity = 0
  maxiter = 500
  magn = 1.0
  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
}

Carr1927 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=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
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      z1 = 0
    ELSE
      z1 = (z^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1927"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1928 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.2)/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+1/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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1928"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (.5,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
}

Carr1929 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.63,-.4)^2
  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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1929"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1930 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.21)*(.3,.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^7-1)/(4*z^6)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1930"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1931 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  c=2*pixel, z=pixel
  float iter=1, rad=6, center=(4,.4)
  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 1931"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1932 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=pixel/10+(-.7564,.21978)
  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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1932"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1933 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=exp(pixel)/5 + (-.7564,.21978)
  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+2.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1933"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1934 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=exp(pixel+.5)/7*pixel+(-.7456,.1)
  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+2.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1934"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1935 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=(-.7456,.2)
  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+4.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1935"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1936 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel-pixel^-4.13, c=(-.7456,.2)
  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+5.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1936"
  periodicity = 0
  maxiter = 500
  magn = .7
  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
}

Carr1937 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=cotan(pixel^2+1), c=sqr(.91/pixel^2)
  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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1937"
  periodicity = 0
  maxiter = 500
  magn = .13
  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
}

Carr1938 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  c=sin(pixel)/2^pixel, z=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+real(z/5)
    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 1938"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1939 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=conj(1/pixel)^2.32-1.25
  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+real(z/5)
    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 1939"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1940 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=c=tan(1/pixel)^2.32-1.25
  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+real(z/5)
    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 1940"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1941 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=-.9/2.48-conj(.2/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+real(z/5)
    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 1941"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1942 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=1/(pixel+sin(pixel)-2.5/pixel+.124), c=sin(z*pixel-1/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+real(z/5)
    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 1942"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1943 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=1/(pixel+tan(pixel)-2.5/pixel+.124)
  c=sin(sin(z)*pixel-cotanh(1/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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1943"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1944 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=1/(pixel+cos(pixel)-2.5/pixel+.124)
  c=sin(tan(z)*pixel-conj(cos(1/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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1944"
  periodicity = 0
  maxiter = 500
  magn = .6
  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
}

Carr1945 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  c=(pixel-1)/(flip(.91/pixel^2)+sin(1/pixel)), z=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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1945"
  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
}

Carr1946 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=2*pixel/conj(.88/pixel^2), c=1.9/pixel/cosh(z^2-1.2/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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1946"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1947 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=.75/pixel-sqrt(1/pixel)
  c=sin(1/pixel)/conj(cos(1.5/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+real(z/5)
    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 1947"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1948 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=conj(.75/pixel-sqrt(1.5/pixel))
  c=sin(1/pixel)/conj(cos(1.5/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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1948"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1949 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  op = 1/pixel, b3=1/(conj(pixel)-sqrt(op)-log(op)-.9)
  z=pixel-1/(pixel-conj(1/b3)-exp(1/exp(pixel+.45)))
  c=1/(pixel+sqrt(op)/log(op)-conj(b3))
  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+real(z/5)
    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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1949"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1950 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  op = 1/pixel, b3=1/(conj(pixel)-sqrt(op)-log(op)-.9)
  z=1/(pixel-conj(op)-flip(op))
  c=1/(pixel+sqrt(op)/log(op)-conj(b3))
  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 = 4*z^2/(z+4)+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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1950"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1951 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=1/(pixel-conj(1/pixel)-flip(1/pixel))
  c=sin(1/pixel)/conj(cos(1.5/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 = 4*z^2/(z+4)+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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1951"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1952 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  op = 1/pixel, z=1/(pixel-conj(op)-exp(op))
  c=1/(pixel+conj(cos(1/sqr(cos(pixel+conj(op)))))-1)
  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 1952"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1953 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  c1=(-.7456,.2), op=1/pixel
  c=tan(op)/tan(pixel-conj(op)-flip(op))/9+c1
  z=tan(op-c^2)/(9+c1+c)
  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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1953"
  periodicity = 0
  maxiter = 500
  magn = 1.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
}

Carr1954 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  c1=(-.3,.6), op = 1/pixel
  c=cos(op)/cos(pixel-conj(op)-flip(op))/9+c1
  z=tan(op-c^2)/(9+c1+c)
  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+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1954"
  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
}

Carr1955 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  op=1/pixel, z=1/(pixel-sin(op)-tan(op))
  c=conj(pixel-conj(op))/(4+tan(conj(z^2-conj(7*op))))
  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 1955"
  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
}

Carr1956 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=1/tan(1/pixel)
  c=1/(pixel-conj(1/z^z*z+z))
  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 1956"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr1957 (XYAXIS) { ; Updated for UF2 by Erik Reckase, March 2000
                    ; Modified Sylvie Gallet frm.   REVISED 4/12/96
                    ; iter <= limit ==> Mandelbrot set of  z^7+c
                    ; iter >  limit ==> Newton's method applied to  z^6-1 = 0
init:
  op = 1/pixel, z = 1/(pixel-sin(op)-tan(op)) 
  c = 1/(pixel-conj(op)-flip(op)) 
  float b1=64, float b2=.000001, zn=pixel
  float limit = real(p1), float iter = 1
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  n = z^6-1
  IF (iter<limit)
    z = z*n + z + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF z==0
      d = 0
    ELSE
      d = 4*z^5
      z = z - n/d
    ENDIF
    float zfinal = b2
    float bfinal = |n|
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1957"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr1958 (XYAXIS) { ; Updated for UF2 by Erik Reckase, March 2000
                    ; Modified Sylvie Gallet frm.   REVISED 4/12/96
                    ; iter <= limit ==> Mandelbrot set of  z^7+c
                    ; iter >  limit ==> Newton's method applied to  z^6-1 = 0
init:
  op = 1/pixel, z = 1/(pixel-sin(op)-tan(op)) 
  c = 1/(pixel-conj(op)-flip(op)) 
  float b1=64, float b2=.000001, zn=pixel
  float limit = real(p1), float iter = 1
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  n = z^6-1
  IF (iter<limit)
    z = z*n + z + c + (-.7456,.2)
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      d = 0
    ELSE
      d = 4*z^5
      z = z - n/d
    ENDIF
    float zfinal = b2
    float bfinal = |n|
  ENDIF
  iter = iter+2
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1958"
  periodicity = 0
  maxiter = 500
  magn = .8
  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
}

Carr1959 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
           ; iter <= limit ==> Mandelbrot set of  z^7+c
           ; iter >  limit ==> Newton's method applied to  z^6-1 = 0
init:
  z=c=pixel
  float b1=64, float b2=.000001, zn=pixel
  float limit = real(p1), float iter = 1
  bool test0 = TRUE, bool test3 = FALSE
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  n = z^6-1
  IF (iter<limit)
    z = z*n + z + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = 0
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      d = 0
    ELSE
      d = 4*z^5
      z = z - n/d
    ENDIF
    float zfinal = b2
    float bfinal = |n|
  ENDIF
  iter = iter+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1959"
  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
}

Carr1960 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=1/(pixel-conj(1/pixel)-flip(1/pixel))
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1960"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1961 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=1/(pixel-conj(1/pixel)-flip(1/pixel)), c=(-.63,.4)
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1961"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1962 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=imag(pixel), c=tan(pixel)+sin(pixel)-1/pixel
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1962"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1963 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel-1/log(1/pixel)
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |real(z)|<=bailout
default:
  title = "Carr 1963"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1964 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel-1/sqrt(cos(1/pixel))
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ENDIF  
  z=z*z+c
  compt=compt+1
bailout:
  |real(z)|<=bailout
default:
  title = "Carr 1964"
  periodicity = 0
  maxiter = 500
  magn = 1.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1965 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ELSE
    c = z + c/2.125
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |real(z)|<=bailout
default:
  title = "Carr 1965"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1966 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ELSE
    c = tan(c)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |real(z)|<=bailout
default:
  title = "Carr 1966"
  periodicity = 0
  maxiter = 500
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1967 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4  
loop:
  IF (compt>=limit)
    c = (-.743380900000982,.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |real(1-z)|<=bailout
default:
  title = "Carr 1967"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1968 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel
  int compt=0, int limit=round(real(p1)), float bailout=4  
loop:
  IF (compt>=limit)
    c = (-.7259,.205999)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1968"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1969 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=c=pixel+(-.743380900000982,-.131850030300002) 
  int compt=0, int limit=round(real(p1)), float bailout=4 
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+(-.7564,.21978)+c/10
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1969"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.7,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
    hint = "The real part of this parameter signals a change \
            in the value of c. The imaginary part is not used."
  endparam
}

Carr1970 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  c=z=pixel 
  float compt=0, float limit=real(1.5/p1), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1970"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
  endparam
}

Carr1971 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  c=z=pixel 
  float compt=0, float limit=real(p1/pixel), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1971"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
  endparam
}

Carr1972 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  c=z=pixel 
  float compt=0, float limit=real(sqrt(p1)), float bailout=4
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c
  compt=compt+1
bailout:
  |z|<=bailout
default:
  title = "Carr 1972"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
  endparam
}

Carr1973 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.   REVISED 4/12/96
init:
  z=pixel, c=pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center), float limit = real(abs(p1/pixel))
  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 1973"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1974 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  c=z=pixel, d=log(1/pixel-conj(1/pixel))
  float compt=0, float limit=real(abs(p1/5)), float bailout=4
loop:
  IF (compt>=limit)
    c = -.9/2.48-1.00763
  ENDIF
  z=z*z+c-real(d/5*pixel)
  compt=compt+.39
bailout:
  |z|<=bailout
default:
  title = "Carr 1974"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-.5,0)
  param p1
    caption = "Iter Limit"
    default = (100,0)
  endparam
}

Carr1975 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=exp(pixel), c=1+flip(imag(pixel))+conj(1/pixel) 
  d=log(1/pixel-conj(1/pixel))
  float compt=0, float limit=real(abs(p1/10)), float bailout=4.9
loop:
  IF (compt>=limit)
    c = (-.743380900000982,-.131850030300002)
  ENDIF
  z=z*z+c-real(d/5*pixel)
  compt=compt+.19
bailout:
  |z|<=bailout
default:
  title = "Carr 1975"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-2,0)
  param p1
    caption = "Parameter 1"
    default = (100,0)
  endparam
}

Carr1976 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel^2, c=pixel-1.099/3
  float iter=1, rad=6, center=(1,.1)
  pix = (10*pixel+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center)
  float limit=real(p1/tan(1/pixel))
  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-10*pixel)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1976"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1977 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (p10+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center)
  float limit = real(p1/exp(1/pixel))
  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-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1977"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1978 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel, c=(-.7456,.2), p10=10*pixel
  float iter=1, rad=6, center=(1,.1)
  pix = (p10+(8,-5))*(-.1,-.95)
  zn = center+rad/(pix-center)
  float limit = real(p1*exp(1/pixel))
  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-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1978"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1979 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, c4=c^4, p10=10*pixel
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn = (center+rad/(pix-center))
  float limit = real(p1*exp(1/pixel))
  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^4*c4 + 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-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1979"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1980 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel, c=(-.63,-.4), p4=pixel^4, p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*exp(1/pixel))
  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 = .79*z^4*p4 + c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1=0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.299
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1980"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1981 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel, th1 = 1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(1/pixel))
  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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1=0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1981"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1982 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel, th1 = 1-tanh(1)
  float iter = 1, float dit=real(-1/pixel)+1.099
  rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1=0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+dit
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1982"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1983 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(z^4)+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1983"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1984 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (z==0)
    z1 = 0
  ELSE
    z1 = (z^5-p10)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z^2+ c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(tan(z1))+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1984"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1985 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel, p10=10*pixel
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(z^6)+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1985"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1986 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel, c=(-.7456,.2), p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (z==0)
    z1 = 0
  ELSE
    z1 = (z^5-p10)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z^2+ c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(tan(z1))+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1986"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1987 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=1/pixel, p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (z==0)
    z1 = 0
  ELSE
    z1 = (z^5-p10)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z^2+ c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(tan(z1))+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1987"
  periodicity = 0
  maxiter = 500
  magn = .4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1988 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=1/(pixel-conj(1/pixel)-flip(1/pixel))
  p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (z==0)
    z1 = 0
  ELSE
    z1 = (z^5-p10)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z^2+ c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(tan(z1))+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1988"
  periodicity = 0
  maxiter = 500
  magn = .4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1989 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel-conj(pixel/5), p10=10*pixel
  th1=1-tanh(1), c=z-.099/pixel
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  bool test0 = TRUE, bool test3=FALSE
  float b1=16, float b2=.0001
loop:
  test0 = !(test0)  
  IF (iter==limit)
    z = zn
  ENDIF
  IF (z==0)
    z1 = 0
  ELSE
    z1 = (z^5-p10)/(4*z^4)
  ENDIF
  IF (iter<limit)
    z = z^2+ c
    IF (!test3)
      test3 = (|z|>b1)
    ENDIF
    IF (test3 && test0)
      z = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+real(tan(z1))+1.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1989"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1990 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=pixel-conj(pixel/5), c=(-.7456,.2)-.099/pixel
  p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.75
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1990"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1991 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=imag(pixel), c=pixel-(tan(pixel)+sin(pixel)-1/pixel)/10
  p10=10*pixel
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+3.099
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1991"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1992 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
           ; Revised for Fractint v20 by G. Martin
init:
  z=c=pixel+1/log(pixel), p10=10*pixel, th1=1-tanh(1)
  float iter=1, rad = 6, center = (1,.1)
  pix=exp(p10+(8,-5))*(-.1,-.95)
  zn=center+rad/(pix-center)
  float limit = real(p1*cos(pixel/5))
  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 = z*th1
    ENDIF
    float zfinal = |z|
    float bfinal = b1
  ELSE
    IF (z==0)
      z1 = 0
    ELSE
      z1 = (z^5-p10)/(4*z^4)
    ENDIF
    z = z - z1
    float bfinal = |z1|
    float zfinal = b2
  ENDIF
  iter = iter+1.099+real(zn/z^4)
bailout:
  zfinal <= bfinal
default:
  title = "Carr 1992"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iteration Limit"
    default = (100,0)
    hint = "This parameter controls the point \
            at which the iterating formula changes."
  endparam
}

Carr1993 { ; Updated for UF2 by Erik Reckase, March 2000
           ; Modified Sylvie Gallet frm.
init:
  z=imag(pixel), c=pixel-(tan(pixel)+sin(pixel)-1/pixel)/10
  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.099
bailout:
  |z|<=bailout
default:
  title = "Carr 1993"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (-.5,0)
  method = multipass
  param p1
    caption = "Iter Limit"
    default = (100,0)
  endparam
}

Carr1994 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=1/pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z
  l1=round(real(p1)), l2=round(imag(p1)), l3=round(real(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 1994"
  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) < maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limit 3"
    default = (200,0)
    hint = "0 < Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results ( Im(P2) not used )"
  endparam
}

Carr1995 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  pixel2=real(pixel)+flip(abs(imag(pixel)))
  z=1/pixel2, c=(-.7456,.2), c1=1.5*z, c2=2.25*z, c3=3.375*z
  l1=round(real(p1)), l2=round(imag(p1)), l3=round(real(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 1995"
  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) < maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limit 3"
    default = (200,0)
    hint = "0 < Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results ( Im(P2) not used )"
  endparam
}

Carr1996 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444], 1996
init:
  z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, p0=.099/pixel
  l1=round(real(p1)), l2=round(imag(p1)), l3=round(real(p2))
  float bailout=16, int iter=0
loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ENDIF
  z=z*z+c - p0
  iter=iter+1
bailout:
  |z| <= bailout
default:
  title = "Carr 1996"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limit 3"
    default = (200,0)
    hint = "0 < Re(P1) < Im(P1) < Re(P2) < maxiter \
            for best results ( Im(P2) not used )"
  endparam
}

Carr1997 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=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 = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ELSEIF (iter==l4)
    z = 0, c = c4
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 1997"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr1998 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel, c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=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, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ELSEIF (iter==l4)
    z = 0, c = c4
  ENDIF
  c = c + pp2
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 1998"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr1999 (XAXIS) {; Updated for UF2 by Erik Reckase, March 2000
                  ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=pixel+1/log(pixel)
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=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, pp2 = pixel/imag(p2)
loop:
  IF (iter==l1)
    z = 0, c = c1
  ELSEIF (iter==l2)
    z = 0, c = c2
  ELSEIF (iter==l3)
    z = 0, c = c3
  ELSEIF (iter==l4)
    z = 0, c = c4
  ENDIF
  c = c + pp2
  z=z*z+c
  iter=iter+1
bailout:
  |real(z)| <= bailout
default:
  title = "Carr 1999"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}