comment {
  Carr3300.ufm Version 1.6
  Ultra Fractal conversions of Robert Carr's formulas Carr3300 - Carr3399
  by Erik Reckase, February 25, 2000

  History:  Version 1.6 - Minor optimization tweaks + cleanup
 
            Version 1.5 - Formulas 3381-3384 optimized

            Version 1.4 - major optimization overhaul

            Version 1.3 - bailout condition typo'd in 3383-3399

            Version 1.2 - Modified whitesq code to eliminate warnings

            Version 1.1 - Removed unnecessary code in Carr2887-2899
                          for optimization

            Version 1.0 - Initial Release
                          Original formulas pulled from 43eCarr.frm
                                                        43fCarr.frm
                                                        43gCarr.frm
                                                        43hCarr.frm
                          Carr3300-3380,3386-3399  : pixel fix
                          Carr3385                 : |z|, cosxx fixes
                          Carr3316-3320,3353       : variable used before defined
                          Carr3337,3360,3373       : variables not used, removed
}

Carr3300 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=sin(.002/pixel2-flip(.002/pixel2))
  b10=pixel2^10-conj(.01/pixel2-flip(.15/pixel2))
  c=abs(pixel2^2)*b10-.01/pixel2
  b5=cabs(pixel2^2)*abs(b10)^2*(.1-c)-(b8+b6+b7)/.65 \
     -.002/pixel2-.19
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5)/2
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5)/2
    ENDIF
  ENDIF
  cmod = .015 + (b8*b6)^3/1.5
  c = c - cmod - .24
  c1=1.5*z^1.2,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 - cmod, z = 0
  ELSEIF (iter==l2)
    c = c2 - cmod, z = 0
  ELSEIF (iter==l3)
    c = c3 - cmod, z = 0
  ELSEIF (iter==l4)
    c = c4 - cmod, z = 0
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3300"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3301 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)-.4/cos(pixel2) \
      -conj(.01/pixel2-flip(.15/pixel2))
  c=cabs(pixel2^2)*b10-.01/pixel2
  b5=cabs(pixel2^2)*abs(b10)^2*(.1-c)-(b8+b6+b7)/.65 \
     -.002/pixel2-.1951
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5)/2
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5)/2
    ENDIF
  ENDIF
  cmod = .015 + (b8^2*b6/pixel2)^3/1.5
  c = c - cmod-.24
  c1=1.5*z^1.2,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 - cmod, z = 0
  ELSEIF (iter==l2)
    c = c2 - cmod, z = 0
  ELSEIF (iter==l3)
    c = c3 - cmod, z = 0
  ELSEIF (iter==l4)
    c = c4 - cmod, z = 0
  ENDIF
  z = |z/2.5| + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3301"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3302 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(0.015/pixel2), b7=flip(0.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)-.4/cos(pixel2) \
      -conj(.01/pixel2-flip(.15/pixel2))
  c=cabs(pixel2^2)*b10^3-.01/pixel2
  b5=sinh(pixel2^4)*flip(b10)^3*conj(.25-c) \
     -(b8+b6+b7)/.65-.002/pixel2-.1951
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5/2*pixel2^2)
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5/2*pixel2^2)
    ENDIF
  ENDIF
  cmod = .015 + ((b8^2*b6/pixel2)^3)/1.5
  c = c - cmod - .24
  z = z + .15
  c1=1.5*z^1.2,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 - cmod, z = 0
  ELSEIF (iter==l2)
    c = c2 - cmod, z = 0
  ELSEIF (iter==l3)
    c = c3 - cmod, z = 0
  ELSEIF (iter==l4)
    c = c4 - cmod, z = 0
  ENDIF
  z = |z/2.5| + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3302"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3303 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)-.4/cos(pixel2) \
      -conj(.01/pixel2-flip(.15/pixel2))
  c=cabs(pixel2^2)*b10^3-.01/pixel2
  b5=sinh(pixel2^4)*flip(b10)^3*conj(.25-c) \
     -(b8+b6+b7)/.65-.002/pixel2-.1951
  IF (@p3==1)
    z = (b5)^.745+.15
  ELSEIF (@p3==0)
    c = -c, z = -(b5/2*pixel2^2)+.15
  ELSE
    IF (whitesq)
      z = (b5)^.745+.15
    ELSE
      c = -c, z = -(b5/2*pixel2^2)+.15
    ENDIF
  ENDIF
  cmod = .015 + (b8^2*b6/pixel2)^3/1.5
  c = .875*(c-.24) - cmod
  c1=1.5*z^1.2,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 = .875*c1 - cmod, z = 0
  ELSEIF (iter==l2)
    c = .875*c2 - cmod, z = 0
  ELSEIF (iter==l3)
    c = .875*c3 - cmod, z = 0
  ELSEIF (iter==l4)
    c = .875*c4 - cmod, z = 0
  ENDIF
  z = |z/2.5| + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3303"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3304 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)-.4/cos(pixel2) \
      -conj(.01/pixel2-flip(.15/pixel2))
  c=cabs(pixel2^2)*b10^3-.01/pixel2
  b5=flip(b10)^3*conj(.25-c)/pixel2-(b8+b6+b7)/.65 \
     -.002/pixel2-.1951
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5/2*pixel2^2)
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5/2*pixel2^2)
    ENDIF
  ENDIF
  c = c - .24
  z = z + .15
  c = c + |c/8| - .015
  c1=1.5*z^1.2,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 + |c1/8| - .015, z = 0
  ELSEIF (iter==l2)
    c = c2 + |c2/8| - .015, z = 0
  ELSEIF (iter==l3)
    c = c3 + |c3/8| - .015, z = 0
  ELSEIF (iter==l4)
    c = c4 + |c4/8| - .015, z = 0
  ENDIF
  z = |z/2.5| + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3304"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3305 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b10=flip(pixel2^8)*.2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b5=conj(pixel2+b6)^4*pixel2^3*b10-(b6+b7)/.64+.1345
  c=conj(conj(pixel2/2)*sin(abs(pixel2/3)^5)) \
    *flip(pixel2^6-b7)-b6
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -c, z = -(b5)/.75
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -c, z = -(b5)/.75
    ENDIF
  ENDIF
  c = 12*c/11
  c1=1.5*z^1.2,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 = 12*c1/11, z = 0
  ELSEIF (iter==l2)
    c = 12*c2/11, z = 0
  ELSEIF (iter==l3)
    c = 12*c3/11, z = 0
  ELSEIF (iter==l4)
    c = 12*c4/11, z = 0
  ENDIF
  z = z^2 - c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3305"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3306 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*.2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b5=tanh(pixel2+b6)^4*pixel2^3*b10-(b8+b7)/.64+.1345+.1/cos(b6)
  c=conj(conj(pixel2/2)+sin(abs(pixel2/3)^5)) \
    *flip(pixel2^6-b7)-b6
  zmod1 = .25*b6
  cmod = flip(|d/70*pixel2|) + .33*b7
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)/.75
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -(c^2), z = -(b5)/.75
    ENDIF
  ENDIF
  c = cmod + c/8 - conj(c+zmod1)
  c1=1.5*z^1.2,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 = cmod + c1/8 - conj(c1+zmod1), z = 0
  ELSEIF (iter==l2)
    c = cmod + c2/8 - conj(c2+zmod1), z = 0
  ELSEIF (iter==l3)
    c = cmod + c3/8 - conj(c3+zmod1), z = 0
  ELSEIF (iter==l4)
    c = cmod + c4/8 - conj(c4+zmod1), z = 0
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3306"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3307 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*.2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b5=tanh(pixel2+b6)^4*pixel2^3*b10-(b8+b7)/.64+.1345+.1/cos(b6)
  c=conj(conj(pixel2/2)+sin(abs(pixel2/3)^5))*flip(pixel2^6-b7)-b6
  cmod = (b8^2*b6/pixel2)^3/1.5
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)/.75
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -(c^2), z = -(b5)/.75
    ENDIF
  ENDIF
  c = c + cmod
  c1=1.5*z^1.2,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 + cmod, z = 0
  ELSEIF (iter==l2)
    c = c2 + cmod, z = 0
  ELSEIF (iter==l3)
    c = c3 + cmod, z = 0
  ELSEIF (iter==l4)
    c = c4 + cmod, z = 0
  ENDIF
  z = z^2 - c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3307"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3308 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b5=conj(pixel2^2)*flip(pixel2^5)-b6-b7-.066/b10
  c=b5-.1/conj(conj(pixel2/2)+sin(abs(pixel2/3)^5)) \
    *flip(pixel2^6-b7)-b6
  IF (@p3==1)
    z = (b5)^.745
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)/.75
  ELSE
    IF (whitesq)
      z = (b5)^.745
    ELSE
      c = -(c^2), z = -(b5)/.75
    ENDIF
  ENDIF
  c = 12*c/11
  c1=1.5*z^1.2,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 = 12*c1/11, z = 0
  ELSEIF (iter==l2)
    c = 12*c2/11, z = 0
  ELSEIF (iter==l3)
    c = 12*c3/11, z = 0
  ELSEIF (iter==l4)
    c = 12*c4/11, z = 0
  ENDIF
  z = z^2 - c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3308"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3309 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  c=cabs(pixel2^2)*b10^3-.01/pixel2
  z=tanh(pixel2^4)*flip(b10)^3*conj(.25-c)-(b8+b6+b7)/.65 \
    -.002/pixel2
  IF (@p3==1)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  ctemp = conj(pixel2-c-.1)
  c1=1.5*z^1.2,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)
    ctemp = conj(pixel2-c1-.1), z = 0
  ELSEIF (iter==l2)
    ctemp = conj(pixel2-c2-.1), z = 0
  ELSEIF (iter==l3)
    ctemp = conj(pixel2-c3-.1), z = 0
  ELSEIF (iter==l4)
    ctemp = conj(pixel2-c4-.1), z = 0
  ENDIF
  z = z^2 + ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3309"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3310 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  c=(-.3278,-.066)
  z=tanh(pixel2^4)*flip(b10)^3*conj(.25-c)-(b8+b6+b7)/.65 \
    -.002/pixel2
  cmod = flip(|d/80*pixel2|)
  IF (@p3==1)
    c = -c, z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -z
    ENDIF
  ENDIF
  ctemp = conj(pixel2-c-.175) + cmod
  c1=1.5*z^1.2,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)
    ctemp = conj(pixel2-c1-.175) + cmod, z = 0
  ELSEIF (iter==l2)
    ctemp = conj(pixel2-c2-.175) + cmod, z = 0
  ELSEIF (iter==l3)
    ctemp = conj(pixel2-c3-.175) + cmod, z = 0
  ELSEIF (iter==l4)
    ctemp = conj(pixel2-c4-.175) + cmod, z = 0
  ENDIF
  z = z^2 + ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3310"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3311 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  c = (-.3728,-.066)
  b5=tanh(pixel2^4)*flip(b10)^3*conj(.25-c)-(b8+b6+b7)/.65 \
     -.002/pixel2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctemp = conj(pixel2-c-.25) + c/12
  c1=1.5*z^1.2,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)
    ctemp = conj(pixel2-c1-.25) + c1/12, z = 0
  ELSEIF (iter==l2)
    ctemp = conj(pixel2-c2-.25) + c2/12, z = 0
  ELSEIF (iter==l3)
    ctemp = conj(pixel2-c3-.25) + c3/12, z = 0
  ELSEIF (iter==l4)
    ctemp = conj(pixel2-c4-.25) + c4/12, z = 0
  ENDIF
  z = z^2 + ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3311"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3312 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(0.125/pixel2))
  c = (-.3728,-.066)
  b5=tanh(pixel2^4)*flip(b10)^3*conj(.25-c)-(b8+b6+b7)/0.65 \
     -.002/pixel2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctemp = conj(sinh(pixel2-c)-.25)+c/12
  c1=1.5*z^1.2,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)
    ctemp = conj(sinh(pixel2-c1)-.25)+c1/12, z = 0
  ELSEIF (iter==l2)
    ctemp = conj(sinh(pixel2-c2)-.25)+c2/12, z = 0
  ELSEIF (iter==l3)
    ctemp = conj(sinh(pixel2-c3)-.25)+c3/12, z = 0
  ELSEIF (iter==l4)
    ctemp = conj(sinh(pixel2-c4)-.25)+c4/12, z = 0
  ENDIF
  z=z^2+ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3312"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3313 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  c=(.3,.6)/pi
  b5=tanh(pixel2^4)*flip(b10)^3*conj(.25-c)-(b8+b6+b7)/.65 \
     -.002/pixel2
  IF (@p3==1)
    z = (b5)^.75
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)^.75
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctemp = conj(sinh(pixel2-c)-.25)+c/12
  c1=1.5*z^1.2,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)
    ctemp = conj(sinh(pixel2-c1)-.25)+c1/12, z = 0
  ELSEIF (iter==l2)
    ctemp = conj(sinh(pixel2-c2)-.25)+c2/12, z = 0
  ELSEIF (iter==l3)
    ctemp = conj(sinh(pixel2-c3)-.25)+c3/12, z = 0
  ELSEIF (iter==l4)
    ctemp = conj(sinh(pixel2-c4)-.25)+c4/12, z = 0
  ENDIF
  z=z^2+ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3313"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3314 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2), c=(.075,.15)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  z=sinh(pixel2^4)*conj(b10)^3*conj(.05-c)-(b8+b6+b7)/.65 \
    -.002/pixel2
  IF (@p3==1)
    c = -c, z = -(z^2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z^2)
    ENDIF
  ENDIF
  ctemp = conj(sinh(pixel2-c)-.25)+c/12
  c1=1.5*z^1.2,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)
    ctemp = conj(sinh(pixel2-c1)-.25)+c1/12, z = 0
  ELSEIF (iter==l2)
    ctemp = conj(sinh(pixel2-c2)-.25)+c2/12, z = 0
  ELSEIF (iter==l3)
    ctemp = conj(sinh(pixel2-c3)-.25)+c3/12, z = 0
  ELSEIF (iter==l4)
    ctemp = conj(sinh(pixel2-c4)-.25)+c4/12, z = 0
  ENDIF
  z=z^2+ctemp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3314"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3315 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  c=pixel2^4-b6-b7
  b5=pixel2^4*b10^3*(c-.15)-(b8+b6+b7)/0.65-.002/pixel2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = 12*c/11
  c1=1.5*z^1.2,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 = 12*c1/11, z = 0
  ELSEIF (iter==l2)
    c = 12*c2/11, z = 0
  ELSEIF (iter==l3)
    c = 12*c3/11, z = 0
  ELSEIF (iter==l4)
    c = 12*c4/11, z = 0
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3315"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3316 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
                  ; Cannot emulate Fractint behavior with 
                  ;   variable carryover
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(0.01/pixel2)
  b5=pi*(b6-pixel2^4)*b10^3*b7^3-(b8+b6+b7)/.65-.002/pixel2+.15
  c=pixel2^6-.33*(pixel2^4-b3)-.025/b5
  cmod = (b8^2*b6/pixel2)^3/1.5 - b6
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = 12*c/11 + cmod
  c1=1.5*z^1.2,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 = 12*c1/11 + cmod, z = 0
  ELSEIF (iter==l2)
    c = 12*c2/11 + cmod, z = 0
  ELSEIF (iter==l3)
    c = 12*c3/11 + cmod, z = 0
  ELSEIF (iter==l4)
    c = 12*c4/11 + cmod, z = 0
  ENDIF
  z=z*z-c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3316"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3317 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
                  ; Cannot emulate Fractint behavior with 
                  ;   variable carryover
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  b2=(b8-b6-b7)/.55-.001/pixel2
  z=(b6-cabs(pixel2^4))*b10^5*b7^3-b2^1.25+.1
  c=abs(pixel2)^6-.33*(pixel2^4-b3)-.025/z
  cmod = (-.7456,-.132)^2.5
  IF (@p3==0)
    c = -(c^2), z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -(c^2), z = -z
    ENDIF
  ENDIF
  c = 2*c^2 + cmod
  c1=1.5*z^1.2,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 = 2*c1^2 + cmod, z = 0
  ELSEIF (iter==l2)
    c = 2*c2^2 + cmod, z = 0
  ELSEIF (iter==l3)
    c = 2*c3^2 + cmod, z = 0
  ELSEIF (iter==l4)
    c = 2*c4^2 + cmod, z = 0
  ENDIF
  z = z^3/5 + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3317"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3318 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
                  ; Cannot emulate Fractint behavior with 
                  ;   variable carryover
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(0.1-pixel2))-conj(.01/pixel2)
  b2=(b8-b6-b7)/.55-.001/pixel2
  z=(b6-cabs(pixel2^4))*b10^5*b7^3+b2^1.25+.1
  c=abs(pixel2)^6-.33*(pixel2^4-b3)-.015/z-|.015/z*b3|
  zmod = (-.7456,-.132)^2.5
  IF (@p3==1)
    c = -(c^2), z = -(z)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -(c^2), z = -(z)
    ENDIF
  ENDIF
  c = 2*c^2 + zmod
  c1=1.5*z^1.2,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 = 2*c1^2 + zmod, z = 0
  ELSEIF (iter==l2)
    c = 2*c2^2 + zmod, z = 0
  ELSEIF (iter==l3)
    c = 2*c3^2 + zmod, z = 0
  ELSEIF (iter==l4)
    c = 2*c4^2 + zmod, z = 0
  ENDIF
  z = z^3/5 + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3318"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3319 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  b2=(b8-b6-b7)/.55-.001/pixel2
  c=1.2*|pixel2/0.75|^5+conj(.1/pixel2+flip(.01/pixel2))
  b9=conj(.007/c-flip(.007/c))
  b5=flip(imag(.33+sin(|pixel2|)))*cabs(pixel2^4)-b2+.001*b3 \
     -.42*cos(b9)+.35
  zmod = .33*b7+b2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -(c/2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -(c/2), z = -(b5)
    ENDIF
  ENDIF
  c = conj(c+.1*b6) + c/4 + zmod
  c1=1.5*z^1.2,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 = conj(c1+.1*b6) + c1/4 + zmod, z = 0
  ELSEIF (iter==l2)
    c = conj(c2+.1*b6) + c2/4 + zmod, z = 0
  ELSEIF (iter==l3)
    c = conj(c3+.1*b6) + c3/4 + zmod, z = 0
  ELSEIF (iter==l4)
    c = conj(c4+.1*b6) + c4/4 + zmod, z = 0
  ENDIF
  z = z^2 - c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3319"
  periodicity = 0
  maxiter = 700
  magn = 1.9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3320 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  b2=(b8-b6-b7)/.55-.001/pixel2
  c=|pixel2|^5+conj(.1/pixel2+flip(.01/pixel2))
  b9=conj(.007/c-flip(.007/c))
  b5=flip(imag(.33+sin(|pixel2|)))*cabs(pixel2^4)-b2+.001*b3 \
     -.42*conj(cos(b9))+.3
  zmod = .33*b7+b2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = conj(c+.1*b6) + 2*c/9 + zmod 
  c1=1.5*z^1.2,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 = conj(c1+.1*b6) + 2*c1/9 + zmod, z = 0
  ELSEIF (iter==l2)
    c = conj(c2+.1*b6) + 2*c2/9 + zmod, z = 0
  ELSEIF (iter==l3)
    c = conj(c3+.1*b6) + 2*c3/9 + zmod, z = 0
  ELSEIF (iter==l4)
    c = conj(c4+.1*b6) + 2*c4/9 + zmod, z = 0
  ENDIF
  z=z*z-c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3320"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3321 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.01/pixel2), c=pixel2^3^exp(.02*pixel2)+.25
  b5=abs(cabs(c^6)/cotanh(.1-pixel2)+conj(.01/pixel2) \
     +flip(.01/c))+.2493
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = 1.1*c - b6
  c1=1.5*z^1.2,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 = 1.1*c1 - b6, z = 0
  ELSEIF (iter==l2)
    c = 1.1*c2 - b6, z = 0
  ELSEIF (iter==l3)
    c = 1.1*c3 - b6, z = 0
  ELSEIF (iter==l4)
    c = 1.1*c4 - b6, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3321"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3322 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=conj(.01/pixel2-flip(.001/pixel2))
  b5=conj(conj(pixel2/12)*sin(abs(pixel2/13))) \
     *conj(pixel2^8)-b3-conj(.1/pixel2)+.2
  c=b5/2.5-conj(.01/pixel2)+.25
  zmod = .09 + .055/pixel2 - flip(abs(d/60*pixel2))
  IF (@p3==1)
    z = (b5^.75)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.75)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = .875*c + zmod
  c1=1.5*z^1.2,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 = .875*c1 + zmod, z = 0
  ELSEIF (iter==l2)
    c = .875*c2 + zmod, z = 0
  ELSEIF (iter==l3)
    c = .875*c3 + zmod, z = 0
  ELSEIF (iter==l4)
    c = .875*c4 + zmod, z = 0
  ENDIF
  z = |z/6| + z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3322"
  periodicity = 0
  maxiter = 700
  magn = .8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3323 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  b5=conj(c^6)-conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.75)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.75)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3323"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3324 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b2=(b8-b6-b7)/.55-.001/pixel2
  c=conj(pixel2^4/tanh(.3/pixel2)+.1/pixel2)-.25
  b5=conj(cabs(c^6)-b2)-conj(.1/pixel2-flip(.01/pixel2))-.17
  IF (@p3==1)
    z = (b5^.75)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.75)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3324"
  periodicity = 0
  maxiter = 700
  magn = 1.8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3325 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=pixel2^2-.2*cabs(.2-pixel2^-.025)
  b5=flip(c-b7)^3-cabs(.01/pixel2-flip(.01/c))-b6+b8+.15
  IF (@p3==1)
    z = (b5^.75)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.75)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3325"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3326 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b2=(b8-b6-b7)/.55-.001/pixel2
  b5=abs(pixel2^5)*cabs(pixel2)-conj(.0125/pixel2 \
     -flip(.005/pixel2))-b2-.19452
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5))-b6
  IF (@p3==1)
    z = (b5^.75)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.75)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3326"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3327 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.01/pixel2), b7=flip(.02/pixel2)
  b1=pixel2^2-conj(.2*cos(.2-pixel2^-.025))
  b5=flip(conj(pixel2^4))*abs(pixel2)*b1 \
     -conj(.0125/pixel2-flip(.005/pixel2))-.075
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5))
  zmod = -b7+b6
  IF (@p3==1)
    z = (b5^.66)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.66)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = 1.1*c + zmod
  c1=1.5*z^1.2,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 = 1.1*c1 + zmod, z = 0
  ELSEIF (iter==l2)
    c = 1.1*c2 + zmod, z = 0
  ELSEIF (iter==l3)
    c = 1.1*c3 + zmod, z = 0
  ELSEIF (iter==l4)
    c = 1.1*c4 + zmod, z = 0
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3327"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3328 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.025/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10a=pixel2-2*sinh(.01/pixel2)-tanh(.01/pixel2)
  b10=|pixel2^3|*abs(pixel2)
  b5=conj(b10^1.5)*b10a^2*pixel2-b6-b7-b8-.1945
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5))
  IF (@p3==1)
    z = (b5^.66)
  ELSEIF (@p3==0)
    c = c, z = -(b5/2)
  ELSE
    IF (whitesq)
      z = (b5^.66)
    ELSE
      c = -c, z = -(b5/2)
    ENDIF
  ENDIF
  c = c - b6 + b7 + .0125
  c1=1.5*z^1.2,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 - b6 + b7 + .0125, z = 0
  ELSEIF (iter==l2)
    c = c2 - b6 + b7 + .0125, z = 0
  ELSEIF (iter==l3)
    c = c3 - b6 + b7 + .0125, z = 0
  ELSEIF (iter==l4)
    c = c4 - b6 + b7 + .0125, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3328"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3329 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.025/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b2=(b8-b6-b7)/.65-.002/pixel2, b10=|pixel2^3|*abs(pixel2)
  b10a=pixel2-2*sinh(.01/pixel2)-tanh(.01/pixel2)
  b1=tanh(pixel2)^2-conj(.075*cos(.2-pixel2^-.025))
  b5=conj(b10^3)*conj(b10a^2*pixel2^2.5)-.2*b1-b6-b8-.1945
  c=conj(1.5*b5)^2-2*flip(imag(.01/b5))-b2-.25
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5/2)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5/2)
    ENDIF
  ENDIF
  cmod = b7-b6+.0125
  c = c + cmod
  c1=1.5*z^1.2,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 + cmod, z = 0
  ELSEIF (iter==l2)
    c = c2 +cmod, z = 0
  ELSEIF (iter==l3)
    c = c3 + cmod, z = 0
  ELSEIF (iter==l4)
    c = c4 + cmod, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3329"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3330 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.025/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b3=exp(.0045/pixel2)/conj(cos(.1-pixel2))-conj(.01/pixel2)
  b2=(b8-b6-b7)/.65-.002/pixel2
  b10a=pixel2-sinh(.01/pixel2)-tanh(.01/pixel2)-sinh(.01/pixel2)
  b10=conj(pixel2)*sinh(pixel2)^2*tanh(pixel2)*conj(abs(pixel2))
  b5=b10a*b10-b2*.5+b6+b7+.02*b3+.1045
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5))
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5/3/pixel2)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5/3/pixel2)
    ENDIF
  ENDIF
  cmod = b7-b6+.0125
  c = c + cmod
  c1=1.5*z^1.2,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+cmod, z = 0
  ELSEIF (iter==l2)
    c = c2+cmod, z = 0
  ELSEIF (iter==l3)
    c = c3+cmod, z = 0
  ELSEIF (iter==l4)
    c = c4+cmod, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3330"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3331 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.025/pixel2), b7=flip(.01/pixel2)
  b10a=pixel2^3-cabs(.01/pixel2)-abs(.01/pixel2)-.01/pixel2
  b5=.67*b10a*(cabs(pixel2^2)+pixel2^9) \
     -conj(.1/pixel2-flip(.01/pixel2))+.1
  c=b5-|.1/b5|
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cmod = b7-b6+.0125
  c = c + cmod
  c1=1.5*z^1.2,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+cmod, z = 0
  ELSEIF (iter==l2)
    c = c2+cmod, z = 0
  ELSEIF (iter==l3)
    c = c3+cmod, z = 0
  ELSEIF (iter==l4)
    c = c4+cmod, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3331"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3332 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.025/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2)-conj(.01/pixel2)-.2
  IF (@p3==1)
    z = conj(b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5-b6)
  ELSE
    IF (whitesq)
      z = conj(b5^.745)
    ELSE
      c = -c, z = -conj(b5-b6)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3332"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3333 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.055/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))+.2
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.0075/pixel2)-.2
  IF (@p3==1)
    z = conj(b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5-b6)
  ELSE
    IF (whitesq)
      z = conj(b5^.745)
    ELSE
      c = -c, z = -conj(b5-b6)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3333"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.02)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3334 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.055/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3))+.2
  b5=pixel2^3*cabs(pixel2^4)-flip(.01/pixel2) \
     -conj(.0075/pixel2)-.2
  IF (@p3==1)
    z = conj(b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5-b6)
  ELSE
    IF (whitesq)
      z = conj(b5^.745)
    ELSE
      c = -c, z = -conj(b5-b6)
    ENDIF
  ENDIF
  c = c+(-.745,-.132)-c/8.25
  c1=1.5*z^1.2,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+(-.745,-.132)-c1/8.25, z = 0
  ELSEIF (iter==l2)
    c = c2+(-.745,-.132)-c2/8.25, z = 0
  ELSEIF (iter==l3)
    c = c3+(-.745,-.132)-c3/8.25, z = 0
  ELSEIF (iter==l4)
    c = c4+(-.745,-.132)-c4/8.25, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3334"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,-.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3335 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.055/pixel2)
  c=cabs(pixel2^2)*conj(flip(pixel2^3))+.2
  b5=cabs(pixel2^3-b6)*flip(abs(pixel2^4)) \
     -flip(.025/pixel2)-conj(.0075/pixel2)-.1834
  IF (@p3==1)
    z = conj(b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5-b6)
  ELSE
    IF (whitesq)
      z = conj(b5^.745)
    ELSE
      c = -c, z = -conj(b5-b6)
    ENDIF
  ENDIF
  c = c + (-.745,-.132)-c/8.25
  c1=1.5*z^1.2,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+(-.745,-.132)-c1/8.25, z = 0
  ELSEIF (iter==l2)
    c = c2+(-.745,-.132)-c2/8.25, z = 0
  ELSEIF (iter==l3)
    c = c3+(-.745,-.132)-c3/8.25, z = 0
  ELSEIF (iter==l4)
    c = c4+(-.745,-.132)-c4/8.25, z = 0
  ENDIF
  z=z*z+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3335"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3336 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.055/pixel2)
  c=cabs(pixel2^2)*conj(flip(pixel2^3))+.2
  b5=cabs(pixel2^3-b6)*flip(abs(pixel2^4)) \
     -flip(.025/pixel2)-conj(.0075/pixel2)-.1834
  IF (@p3==1)
    z = conj(b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -conj(b5-b6)
  ELSE
    IF (whitesq)
      z = conj(b5^.745)
    ELSE
      c = -c, z = -conj(b5-b6)
    ENDIF
  ENDIF
  c=c*13/12
  c1=1.5*z^1.2,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*13/12, z = 0
  ELSEIF (iter==l2)
    c = c2*13/12, z = 0
  ELSEIF (iter==l3)
    c = c3*13/12, z = 0
  ELSEIF (iter==l4)
    c = c4*13/12, z = 0
  ENDIF
  z = z^2 - conj(.15*z) + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3336"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3337 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.055/pixel2), b7=flip(.025/pixel2)
  z=conj(pixel2^2)*conj(flip(pixel2^3))-b6^2-b7+.1534
  c=conj(z/2.5)+flip(z/2.5)-b6
  IF (@p3==0)
    c = -c, z = -conj(z-b6)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -conj(z-b6)
    ENDIF
  ENDIF
  c = c*9/8
  c1=1.5*z^1.2,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*9/8, z = 0
  ELSEIF (iter==l2)
    c = c2*9/8, z = 0
  ELSEIF (iter==l3)
    c = c3*9/8, z = 0
  ELSEIF (iter==l4)
    c = c4*9/8, z = 0
  ENDIF
  z=z*z-conj(0.25*z)+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3337"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,-.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3338 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=.3*pixel2^4/cos(.1/cotanh(pixel2)) \
     -.1/log(pixel2-.2/sqrt(.5/pixel2))^2.5-conj(.05/pixel2)
  b5=.2-conj(.025/pixel2)
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3338"
  periodicity = 0
  maxiter = 700
  magn = .9
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3339 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.05/pixel2)
  b5=pixel2^5-conj(.1/pixel2-flip(.01/pixel2))+conj(.1/pixel2)+.2
  c=pixel2-conj(.1/pixel2-flip(.01/pixel2))-conj(.01/b5)
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5+pixel2/pi)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5+pixel2/pi)
    ENDIF
  ENDIF
  z = z + b6/4
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3339"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3340 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=b5=(.5+pixel2/2)^7-conj(.1/pixel2)-flip(.1/pixel2)+.3
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3340"
  periodicity = 0
  maxiter = 700
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3341 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  c=(.5+pixel2/2)^7-conj(.1/pixel2)-flip(.1/pixel2)+.3
  b5=(.5+pixel2/3)^4*conj(.5+pixel2/2)^4-conj(.15/pixel2) \
     -flip(.15/pixel2)+.3
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cmod = flip(|d/40*pixel2|)
  ctmp = conj(c-.075/c)-cmod
  c1=1.5*z^1.2,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)
    ctmp = conj(c1-.075/c1)-cmod, z = 0
  ELSEIF (iter==l2)
    ctmp = conj(c2-.075/c2)-cmod, z = 0
  ELSEIF (iter==l3)
    ctmp = conj(c3-.075/c3)-cmod, z = 0
  ELSEIF (iter==l4)
    ctmp = conj(c4-.075/c4)-cmod, z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3341"
  periodicity = 0
  maxiter = 700
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3342 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op=.5+pixel2/2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b9=abs(.5+pixel2/3)^4*conj(op)^4*op
  c=op^7-conj(.2/pixel2)-flip(.2/pixel2)+.3
  b5=b9-conj(.175/pixel2)-flip(.15/pixel2)-b8-2*real(.01/c)+.27
  IF (@p3==1)
    z = (b5^.6456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.6456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cmod = flip(|d/40*pixel2|)
  ctmp = conj(c-.075/c)-cmod
  c1=1.5*z^1.2,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)
    ctmp = conj(c1-.075/c1)-cmod, z = 0
  ELSEIF (iter==l2)
    ctmp = conj(c2-.075/c2)-cmod, z = 0
  ELSEIF (iter==l3)
    ctmp = conj(c3-.075/c3)-cmod, z = 0
  ELSEIF (iter==l4)
    ctmp = conj(c4-.075/c4)-cmod, z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3342"
  periodicity = 0
  maxiter = 700
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3343 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel)), op=.5+pixel2/2
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b9=cabs(.5+pixel2/3)^4*conj(op)^4*flip(op)^2
  c=op^7-conj(.2/pixel2)-flip(.2/pixel2)+.3
  b5=b9-conj(.175/pixel2)-flip(.15/pixel2)-b8-2*real(.01/c)+.27
  IF (@p3==1)
    z = (b5^.6456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.6456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  cmod = flip(|d/40*pixel2|)
  ctmp = conj(c-.075/c)-cmod
  c1=1.5*z^1.2,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)
    ctmp = conj(c1-.075/c1)-cmod, z = 0
  ELSEIF (iter==l2)
    ctmp = conj(c2-.075/c2)-cmod, z = 0
  ELSEIF (iter==l3)
    ctmp = conj(c3-.075/c3)-cmod, z = 0
  ELSEIF (iter==l4)
    ctmp = conj(c4-.075/c4)-cmod, z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3343"
  periodicity = 0
  maxiter = 700
  magn = .6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3344 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=flip(pixel2^5)-conj(.1/pixel2-flip(.001/pixel2))-.135
  c=b5-|.1/b5|
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3344"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.06)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3345 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  z=flip(pixel2^2)-cabs(pixel2^7) \
    -conj(.01/pixel2-flip(.001/pixel2))
  c=abs(z)*z/8*conj(flip(z/3))
  IF (@p3==0)
    c = -c, z = -(z/tanh(.3/pixel2))
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z/tanh(.3/pixel2))
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3345"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,-.05)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3346 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  j=(1-pixel2)^1.8/flip(asinh(pixel2^2))
  c=pixel2^7/j-conj(.01/pixel2)-flip(.1/pixel2)
  b5=c+0.15
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3346"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,.02)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3347 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=conj(pixel2)*abs(pixel2)*flip(pixel2) \
     -conj(.1/pixel2-flip(.01/pixel2))
  b5=conj(sinh(c^3))-conj(.1/c+flip(.01/c))-.15
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3347"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3348 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=2*conj(.1-pixel2)*conj(abs(pixel2))*flip(tanh(pixel2)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  b5=(conj(sinh(c^3))-conj(.1/c+flip(.01/c))-.15)^2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3348"
  periodicity = 0
  maxiter = 700
  magn = 1.9
  center = (0,.02)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3349 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  ba=4*conj(.1-pixel2)*conj(abs(pixel2))*flip(tanh(pixel2))
  c=ba-conj(.1/pixel2-flip(.01/pixel2))
  b5=(conj(sinh(c^3))-conj(.15/c+flip(.0075/c))-.15)^2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3349"
  periodicity = 0
  maxiter = 700
  magn = 2.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3350 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  ba=8*conj(.1-pixel2)*conj(abs(pixel2))*flip(tanh(sinh(pixel2)))
  c=ba-conj(.1/pixel2-flip(.01/pixel2))
  b5=(conj(sinh(c^3))-conj(.15/c+flip(.0175/c) \
     -conj(.1/pixel2))-.16)^2
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5/2)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5/2)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3350"
  periodicity = 0
  maxiter = 700
  magn = 3.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3351 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=2.64*conj(.1-pixel2)*conj(sinh(pixel2))*flip(tanh(pixel2))
  b5=pixel2^4-flip(.05/pixel2)-conj(.001/pixel2)-.001/c
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctmp = (-.745,-.132)-flip(conj(c/10))
  c1=1.5*z^1.2,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)
    ctmp = (-.745,-.132)-flip(conj(c1/10)), z = 0
  ELSEIF (iter==l2)
    ctmp = (-.745,-.132)-flip(conj(c2/10)), z = 0
  ELSEIF (iter==l3)
    ctmp = (-.745,-.132)-flip(conj(c3/10)), z = 0
  ELSEIF (iter==l4)
    ctmp = (-.745,-.132)-flip(conj(c4/10)), z = 0
  ENDIF
  z = z^2 + ctmp
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3351"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3352 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=conj(pixel2)*abs(pixel2)*flip(pixel2) \
     -conj(.1/pixel2-flip(.01/pixel2))-.2
  c=conj(sinh(b5^3))-conj(.1/b5+flip(.01/b5))
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctmp = (-.745,-.132)-flip(conj(c/10))
  c1=1.5*z^1.2,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)
    ctmp = (-.745,-.132)-flip(conj(c1/10)), z = 0
  ELSEIF (iter==l2)
    ctmp = (-.745,-.132)-flip(conj(c2/10)), z = 0
  ELSEIF (iter==l3)
    ctmp = (-.745,-.132)-flip(conj(c3/10)), z = 0
  ELSEIF (iter==l4)
    ctmp = (-.745,-.132)-flip(conj(c4/10)), z = 0
  ENDIF
  z = z^2 + ctmp
  iter=iter+1
