comment {
  Carr2800.ufm Version 1.6
  Ultra Fractal conversions of Robert Carr's formulas Carr2800 - Carr2899
  by Erik Reckase, 29 February 2000  

  These formulas (and the parameters that go with them) are
  intended to provide a reasonable approximation to the behavior
  of the original Fractint formulas.  The images will not be 
  exactly the same!  Roundoff error surely contributes to this
  inequality.

  History:  Version 1.6 - minor optimization tweaks, clean-up

            Version 1.5 - z=z*t workaround implemented for
                          2801,2884,2890,2891

            Version 1.4 - Global optimization effort + hints

            Version 1.3 - Modified whitesq code to eliminate warnings

            Version 1.2 - fixed bug in Carr2821,2884,2894

            Version 1.1 - Added 'Original' functionality
                          to 'Layer Option' to reproduce
                          original fractal exactly

            Version 1.0 - Initial Release
                          Original formulas pulled from _rc2.frm
                          Carr2805,2824,2826,2838  : missing from _rc2
                          Carr2829-2837            : flip error
                          Carr2828-2830,2844       : pixel fix
                          Carr2820,2844-2846,2868  : cosxx fix
}

Carr2800 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=.8*pixel^5/sqr(.33-pixel)+.4-conj(.1/pixel)
  z=.8*pixel^5/pixel^2+.4-flip(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2) - .00015
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c 
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2800"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2801 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=.15/log(exp(pixel^450-1/acos(pixel^30.5)-.4)-.8)
  c=b3-flip(.1/pixel)
  z=pixel/2.5-(conj(.1/pixel)-flip(.1/pixel)+.055/pixel)+.15
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2) + .000015
  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, float zro=0