bailout:
  real(z)<=bailout
default:
  title = "Carr 3352"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3353 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=-tanh(.10/pixel2-sinh(.01/pixel2))
  c=cabs(b5/2)-conj(.015/pixel2)
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3353"
  periodicity = 0
  maxiter = 700
  magn = .4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3354 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1=pixel2/2*cabs(pixel2/3)*abs(pixel2/4)
  ba=8*conj(.1-pixel2)*conj(sinh(pixel2))*flip(tanh(pixel2))
  m3=tanh(pixel2/2)*pixel2/2*ba*b1
  b5=conj(m3)-tanh(.1/pixel2)
  c=cabs(b5/2)-conj(.015/pixel2)
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3354"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3355 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=flip(|sqrt(1/pixel2-conj(cos(1/pixel2)))/70*pixel2|)
  b1=pixel2/2*conj(abs(pixel2/3))*abs(pixel2/4)
  ba=8*conj(.1-pixel2)*conj(sinh(pixel2))*flip(tanh(pixel2))
  m3=tanh(pixel2/2)*pixel2/2*ba*b1, b5=conj(m3)-tanh(.1/pixel2)
  c=cabs(b5/2)-conj(.015/pixel2)
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c = c+2
  ctmp = -conj(.1/pixel2)/c + d
  c1=1.5*z^1.2,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+2, z = 0
    ctmp = -conj(.1/pixel2)/c + d
  ELSEIF (iter==l2)
    c = c2+2, z = 0
    ctmp = -conj(.1/pixel2)/c + d
  ELSEIF (iter==l3)
    c = c3+2, z = 0
    ctmp = -conj(.1/pixel2)/c + d
  ELSEIF (iter==l4)
    c = c4+2, z = 0
    ctmp = -conj(.1/pixel2)/c + d
  ENDIF
  z = (3*z^2-1)/c + ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3355"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3356 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.0015/pixel2), b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=flip(abs(pixel2))^4/flip(asinh(pixel2))-conj(.1/pixel2)
  b5=(conj(flip(abs(pixel2-b8))^6 \
     /flip(asinh(pixel2)))-.135)^.69-b6
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3356"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,.08)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3357 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=((tan(pixel2)-sin(pixel2))*(conj(pixel2)-flip(pixel2))) \
     -conj(.08/pixel2)+.15
  c=pixel2*b5
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3357"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,.02)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3358 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=((tan(pixel2)-sin(pixel2))*(conj(pixel2)-flip(pixel2))) \
     -(.08/pixel2)+.15
  c=pixel2*b5
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3358"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3359 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=((tan(pixel2)-sin(pixel2))*(conj(pixel2)-tan(pixel2))) \
     -conj(.08/pixel2)+.15
  b4=pixel2*b5-conj(.001/b5)
  IF (@p3==1)
    c = (b4^.645), z = (b5^.745)
  ELSEIF (@p3==0)
    c = -(b4), z = -(b5)
  ELSE
    IF (whitesq)
      c = (b4^.645), z = (b5^.745)
    ELSE
      c = -(b4), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3359"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3360 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b1=pixel2*conj(abs(pixel2))*abs(pixel2)/24
  b5=b1*flip(conj(pixel2^5))-conj(.1/pixel2-flip(.01/pixel2))+.15
  c=conj(1.5*b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.745)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.745)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3360"
  periodicity = 0
  maxiter = 700
  magn = 1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3361 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b9=abs(.5+pixel2)*conj(.5+pixel2)*flip(.5+pixel2)
  b5=2*b9*flip(conj(pixel2^4)) \
     -conj(.12995/pixel2-flip(.01/pixel2))+.199999
  c=conj(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))-.3
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3361"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3362 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=(flip(.1-pixel2)*abs(pixel2^4))^2-pixel2/pi*2 \
     -conj(.03/pixel2)-.1
  c=conj(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3362"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3363 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.035/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b5=pixel2^3*cabs(pixel2+0.125)^4-b7-b6+1.75*b8-.175
  c=flip(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3363"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3364 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.035/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.175
  c=flip(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c = c*9/8
  c1=1.5*z^1.2,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*9/8, z = 0
  ELSEIF (iter==l2)
    c = c2*9/8, z = 0
  ELSEIF (iter==l3)
    c = c3*9/8, z = 0
  ELSEIF (iter==l4)
    c = c4*9/8, z = 0
  ENDIF
  z=z*z-conj(.5*z)+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3364"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3365 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.035/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b5=pixel2^3*abs(pixel2+.125)^4-b7-b6+1.75*b8-.175
  c=flip(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c = c*9/8
  c1=1.5*z^1.2,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*9/8, z = 0
  ELSEIF (iter==l2)
    c = c2*9/8, z = 0
  ELSEIF (iter==l3)
    c = c3*9/8, z = 0
  ELSEIF (iter==l4)
    c = c4*9/8, z = 0
  ENDIF
  z = z^2 - conj(.5*z) + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3365"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3366 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.035/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  ba=8*conj(.1-pixel2)*conj(sinh(pixel2))*flip(tanh(pixel2))
  b5=ba*conj(abs(pixel2^2))*abs(pixel2+.125)^4-b7-b6+2.75*b8-.165
  c=flip(b5)^2-conj(.001/b5-flip(.001/b5)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -(c^2), z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -(c^2), z = -(b5)
    ENDIF
  ENDIF
  c = c*9/8
  c1=1.5*z^1.2,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*9/8, z = 0
  ELSEIF (iter==l2)
    c = c2*9/8, z = 0
  ELSEIF (iter==l3)
    c = c3*9/8, z = 0
  ELSEIF (iter==l4)
    c = c4*9/8, z = 0
  ENDIF
  z = z^2 - conj(.5*z) + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3366"
  periodicity = 0
  maxiter = 700
  magn = 1.8
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3367 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.065/pixel2), b7=flip(.03/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  ba=8*conj(.1-pixel2)*conj(sinh(pixel2))*flip(tanh(pixel2))
  b5=conj(ba)*conj(abs(pixel2^2))*abs(pixel2+.125)^4 \
     -b7-b6-2*b8-.165
  c=flip(b5)^2-conj(.001/b5-flip(.001/b5)) \
     -conj(.1/pixel2-flip(.01/pixel2))
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5*.75)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -c, z = -(b5*.75)
    ENDIF
  ENDIF
  c = c + cabs(c/10)
  c1=1.5*z^1.2,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 + cabs(c1/10), z = 0
  ELSEIF (iter==l2)
    c = c2 + cabs(c2/10), z = 0
  ELSEIF (iter==l3)
    c = c3 + cabs(c3/10), z = 0
  ELSEIF (iter==l4)
    c = c4 + cabs(c4/10), z = 0
  ENDIF
  z = z^2 - |.15*z| + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3367"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3368 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b5=b10-flip(.0125/pixel2)-conj(.0125/pixel2)-.19
  c=pixel2^4/tanh(.3/pixel2)+.1/pixel2
  IF (@p3==1)
    z = (b5^.5456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5*.75)
  ELSE
    IF (whitesq)
      z = (b5^.5456)
    ELSE
      c = -c, z = -(b5*.75)
    ENDIF
  ENDIF
  c = c + abs(c/8)
  c1=1.5*z^1.2,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 + abs(c1/8), z = 0
  ELSEIF (iter==l2)
    c = c2 + abs(c2/8), z = 0
  ELSEIF (iter==l3)
    c = c3 + abs(c3/8), z = 0
  ELSEIF (iter==l4)
    c = c4 + abs(c4/8), z = 0
  ENDIF
  z = z^2 - conj(.35*z) + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3368"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3369 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.085/pixel2), c=b6^100+pixel2*2+.2
  b5=c*pixel2-conj(.1/pixel2-flip(.01/pixel2))-.15
  IF (@p3==1)
    z = (b5)
  ELSEIF (@p3==0)
    c = -c, z = -(b5*.5)
  ELSE
    IF (whitesq)
      z = (b5)
    ELSE
      c = -c, z = -(b5*.5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3369"
  periodicity = 0
  maxiter = 700
  magn = 2.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3370 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.1/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
     -conj(.01/pixel2-flip(.001/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.2
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctmp = (-.7456,-.13214)+conj(c/10)
  c1=1.5*z^1.2,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)
    ctmp = (-.7456,-.13214)+conj(c1/10), z = 0
  ELSEIF (iter==l2)
    ctmp = (-.7456,-.13214)+conj(c2/10), z = 0
  ELSEIF (iter==l3)
    ctmp = (-.7456,-.13214)+conj(c3/10), z = 0
  ELSEIF (iter==l4)
    ctmp = (-.7456,-.13214)+conj(c4/10), z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3370"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3371 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.1/pixel2), b7=flip(.01/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
     -conj(.1/pixel2-flip(.01/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.2
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,c2=2.25*z,c3=3.375*z,c4=5.0625*z
  ctmp = (-.7456,-.13214)+conj(c/10)
  c1=1.5*z^1.2,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)
    ctmp = (-.7456,-.13214)+conj(c1/10), z = 0
  ELSEIF (iter==l2)
    ctmp = (-.7456,-.13214)+conj(c2/10), z = 0
  ELSEIF (iter==l3)
    ctmp = (-.7456,-.13214)+conj(c3/10), z = 0
  ELSEIF (iter==l4)
    ctmp = (-.7456,-.13214)+conj(c4/10), z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3371"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3372 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.145/pixel2), b7=flip(.04/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
     -conj(.1/pixel2-flip(.01/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.22
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctmp = (-.7456,-.2)+conj(c/16)+tanh(c/14)
  c1=1.5*z^1.2,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)
    ctmp=(-.7456,-.2)+conj(c1/16)+tanh(c1/14), z = 0
  ELSEIF (iter==l2)
    ctmp=(-.7456,-.2)+conj(c2/16)+tanh(c2/14), z = 0
  ELSEIF (iter==l3)
    ctmp=(-.7456,-.2)+conj(c3/16)+tanh(c3/14), z = 0
  ELSEIF (iter==l4)
    ctmp=(-.7456,-.2)+conj(c4/16)+tanh(c4/14), z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3372"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3373 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.145/pixel2), b7=flip(.04/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
     -conj(.1/pixel2-flip(.01/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.22
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  k = (-.7496,-.134287) + conj(.05/pixel2)
  ctmp = conj(c/13) + k
  c1=1.5*z^1.2,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)
    ctmp=conj(c1/13)+k,z=0
  ELSEIF (iter==l2)
    ctmp=conj(c2/13)+k,z=0
  ELSEIF (iter==l3)
    ctmp=conj(c3/13)+k,z=0
  ELSEIF (iter==l4)
    ctmp=conj(c4/13)+k,z=0
  ENDIF
  z = z^2 + ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3373"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3374 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.145/pixel2), b7=flip(.04/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  c=abs(pixel2^2)*conj(abs(pixel2^3)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  b5=abs(pixel2^3)*cabs(pixel2+.125)^4-b7-b6+1.75*b8-.22
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  k = (-.7496,-.134287) + conj(.05/pixel2)
  ctmp = conj(c/13) + k
  c1=1.5*z^1.2,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)
    ctmp=conj(c1/13)+k,z=0
  ELSEIF (iter==l2)
    ctmp=conj(c2/13)+k,z=0
  ELSEIF (iter==l3)
    ctmp=conj(c3/13)+k,z=0
  ELSEIF (iter==l4)
    ctmp=conj(c4/13)+k,z=0
  ENDIF
  z = z^2 + ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3374"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3375 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.1/pixel2)+1, b7=2*flip(.01/pixel2)+1
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-log(b7)-log(b6)-.2
  IF (@p3==1)
    z = (b5^.5)
  ELSEIF (@p3==0)
    c = -c, z = -(b5*2)
  ELSE
    IF (whitesq)
      z = (b5^.5)
    ELSE
      c = -c, z = -(b5*2)
    ENDIF
  ENDIF
  ctmp=(-.7496,-.134287)+conj(c/12)
  c1=1.5*z^1.2,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)
    ctmp=(-.7496,-.134287)+conj(c1/12), z = 0
  ELSEIF (iter==l2)
    ctmp=(-.7496,-.134287)+conj(c2/12), z = 0
  ELSEIF (iter==l3)
    ctmp=(-.7496,-.134287)+conj(c3/12), z = 0
  ELSEIF (iter==l4)
    ctmp=(-.7496,-.134287)+conj(c4/12), z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3375"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3376 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
    -conj(.125/pixel2-flip(.01/pixel2))
  b5=(pixel2^3+.125)*cabs(pixel2)^4-flip(.01/c)-conj(.066/c)-.2
  IF (@p3==1)
    z = (b5^.5)
  ELSEIF (@p3==0)
    c = -c, z = -(b5*2)
  ELSE
    IF (whitesq)
      z = (b5^.5)
    ELSE
      c = -c, z = -(b5*2)
    ENDIF
  ENDIF
  ctmp=(-.7496,-.134287)+conj(c/12)
  c1=1.5*z^1.2,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)
    ctmp=(-.7496,-.134287)+conj(c1/12), z = 0
  ELSEIF (iter==l2)
    ctmp=(-.7496,-.134287)+conj(c2/12), z = 0
  ELSEIF (iter==l3)
    ctmp=(-.7496,-.134287)+conj(c3/12), z = 0
  ELSEIF (iter==l4)
    ctmp=(-.7496,-.134287)+conj(c4/12), z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3376"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3377 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.135/pixel2), b7=flip(.01/pixel2)
  c=abs(pixel2^2)*conj(flip(pixel2^3)) \
    -conj(.1/pixel2-flip(.01/pixel2))
  b5=pixel2^3*cabs(pixel2+.125)^4-b7-b6-.2
  IF (@p3==1)
    z = (b5)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  ctmp = (.255044,.5791)+conj(c/9.75)
  c1=1.5*z^1.2,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)
    ctmp = (.255044,.5791)+conj(c1/9.75),z = 0
  ELSEIF (iter==l2)
    ctmp = (.255044,.5791)+conj(c2/9.75),z = 0
  ELSEIF (iter==l3)
    ctmp = (.255044,.5791)+conj(c3/9.75),z = 0
  ELSEIF (iter==l4)
    ctmp = (.255044,.5791)+conj(c4/9.75),z = 0
  ENDIF
  z=z*z+ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3377"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3378 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=flip(|sqrt(1/pixel2-conj(cos(1/pixel2)))|/40*pixel2)
  c=pixel2^4-conj(.1/pixel2-flip(.01/pixel2))
  z=pixel2^4-conj(.01/pixel2-flip(.01/pixel2))-conj(.1/pixel2)-.2
  IF (@p3==0)
    c = -c, z = -(z/2)
  ELSEIF (@p3==2)
    IF (whitesq)
      c = -c, z = -(z/2)
    ENDIF
  ENDIF
  ctmp = conj(c-.075/c)-d
  c1=1.5*z^1.2,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)
    ctmp = conj(c1-.075/c1)-d,z = 0
  ELSEIF (iter==l2)
    ctmp = conj(c2-.075/c2)-d,z = 0
  ELSEIF (iter==l3)
    ctmp = conj(c3-.075/c3)-d,z = 0
  ELSEIF (iter==l4)
    ctmp = conj(c4-.075/c4)-d,z = 0
  ENDIF
  z = z^2 + ctmp
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3378"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3379 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  c=(.37,-.2991)*.99519
  b5=pixel2^5+tanh(.1/pixel2)-sinh(.1/pixel2)-conj(.15/pixel2)
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3379"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3380 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2^2-(conj(.125/pixel2)+flip(conj(.001/pixel2)))^4 \
     +flip(.1/pixel2)+.25
  c=pixel2^2*(.25-pixel2)+.1
  IF (@p3==1)
    z = (b5^.7456)
  ELSEIF (@p3==0)
    c = -c, z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.7456)
    ELSE
      c = -c, z = -(b5)
    ENDIF
  ENDIF
  c1=1.5*z^1.2,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+c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3380"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,-.04)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3381 {; Updated for UF2 by Erik Reckase, February 2000
          ; MJM-PHC02 Brian E. Jones modified 
init:
  z=pixel^3
  c=pixel^5+tanh(.1/pixel)-sinh(.1/pixel)-conj(.125/pixel)
  newpixel = pixel, int iter = 0 
  reduction = real(p1)
  IF (reduction==0)
    reduction = 1
  ENDIF
  int nextzoom = round(real(p3))
  IF (nextzoom<=0)
    int nextzoom=256
  ENDIF
  int iterspace = nextzoom
  rotation=pi*flip(imag(p1))/180
  int compt=0, int limit=100
  p=(.255044,.5791)
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    newpixel = reduction*(newpixel-p2)*exp(rotation)
    z = 0
    c = newpixel
  ENDIF
  IF ((@p4==0) || (@p4==2 && whitesq))
    IF (compt>=limit)
      c = p
    ENDIF
  ENDIF
  z=z*z+c
  iter=iter+1
  compt=compt+1
bailout:
  |z|<=16
default:
  title = "Carr 3381"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Reduc/Rot"
    default = (-1,0)
    hint = "The real part of this parameter is a reduction \
            factor.  The imagimary part is a rotation angle \
            in degrees."
  endparam
  param p2
    caption = "Newpixel Mod"
    default = (0,0)
  endparam
  param p3
    caption = "Nextzoom"
    default = (256,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 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
}

Carr3382 {; Updated for UF2 by Erik Reckase, February 2000
          ; MJM-PHC02 Brian E. Jones modified 
init:
  c=pixel^3-conj(.1/pixel)
  z=pixel^5+tanh(.1/pixel)-sinh(.1/pixel)-conj(.125/pixel)
  newpixel = pixel,int iter = 0 
  reduction = real(p1)
  IF (reduction==0)
    reduction = 1
  ENDIF
  int nextzoom = round(real(p3))
  IF (nextzoom<=0)
    int nextzoom=256
  ENDIF
  int iterspace = nextzoom
  rotation=pi*flip(imag(p1))/180
  int compt=0, int limit=100
  p=(.255044,.5791)
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    newpixel = reduction*(newpixel-p2)*exp(rotation)
    z = 0
    c = newpixel
  ENDIF
  IF ((@p4==0) || (@p4==2 && whitesq))
    IF (compt>=limit)
      c = p
    ENDIF
  ENDIF
  z=z*z+c
  iter=iter+1
  compt=compt+1
bailout:
  |z|<=16
default:
  title = "Carr 3382"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Reduc/Rot"
    default = (-1,0)
    hint = "The real part of this parameter is a reduction \
            factor.  The imagimary part is a rotation angle \
            in degrees."
  endparam
  param p2
    caption = "Newpixel Mod"
    default = (0,0)
  endparam
  param p3
    caption = "Nextzoom"
    default = (256,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 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
}

Carr3383 {; Updated for UF2 by Erik Reckase, February 2000
          ; MJM-PHC02 Brian E. Jones modified 
init:
  c=pixel^5-conj(.15/pixel)
  z=pixel^4-conj(.01/pixel-flip(.01/pixel))-conj(.1/pixel)-.2
  newpixel = pixel,int iter = 0 
  reduction = real(p1)
  IF (reduction==0)
    reduction = 1
  ENDIF
  int nextzoom = round(real(p3))
  IF (nextzoom<=0)
    int nextzoom=256
  ENDIF
  int iterspace = nextzoom
  rotation=pi*flip(imag(p1))/180
  int compt=0, int limit=100
  p=(.255044,.5791)
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    newpixel = reduction*(newpixel-p2)*exp(rotation)
    z = 0
    c = newpixel
  ENDIF
  IF ((@p4==0) || (@p4==2 && whitesq))
    IF (compt>=limit)
      c = p
    ENDIF
  ENDIF
  z=z*z+c-conj(.01/c)
  iter=iter+1
  compt=compt+1
bailout:
  real(z)<=16
default:
  title = "Carr 3383"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Reduc/Rot"
    default = (-1,0)
    hint = "The real part of this parameter is a reduction \
            factor.  The imagimary part is a rotation angle \
            in degrees."
  endparam
  param p2
    caption = "Newpixel Mod"
    default = (0,0)
  endparam
  param p3
    caption = "Nextzoom"
    default = (256,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 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
}

Carr3384 {; Updated for UF2 by Erik Reckase, February 2000
          ; MJM-PHC02 Brian E. Jones modified 
init:
  z=pixel^4-conj(.1/pixel)-flip(.01/pixel)+sin(.1/pixel)-.1/pixel
  c=pixel^4-tanh(.1/pixel)
  newpixel = pixel,int iter = 0 
  reduction = real(p1)
  IF (reduction==0)
    reduction = 1
  ENDIF
  int nextzoom = round(real(p3))
  IF (nextzoom<=0)
    int nextzoom=256
  ENDIF
  int iterspace = nextzoom
  rotation=pi*flip(imag(p1))/180
  int compt=0, int limit=100
  p=(.255044,.5791)
loop:
  IF (iter==nextzoom)
    nextzoom = nextzoom + iterspace
    newpixel = reduction*(newpixel-p2)*exp(rotation)
    z = 0
    c = newpixel
  ENDIF
  IF ((@p4==0) || (@p4==2 && whitesq))
    IF (compt>=limit)
      c = p
    ENDIF
  ENDIF
  z=z*z+c
  iter=iter+1
  compt=compt+1
bailout:
  real(z)<=16
default:
  title = "Carr 3384"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Reduc/Rot"
    default = (-1,0)
    hint = "The real part of this parameter is a reduction \
            factor.  The imagimary part is a rotation angle \
            in degrees."
  endparam
  param p2
    caption = "Newpixel Mod"
    default = (0,0)
  endparam
  param p3
    caption = "Nextzoom"
    default = (256,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 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
}

Carr3385 {; Updated for UF2 by Erik Reckase, February 2000
          ; Modified Sylvie Gallet frm. 
init:
  d=sqrt(1/pixel-conj(cos(1/pixel)))
  z=pixel*cabs(pixel)-flip(.01/pixel)-conj(.1/pixel)-.1
  zmod = (-.7556,-.117)+flip(|d/70*pixel|)-.001
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=|z|/30+z^2+zmod
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3385"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
}

Carr3386 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  d=sqrt(1/pixel2-conj(cos(1/pixel2)))
  b3=conj(conj(pixel2^2)*sin(abs(pixel2^3)))*cabs(pixel2^1.5)
  z=b3-conj(.1/pixel2-flip(.01/pixel2))+.16
  IF (@p3==0)
    z = -z
  ELSEIF (@p3==2)
    IF (whitesq)
      z = -z
    ENDIF
  ENDIF
  c=k = flip(|d/70*pixel2|)
  c1=1.5*z^1.2,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+k, z = 0
  ELSEIF (iter==l2)
    c = c2+k, z = 0
  ELSEIF (iter==l3)
    c = c3+k, z = 0
  ELSEIF (iter==l4)
    c = c4+k, z = 0
  ENDIF
  z = z^2 + c
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3386"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3387 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=abs(pixel2^5)/tanh(.3/pixel2)-conj(.11/pixel2)-.11
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7456,-.132)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3387"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3388 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=sin(conj(pixel2^5))/tanh(.3/pixel2)-conj(.11/pixel2)-.11
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7456,-.132)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3388"
  periodicity = 0
  maxiter = 700
  magn = 1.6
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3389 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=|pixel2^5|/tanh(.3/pixel2)-conj(.11/pixel2)-.7598
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7456,-.132)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3389"
  periodicity = 0
  maxiter = 700
  magn = 1.7
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3390 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=-.25*pixel2-conj(sqr(|pixel2|/(pixel2-.124)))
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.087496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3390"
  periodicity = 0
  maxiter = 700
  magn = 1.1
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3391 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=conj(cabs(pixel2/3)+pixel2^4)-.7598
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.087496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3391"
  periodicity = 0
  maxiter = 700
  magn = 1.2
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3392 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=pixel2^4/conj(pixel2-conj(.1/pixel2))
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.087496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3392"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3393 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=conj(pixel2^4)/conj(pixel2-conj(.1/pixel2))
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.087496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3393"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3394 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=cabs(pixel2)*conj(pixel2^3)/conj(pixel2-flip(.08/pixel2))
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.087496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3394"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3395 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b5=cabs(pixel2)*abs(conj(pixel2^3) \
     /conj(pixel2-flip(.08/pixel2)))
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.085496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3395"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
  endparam
  param p3
    caption = "Layer Option"
    enum = "Option 1" "Option 2" "Original"
    default = 2
  endparam
}

Carr3396 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2)
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b2=(b8-b6-b7)/.55-.001/pixel2
  b5=(cabs(pixel2^4)-b6)*b10^5*(b7-pixel2^2)^3-b2^1.25
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.084496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3396"
  periodicity = 0
  maxiter = 700
  magn = 1.5
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3397 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b6=conj(.015/pixel2), b7=flip(.025/pixel2) 
  b8=cabs(.002/pixel2+cabs(.002/pixel2))
  b10=flip(pixel2^8)*2/cotanh(pixel2^4) \
      -conj(.01/pixel2-flip(.125/pixel2))
  b2=(b8-b6-b7)/.55-.001/pixel2
  b5=conj(cabs(pixel2^4)-b6)*b10^2*(pixel2^2-b7)^3-b2^1.25
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.084496112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3397"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3398 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b3=conj(.01/pixel2-flip(.001/pixel2))
  b5=conj(conj(pixel2^2)*sin(abs(pixel2^3))) \
     *conj(pixel2^2)-b3-conj(.075/pixel2)
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.080996112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3398"
  periodicity = 0
  maxiter = 700
  magn = 1.4
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}