loop:
  IF (iter==l1)
    c = c1, z = z*zro
  ELSEIF (iter==l2)
    c = c2, z = z*zro
  ELSEIF (iter==l3)
    c = c3, z = z*zro
  ELSEIF (iter==l4)
    c = c4, z = z*zro
  ENDIF
  c = c + k
  z = z^2 + c 
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2801"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.01,.01)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2802 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=z=(.5+pixel/2)^7-conj(.1/pixel)-flip(.1/pixel)+.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2) - .00025
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c - k
  z = z*z + c 
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2802"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (-1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2803 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=.25+.1/pixel
  z=c=pixel^7-tan(conj(.25-.1/pixel))-b3-.4+exp(.0025/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2) + .00025
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c - k
  z = z*z + c 
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2803"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2804 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-conj(.01/pixel)-flip(.001/pixel)
  c=z+.4
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2) + flip(.005/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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c 
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2804"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (-.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2806 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=2*pixel+1.75/log(cos(.1/pixel+.025))*tan(.1/pixel-.025)
  c=pixel-sqrt(pixel-.3)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c - .087
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2806"
  periodicity = 0
  maxiter = 500
  magn = 30
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2807 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=|pixel^5|-(sqrt(pixel)+log(pixel))/15-conj(.1/pixel)
  c=pixel-(tan(pixel)+sin(1/pixel)-1/pixel)/10
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c - .087
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2807"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2808 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b1=(sqrt(pixel)+log(pixel))/15, b2=conj(.1/pixel)
  c=|pixel^5|-b1-b2, z=pixel^5-b1-b2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c - .087
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2808"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2809 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=.25+pixel^5-(sqrt(pixel)+log(pixel))/35-conj(.15/pixel)
  z=conj(tan(tan(pixel^5)) \
    -(sqrt(.5*pixel/.85)+log(pixel/.75))/15-conj(.1/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = pixel/imag(p2)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + k
  z = z*z + c - .087
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2809"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2809A {; Updated for UF2 by Erik Reckase, Feb 2000
           ; Modified Sylvie Gallet frm. [101324,3444],1996
init: 
  c=sinh(pixel)^5/conj(pixel)^1.5-conj(.1/pixel)
  z=pixel*sqr(pixel)-sqr(.1/pixel)-flip(.01/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*sqr(z^1.2), c2=2.25*flip(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  c = c + .00065
  z = z*z + c - .17
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2809A"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2810 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^7/pixel^1.5-conj(.1/pixel)
  c=pixel^5/pixel^1.5-conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*conj(z), c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2810"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2811 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=conj(.05/pixel-flip(.05/pixel)), c=conj(pixel-.33)-b3
  z=conj(pixel-.33)*sqr(pixel)-conj(.1/pixel)+sqr(flip(.01/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*conj(z), c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2811"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (.2,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2812 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.8206,-.149)
  z=flip(conj(1-pixel))*pixel^5-conj(.1/pixel)+sqr(flip(.1/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2812"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.2,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2813 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=tan(pixel)-((0.15,0.3)+pixel)*pixel/.2
  c=pixel+conj(.001/pixel+flip(.001/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2813"
  periodicity = 0
  maxiter = 500
  magn = 2.7
  center = (0,-.17)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2814 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=cabs(pixel/2)+cabs(.08/pixel-flip(.01/pixel)) \
    -conj(.0535/pixel)
  z=1.5*pixel^9-r+.09, c=1.5*pixel^5-r+.1
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2814"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2815 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  r=cabs(pixel/2+.025/pixel)
  r2=cabs(.08/pixel-flip(.01/pixel))-conj(.1/pixel)-.3
  z=1.5*pixel^3-r^5-r2, c=.5*pixel^5-r-r2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2815"
  periodicity = 0
  maxiter = 500
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2816 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=tanh(2*pixel)-(.3,-.6)-pixel^4+conj(.2/pixel)
  c=(-.7456,-.132)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2816"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2817 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b1=.285+1/(conj(pixel)-cos(7/pixel)-sin(1/pixel)+conj(.1/pixel))
  c=z=.3*(pixel^5-conj(b1)+b1^conj(tan(.7/pixel)))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = .09/pixel
  ct = c - k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(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)
    ct = c1 - k, z = 0
  ELSEIF (iter==l2)
    ct = c2 - k, z = 0
  ELSEIF (iter==l3)
    ct = c3 - k, z = 0
  ELSEIF (iter==l4)
    ct = c4 - k, z = 0
  ENDIF
  z = |z|*.2 + z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2817"
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2818 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-1/log(1/pixel/.71)/(.85/pixel+2.324)
  c=pixel-1/log(pixel/2/z-2.5^(pixel+2.324)/.5/pixel)-.4
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2818"
  periodicity = 0
  maxiter = 500
  magn = 1.8
  center = (.35,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2819 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b2=pixel-conj(.1/pixel-flip(.1/pixel))
  b3=imag(pixel)/b2-(pixel+2.324)*pixel/5+.5
  z=cabs(pixel)/b3-(pixel+2.324)*pixel/5, c=z-.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2819"
  periodicity = 0
  maxiter = 500
  magn = .8
  center = (.16,.54)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2820 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b2=pixel-conj(.1/pixel-flip(.1/pixel))
  b3=imag(pixel)/b2-(pixel+2.324)*pixel/5+.5
  c=cabs(pixel^3)/b3-((pixel+2.324)*pixel/5)^3 \
    *conj(cos(.25-pixel))-.3
  z=cabs(pixel/2)^5/(.25-b3)-(pixel+2.324)*pixel/5
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2820"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.15,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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2821 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Converted to if.else by Sylvie Gallet
          ; and George Martin 3/97
init: 
  z=pixel-conj(.1/pixel)
  c=pixel-flip(.1/pixel)-conj(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = .09/pixel
  ct = c - k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro=0
loop:
  IF (iter==l1)
    ct = c1 - k, z = z*zro
  ELSEIF (iter==l2)
    ct = c2 - k, z = z*zro
  ELSEIF (iter==l3)
    ct = c3 - k, z = z*zro
  ELSEIF (iter==l4)
    ct = c4 - k, z = z*zro
  ENDIF
  z = .2*|z| + z^2 + ct
  iter = iter + 1
bailout:
  |z| <= bailout
default:
  title = "Carr 2821"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2822 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c = pixel-conj(.1/pixel)-flip(.001/pixel)
  z = pixel^5-flip(.1/pixel)-conj(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = .09/pixel
  ct = c - k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(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)
    ct = c1 - k, z = 0
  ELSEIF (iter==l2)
    ct = c2 - k, z = 0
  ELSEIF (iter==l3)
    ct = c3 - k, z = 0
  ELSEIF (iter==l4)
    ct = c4 - k, z = 0
  ENDIF
  z = .2*|z| + z^2 + ct  
  iter = iter + 1
bailout:
  |z|<=bailout
default:
  title = "Carr 2822"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2823 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=.25-pixel^4-conj(.1/pixel)+sinh(.001/pixel)
  z=tan(tan(.25+pixel^4))-tanh(.1/pixel)-conj(.001/pixel)-.24
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  k = .09/pixel
  ct = c - k
  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)
    ct = c1 - k, z = 0
  ELSEIF (iter==l2)
    ct = c2 - k, z = 0
  ELSEIF (iter==l3)
    ct = c3 - k, z = 0
  ELSEIF (iter==l4)
    ct = c4 - k, z = 0
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2823"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2825 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  z=flip(cabs(pixel/2))+.4
  c=flip(cabs(pixel^5))-conj(.1/pixel)
  k = .09/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c=flip(imag(.0375/pixel)), ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c=z + flip(imag(.0375/pixel)), ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2825"
  periodicity = 0
  maxiter = 2000
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2827 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(-.3728,-.066) 
  z=flip(cabs(.25+pixel))-conj(.1/pixel-flip(.01/pixel))^5
  k = .1/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c=flip(imag(.0375/pixel)), ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c=z + flip(imag(.0375/pixel)), ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2827"
  periodicity = 0
  maxiter = 2000
  magn = 1.2
  center = (-.34,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2828 (YAXIS) {; Updated for UF2 by Erik Reckase, Feb 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=pixel2^4-conj(.1/pixel2-flip(.001/pixel2))+.01/pixel2-.55
  c=4*z/3-conj(.1/pixel2)
  k = .1/pixel2
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c=flip(imag(.0375/pixel2)), ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c=z + flip(imag(.0375/pixel2)), ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2828"
  periodicity = 0
  maxiter = 2000
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2829 (YAXIS) {; Updated for UF2 by Erik Reckase, Feb 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  m3=cabs(pixel2*2)*pixel2*2
  z=m3-conj(.1/pixel2)-sqr(flip(.0051/pixel2))+.25
  c=(-1.099,-.459)/2.9
  k = .09/pixel2
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2829"
  periodicity = 0
  maxiter = 2000
  magn = 2.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2830 (YAXIS) {; Updated for UF2 by Erik Reckase, Feb 2000
                  ; Modified Sylvie Gallet frm.
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(abs(pixel))^4/flip(asinh(pixel))-.2
  c=(-.3009,-.645)
  k = .1/pixel2
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2830"
  periodicity = 0
  maxiter = 2000
  magn = 1.2
  center = (0,.08)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2831 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  b1 = flip(abs(pixel))^4/flip(asinh(pixel))
  z = b1-conj(.1/pixel), c = b1-.175
  k = .1/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2831"
  periodicity = 0
  maxiter = 2000
  magn = 1.2
  center = (0,-.08)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2832 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  z=cabs(pixel)^5/flip(asinh(pixel))-conj(.1/pixel)
  c=|1/z|^z*z+z
  k = .1/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2832"
  periodicity = 0
  maxiter = 2000
  magn = 1.4
  center = (0,-.2)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2833 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  c=|pixel^8|-flip(.1/pixel)
  z=abs(flip(conj(pixel)))+flip(.01/pixel)-conj(.001/pixel)
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3
    ELSE
      c = 0
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z
    ENDIF
  ENDIF
  z = .2*|z| + z^2 + c
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2833"
  periodicity = 0
  maxiter = 2000
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2834 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  c=|pixel^15|-conj(.1/pixel)
  z=abs(flip(conj(pixel^12)))-flip(.01/pixel)+conj(.001/pixel)
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3
    ELSE
      c = 0
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z
    ENDIF
  ENDIF
  z = .2*|z| + z*z + c
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2834"
  periodicity = 0
  maxiter = 2000
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2835 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  c=|pixel^15|-conj(.1/pixel)
  z=abs(flip(conj(pixel^12)))-flip(.1/pixel)+conj(.1/pixel)+.3
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3
    ELSE
      c = 0
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z
    ENDIF
  ENDIF
  z = .2*|z| + z*z + c
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2835"
  periodicity = 0
  maxiter = 2000
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2836 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  c=(-.275,.45)
  z=abs(flip(conj(2*pixel^12)))+flip(.1/pixel)+conj(.1/pixel)+.35
  k = .13/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2836"
  periodicity = 0
  maxiter = 2000
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2837 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm.
init:
  IF pixel>0
    z = -pixel
  ELSE
    z = pixel
  ENDIF
  c=(-.28,.42)
  k = .13/pixel
  ct = c - k
  int nextzoom = round(real(p1))
  int iterspace = nextzoom
  int iter=0
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    z = 0
    IF ((@p4==1) || (@p4==2 && whitesq))
      c = p2*c + p3, ct = c - k
    ELSE
      c = 0, ct = c - k
    ENDIF
  ELSE
    IF ((@p4==0) || (@p4==2 && !whitesq))
      c = z, ct = c - k
    ENDIF
  ENDIF
  z = .2*|z| + z*z + ct
  iter=iter+1
bailout:
  |z|<=16
default:
  title = "Carr 2837"
  periodicity = 0
  maxiter = 2000
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Nextzoom"
    default = (128,0)
    hint = "The real part of this parameter is the number of \
            iteration steps between value resets.  The imag \
            part is not used, but remains for Fractint compat."
  endparam
  param p2
    caption = "C-Mult"
    default = (1.2,.1)
    hint = "C is mutliplied by this value when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p3
    caption = "C-Add"
    default = (-.05,-.06)
    hint = "This value is added to C when the number of \
            iterations equals nextzoom (p1)"
  endparam
  param p4
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2839 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.7456,-.132)
  z=abs(flip(conj(2*pixel^12)))+flip(.1/pixel)+conj(.1/pixel)+.35
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2839"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2840 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.7456,-.132)
  z=cabs(2*pixel^12)-flip(.1/pixel)-conj(.1/pixel)+.35
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2840"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2841 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(-.7476,-.132)
  z=pixel^12+tanh(.1/pixel)+sinh(.1/pixel)+conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2841"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2842 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2991)
  z=pixel^12+tanh(.1/pixel)-sinh(.1/pixel)-conj(.13/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2842"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2843 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=conj(.13/pixel)+flip(.1/pixel), c=(.37,-.2991)
  z=flip(imag(pixel))*pixel^11+tanh(.1/pixel)-sinh(.1/pixel)-b3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2843"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,.001)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2844 (YAXIS) {; Updated for UF2 by Erik Reckase, Feb 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.13/pixel2)+flip(.1/pixel2), c=(.37,-.2991)
  z=flip(conj(cos(.25-pixel2^3)))*pixel2^9+tanh(.1/pixel2) \
    -sinh(.1/pixel2)-b3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2844"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2845 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=conj(.13/pixel)+flip(.1/pixel), c=(.37,-.2991)
  z=flip(conj(cos(.25-pixel^3)))*cabs(1.5*pixel^9)\
    -tanh(.1/pixel)+sinh(.1/pixel)-b3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2845"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2846 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=flip(abs(conj(.075/pixel)+flip(.075/pixel)))
  c=(.37,-.2991)
  z=flip(conj(cos(.25*pixel^3)))*cabs(.5*pixel^9) \
    -tanh(.1/pixel)+sinh(.1/pixel)-b3+.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2846"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2847 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2991)
  z=pixel^2-conj(.1/pixel-flip(.01/pixel)-exp(.0025/pixel))/pi-.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2847"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2848 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2901)/1.0025
  z=pixel^2*(.25-pixel)+.1
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2848"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2849 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2901)/1.0025
  z=(pixel^2*(.25-pixel))^.75+.1-conj(.1/pixel) \
    -flip(.01/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2849"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2850 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel^12-.1/pixel
  z=pixel^10-conj(.1/pixel)^6
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c = z + c/2.125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2850"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2851 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2901)-conj(.01/pixel), op = .1/pixel
  z=pixel^10-conj(op)^6-flip(op)+op
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c = z + c/2.125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2851"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2852 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  op = .1/pixel
  z=pixel^10-conj(op)-flip(op)^9+op
  c=z^2/pixel
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c = z + c/2.125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2852"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2853 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  op = .1/pixel
  b2=pixel^10-conj(op)-flip(op)^9+op, z=b2^2/pixel
  b3=pixel/(1.099,0)^pixel
  c=b3-0.1/pixel
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,float iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c = z + c/2.125
  iter=iter+3.75
bailout:
  |z|<=bailout
default:
  title = "Carr 2853"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2854 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^-3
  c=conj(sqr(.91/pixel^2))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,float iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c = z + c/2.125
  iter=iter+1.1
bailout:
  |z|<=bailout
default:
  title = "Carr 2854"
  periodicity = 0
  maxiter = 500
  magn = .5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2855 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=(.5+pixel/2)^3-conj(.1/pixel)-flip(.1/pixel)+.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  c=(.85+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2855"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2856 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.2901), z=tan(pixel)*sin(sin(pixel))-conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2856"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2857 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.3101)
  z=conj(conj(pixel/2)*sin(abs(pixel/3)))-conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2857"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2858 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.37,-.3101)
  z=conj(conj(pixel^1.874)*sin(conj(pixel^2))) \
    -conj(.1/pixel-sqrt(.1/pixel))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2858"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2859 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-conj(.1/pixel-flip(.01/pixel))+.3
  c=z*pixel^2+.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  k = (-.7564,-.132)
  ct = c/8 + k
  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)
    ct = c1/8 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/8 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/8 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/8 + k, z = 0
  ENDIF
  z = z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2859"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (-.25,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2860 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-conj(.1/pixel-flip(.01/pixel))+.3
  c=z*pixel^2+.3
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7564,-.132) + c/8
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2860"
  periodicity = 0
  maxiter = 500
  magn = 1
  center = (-.4,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2861 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel/2-conj(.1/pixel-flip(.01/pixel))
  c=1-z
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = (-.7564,-.132)
  ct = c/10 + k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(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)
    ct = c1/10 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 + k, z = 0
  ENDIF
  mz = |z|
  z = mz/15 + z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2861"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2862 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel/2-conj(.1/pixel-flip(.01/pixel))
  c=1-z
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(z)
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  mz = |z|
  z = mz/15 + z*z + (-.7564,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2862"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2863 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned
init:
  z=conj(pixel^2)-cos(1/acos(|pixel|))
  c=1-z-flip(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = (-.7564,-.132)
  ct = c/10 + k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(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)
    ct = c1/10 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 + k, z = 0
  ENDIF
  mz = |z|
  z = mz/15 + z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2863"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2864 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-(conj(.05/pixel)+flip(conj(.001/pixel)))^4 \
    +.1+flip(.1/pixel)
  c=.33-z^2-flip(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = (-.7564,-.132)
  ct = c/10 + k
  c1=1.5*z^1.2, c2=2.25*conj(z)
  c3=3.375*flip(z), c4=5.0625*flip(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)
    ct = c1/10 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 + k, z = 0
  ENDIF
  mz = |z|
  z = mz/15 + z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2864"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (-.08,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2865 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel*(.23-pixel)-1/log(.1/pixel)-cos(.01/pixel) \
    +conj(.1/pixel)+.45
  c=(-.8606,-.0959)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = (-.7564,-.132)
  ct = c/10 + k
  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)
    ct = c1/10 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 + k, z = 0
  ENDIF
  z = z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2865"
  periodicity = 0
  maxiter = 500
  magn = 1.1
  center = (.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2866 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel*(.23-pixel)-conj(.1/pixel)+.45
  c=(-.8606,-.0959)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2866"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (.1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2867 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=sin(pixel)*abs(.23-pixel)-conj(.1/pixel)+.45
  c=(-.8606,-.0959)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2867"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (-.2,.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2868 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=conj(cos(.33-pixel/2))*abs(.23-pixel)-conj(.1/pixel)+.45
  c=(-.8606,-.0959)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - 0.0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2868"
  periodicity = 0
  maxiter = 500
  magn = .44
  center = (.5,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2869 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^3-conj(.1/pixel), c=(-.8606,-.0959)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2869"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2870 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=cabs(.5-pixel^7)*sqr(conj(pixel))-conj(.1/pixel) \
    -sqr(flip(.0051/pixel))+.15
  c=(-1.099,-.2249)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2870"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2871 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel/5)+conj(pixel/3)+(pixel/2)^4
  c=(-.7564,.21978)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2871"
  periodicity = 0
  maxiter = 500
  magn = 0.6
  center = (0,-.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2872 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=flip(pixel)*|pixel|-flip(.1/pixel-conj(.01/pixel))
  c=(-.7564,.21978)*(-1.099,-.2249)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2872"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2873 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel-.1/pixel-cotan(cotan(.1/pixel))
  c=pixel+cos(1.5/sqr(cos(pixel/2+conj(pixel/3))))
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2873"
  periodicity = 0
  maxiter = 500
  magn = 3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2874 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^2.67-.1/pixel-cabs(.1/pixel)
  c=(-1.099,-.2249)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + imag(c/13)
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2874"
  periodicity = 0
  maxiter = 500
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2875 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=conj(.1/pixel)-flip(.01/pixel)
  z=flip((pixel-b3)/5)+(pixel-b3)/3+(pixel/2)^4
  c=(-.7564,.21978)*(-1.099,-.2249)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.152) - imag(c/13)
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2875"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2876 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=4*pixel*cabs(2.15*pixel-flip(.1/pixel)-conj(.01/pixel))-.1
  c=(-.7564,.21978)*(-1.099,-.2249)/(-.8606,-.0959) \
    -flip(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.152) + imag(c/13) - conj(.025/c/21)
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2876"
  periodicity = 0
  maxiter = 500
  magn = 4.5
  center = (.02,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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2877 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=flip(7*pixel/12)
  z=c=2*pixel^4-b3-sin(.8*pixel-flip(.01/pixel))\
      +conj(.1275/pixel)+.117
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.112) + c/10 - conj(.0025/c/21)
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2877"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2878 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=flip(pixel/4+pixel/3)
  z=c=2*pixel^4-b3^5-sin(.8*pixel-flip(.01/pixel))\
      +conj(.1275/pixel)+.117
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.112) + c/10 - conj(.0055/c/21)
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2878"
  periodicity = 0
  maxiter = 500
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2879 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=pixel^2-conj(.1/pixel-flip(.01/pixel))
  c=z=sin(.67*pixel^3)-cabs(b3)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.144) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2879"
  periodicity = 0
  maxiter = 500
  magn = .9
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2880 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^2+(-.099,-.2249)-conj(.1/pixel-flip(.01/pixel))
  c=(-1.099,-.2249)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2880"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2881 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel/3.67+conj(flip(pixel/3))+flip(tanh(pixel/2))
  c=(-.7456,.2)+|pixel|*flip(pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2881"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2882 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You Have Been Warned
init:
  b3=|sin(pixel^30.5)|
  c=.15/log(exp(pixel^450-b3-.4)-.8)
  z=(-.7564,.21978)*(-1.099,-.2249)/(-.8606,-.0959) \
    -flip(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro = 0
loop:
  IF (iter==l1)
    ct = c1/10 - .0035/c1/21 + k, z=z*zro
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z=z*zro
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z=z*zro
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z=z*zro
  ENDIF
  z = z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2882"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.001,.001)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2883 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=|sin(pixel^3.5)|
  c=.15/log(exp(pixel^7-b3-.4)-.8)
  z=pixel-conj(.1/pixel)-flip(.01/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  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)
    ct = c1/10 - .0035/c1/21 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = 0
  ENDIF
  z = z*z + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2883"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2884 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b3=|sin(pixel^3.5)|
  c=.15/log(exp(pixel^7+b3-.4)-.8)
  z=(pixel-conj(.1/pixel)-flip(.01/pixel))^7
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  k = (-.7456,-.132)
  ct = c/10 - .0035/c/21 + k
  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, float zro=0
loop:
  IF (iter==l1)
    ct = c1/10 - .0035/c1/21 + k, z = z*zro
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = z*zro
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = z*zro
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = z*zro
  ENDIF
  z=z^2+ct
  iter = iter + 1
bailout:
  |z|<=bailout
default:
  title = "Carr 2884"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2885 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=c=flip(abs(pixel))*flip(asinh(pixel))-flip(.1/pixel) \
      -conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  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)
    ct = c1/10 - .0035/c1/21 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2885"
  periodicity = 0
  maxiter = 500
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2886 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=(.5+pixel/2)^3-conj(.1/pixel)-flip(.1/pixel)+.3
  z=c+.2
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=real(p1), l2=imag(p1), l3=real(p2), l4=imag(p2)
  bailout=16, iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2886"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2887 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=(.5+pixel/2)^3-conj(.1/pixel)-flip(.1/pixel)+0.5
  c=(-.7564,.21978)*(-1.099,-.2249)/(-.8606,-.0959)\
    -flip(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=real(p1), l2=imag(p1), l3=real(p2), l4=imag(p2)
  bailout=16, iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2887"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2888 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=abs(sinh(.5+pixel/2))^3-conj(.1/pixel)-flip(.1/pixel)+.5
  c=(-.7564,.21978)*(-1.099,-.2249)/(-.8606,-.0959)\
    -flip(.001/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  l1=real(p1), l2=imag(p1), l3=real(p2), l4=imag(p2)
  bailout=16, iter=0
loop:
  IF (iter==l1)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2888"
  periodicity = 0
  maxiter = 500
  magn = .6
  center = (-1,-.1)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2889 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=abs(.5+conj(pixel)/2)^3-conj(.1/pixel)^10-flip(.1/pixel)^10-.5
  c=(-.7564,.21978)*(-1.099,-.2249)/(-.8606,-.0959) \
    -flip(.01/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  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)
    ct = c1/10 - .0035/c1/21 + k, z = 0
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = 0
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = 0
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = 0
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2889"
  periodicity = 0
  maxiter = 500
  magn = .7
  center = (-1,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2890 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned
init:
  m3=conj(.1/pixel), z=pixel/2-flip(m3)^4
  b3=|cos(pixel^30.5)|
  c=.15/log(exp(pixel^450-b3-.4)-.8)+|2*z^4|
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro = 0
loop:
  IF (iter==l1)
    ct = c1/10 - .0035/c1/21 + k, z = z*zro
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = z*zro
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = z*zro
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = z*zro
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2890"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.001,.001)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2891 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
          ; Very Slow Render : You've Been Warned
init:
  z=pixel-conj(.1/pixel)-flip(.01/pixel)
  b3=|cos(pixel^30.5)|
  c=.15/log(exp(pixel^450-b3-.4)-.8)+|2*z^4|
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  c1=1.5*z, c2=2.25*z, c3=3.375*z, c4=5.0625*z
  k = (-.7546,-.132)
  ct = c/10 - .0035/c/21 + k
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0, float zro=0
loop:
  IF (iter==l1)
    ct = c1/10 - .0035/c1/21 + k, z = z*zro
  ELSEIF (iter==l2)
    ct = c2/10 - .0035/c2/21 + k, z = z*zro
  ELSEIF (iter==l3)
    ct = c3/10 - .0035/c3/21 + k, z = z*zro
  ELSEIF (iter==l4)
    ct = c4/10 - .0035/c4/21 + k, z = z*zro
  ENDIF
  z = z^2 + ct
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2891"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (.001,.001)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2892 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=flip(imag(pixel))*log(.1/pixel-conj(.1/pixel))-.3
  b5=pixel-conj(.1/pixel)-flip(.01/pixel)
  IF (@p3==1)
    c = b4^2, z = b5^2
  ELSEIF (@p3==0)
    c = -b4, z = -b5
  ELSE
    IF (whitesq)
      c = b4^2, z = b5^2
    ELSE
      c = -b4, z = -b5
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2892"
  periodicity = 0
  maxiter = 500
  magn = 1.0
  center = (0,.001)
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2893 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=pixel^3-cabs(pixel^1.5)-1.2
  b5=pixel
  IF (@p3==1)
    c = b4^2, z = b5^2
  ELSEIF (@p3==0)
    c = -b4, z = -b5
  ELSE
    IF (whitesq)
      c = b4^2, z = b5^2
    ELSE
      c = -b4, z = -b5
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2893"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2894 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=pixel^3-cabs(pixel^1.5)-1.2
  b5=pixel-conj(.1/pixel)-flip(.01/pixel)
  IF (@p3==1)
    c = b4^2, z = b5^2
  ELSEIF (@p3==0)
    c = -b4, z = -b5
  ELSE
    IF (whitesq)
      c = b4^2, z = b5^2
    ELSE
      c = -b4, z = -b5
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z=z^2+(-.7456,-.132)+.1*c- .0035/c/21
  c = z + c/2.125 - .0125
  iter = iter + 1
bailout:
  |z|<=bailout
default:
  title = "Carr 2894"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2895 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  b4=.33+pixel^5-cabs(cos(cotan(pixel^1.5)))-1.72
  b5=pixel^2-conj(.1/pixel)-flip(.01/pixel)
  IF (@p3==1)
    c = b4^2, z = b5^2
  ELSEIF (@p3==0)
    c = -b4, z = -b5
  ELSE
    IF (whitesq)
      c = b4^2, z = b5^2
    ELSE
      c = -b4, z = -b5
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2895"
  periodicity = 0
  maxiter = 500
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2896 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel^2/tanh(.3/pixel)+conj(.1/pixel)-log(pixel)
  z=c^5+(-1.099,-.2249)/3.33
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2896"
  periodicity = 0
  maxiter = 500
  magn = 2.1
  center = (-.15,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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2897 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  c=pixel^2/tanh(.3/pixel)+conj(.1/pixel)-log(pixel)+2
  z=c^5+(-1.099,-.2249)/3.33-conj(.1/pixel)
  IF (@p3==0)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2897"
  periodicity = 0
  maxiter = 500
  magn = 1.7
  center = (-.2,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2898 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^3-.1/(conj(.1/pixel)-sqr(sinh(.025/pixel)))^6-1
  b4=pixel-1/(sinh(.1/pixel)-sqr(cabs(.025/pixel)))^6
  IF (@p3==1)
    c = b4
  ELSEIF (@p3==0)
    c = -b4, z = -z
  ELSE
    IF (whitesq)
      c = b4
    ELSE
      c = -b4, z = -z
    ENDIF
  ENDIF
  c = c + conj(.1/b4)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 - .0125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2898"
  periodicity = 0
  maxiter = 500
  magn = 9
  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
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}

Carr2899 {; Updated for UF2 by Erik Reckase, Feb 2000
          ; Modified Sylvie Gallet frm. [101324,3444],1996
init:
  z=pixel^3-.1/(conj(.1/pixel)-sqr(sinh(.025/pixel)))^6-1
  b4=pixel^9-.1/(conj(.1/pixel)-sqr(cabs(.025/pixel)))^6
  IF (@p3==1)
    c = b4
  ELSEIF (@p3==0)
    c = -b4, z = -z
  ELSE
    IF (whitesq)
      c = b4
    ELSE
      c = -b4, z = -z
    ENDIF
  ENDIF
  c = c + conj(.1/b4)
  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)
    c = c1, z = 0
  ELSEIF (iter==l2)
    c = c2, z = 0
  ELSEIF (iter==l3)
    c = c3, z = 0
  ELSEIF (iter==l4)
    c = c4, z = 0
  ENDIF
  z = z*z + (-.7546,-.132) + c/10 - .0035/c/21
  c = z + c/2.125 + 0.009125
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 2899"
  periodicity = 0
  maxiter = 500
  magn = 8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (100,150)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (200,250)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
    hint = "Options 1 and 2 are the two separate layers of this \
            formula.  The 'Original' option uses the original \
            PHC formula."
  endparam
}