Carr3399 (YAXIS) {; Updated for UF2 by Erik Reckase, February 2000
                  ; Modified Sylvie Gallet frm. 
init:
  pixel2=-abs(real(pixel))+flip(imag(pixel))
  b7=flip(.01/pixel2)
  b5=conj(pixel2^4-b7)-cabs(.01/pixel2-flip(.01/pixel2))+.1
  IF (@p3==1)
    z = (b5^.8456)
  ELSEIF (@p3==0)
    z = -(b5)
  ELSE
    IF (whitesq)
      z = (b5^.8456)
    ELSE
      z = -(b5)
    ENDIF
  ENDIF
  l1=round(real(p1)),l2=round(imag(p1))
  l3=round(real(p2)),l4=round(imag(p2))
  float bailout=16,int iter=0
loop:
  IF (iter==l1)
    z = 0
  ELSEIF (iter==l2)
    z = 0
  ELSEIF (iter==l3)
    z = 0
  ELSEIF (iter==l4)
    z = 0
  ENDIF
  z=z^2+(-.7612073214,.080996112)
  iter=iter+1
bailout:
  |z|<=bailout
default:
  title = "Carr 3399"
  periodicity = 0
  maxiter = 700
  magn = 1.3
  center = (0,0)
  method = multipass
  param p1
    caption = "Iter Limits 1,2"
    default = (200,300)
    hint = "0< Re(P1) < Im(P1) < Re(P2) < Im(P2) <maxiter \
            for best results"
  endparam
  param p2
    caption = "Iter Limits 3,4"
    default = (400,550)
    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
}