CubicJulia { 
init: 
a=@areal+@aimag*1i 
b=@breal+@bimag*1i 
z=#pixel 
loop: 
z=z*z*z-a*a*z+b 
bailout: 
|z|<@bailout 
default: 
title = "Cubic Julia" 
param areal 
caption="a-real" 
hint="Real part of a-parameter" 
default=0.0 
endparam 
param aimag 
caption="a-imag" 
hint="Imaginary part of a-parameter" 
default=0.0 
endparam 
param breal 
caption="b-real" 
hint="Real part of b-parameter" 
default=0.0 
endparam 
param bimag 
caption="b-imag" 
hint="Imaginary part of b-parameter" 
default=0.0 
endparam 
param bailout 
caption="bailout" 
hint="Value of bailout" 
default=100 
endparam 
}

gfp2pro01-old {;Formula by Gedeon Peteri, 1999 
;Based on equation of Probability curve 
init: 
z=fn1(pixel) 
loop: 
fn2(z^p1) - p2*fn3(exp(-z*z/2)/sqrt(2*pi)) 
bailout: 
(@test == 0 && |z| <= @bailout) || \ 
(@test == 1 && sqr(real(z)) <= @bailout) || \ 
(@test == 2 && sqr(imag(z)) <= @bailout) || \ 
(@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) || \ 
(@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) || \ 
(@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) || \ 
(@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) 
default: 
title="gfp2pro01" 
param p1 
caption="Exponent" 
default=(2.0,0.0) 
endparam 
param p2 
caption="Parameter" 
default=(1.0,0.0) 
endparam 
param bailout 
caption="Bailout" 
default=4.0 
endparam 
param test 
caption = "Bailout Test" 
default = 0 
enum = "mod" "real" "imag" "or" "and" "manh" "manr" 
endparam 
func fn1 
caption="Function 1" 
default = ident() 
endfunc 
func fn2 
caption="Function 2" 
default = ident() 
endfunc 
func fn3 
caption="Function 3" 
default = ident() 
endfunc 
}

ToCubicJulia { 
init: 
c=@seed 
z=#pixel 
g=@tojulia 
d=@varjulia 
IF g==0 
a=c 
b=d 
ELSEIF g==1 
a=real(c)+real(d)*1i 
b=imag(c)+imag(d)*1i 
ELSEIF g==2 
a=real(c)+real(d)*1i 
b=imag(d)+imag(c)*1i 
ELSEIF g==3 
a=real(d)+real(c)*1i 
b=imag(c)+imag(d)*1i 
ELSEIF g==4 
a=real(d)+real(c)*1i 
b=imag(d)+imag(c)*1i 
ELSE 
a=d 
b=c 
ENDIF 
loop: 
z=z*z*z-3*a*a*z+b 
bailout: 
|z|<@bailout 
default: 
title = "ToCubic Julia" 
param bailout 
caption="bailout" 
default=100.0 
endparam
switch: 
type="CubicParameterspace" 
bailout=bailout 
}

FlipLambdaJ {
 ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = @p1*#z*(1-flip(#z)*flip(#z))
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipLambdaJ"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.17, 1.4)
  endparam
switch:
  type = "FlipLambdaM"
  bailout = @bailout

}

FlipLambdaM {
    ; Ron Barnett, February 1999
; Modified and tweaked March 2000
init:
   #z = 0.5
loop:
   #z = #pixel*#z*(1-flip(#z)*flip(#z))
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipLambdaM"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
switch:
  type = "FlipLambdaJ"
  bailout = @bailout
  p1 = #pixel
}

FlipProbJ1 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = flip(#z)*(1-#z) + @p1
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipProbJ1"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.2125, 0.475)
  endparam
switch:
  type = "FlipProbM1"
  bailout = @bailout
}

FlipProbJ2 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = #z*(@p1-flip(z)) + @p1
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipProbJ2"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.175, 1.2875)
  endparam
switch:
  type = "FlipProbM2"
  bailout = @bailout

}

FlipProbM1 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = flip(#z)*(1-#z) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipProbM1"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
switch:
  type = "FlipProbJ1"
  bailout = @bailout
  p1 = #pixel

}

FlipProbM2 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = #z*(#pixel-flip(#z)) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FlipProbM2"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
switch:
  type = "FlipProbJ2"
  bailout = @bailout
  p1 = #pixel

}

FoamJ {
 ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = @p3*(#z - 1/#z) + @p1,
   z = @p3*(x - 1/sqr(x) + @p2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FoamJ"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (-0.65, 0.855)
  endparam
switch:
  type = "FoamM"
  bailout = @bailout
  p1 = @p1
  p2 = @p2

}

FoamM {
 ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = 0.5
loop:
   x = #pixel*(#z - 1/#z) + @p1,
   z = #pixel*(x - 1/sqr(x) + @p2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "FoamM"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
switch:
  type = "FoamJ"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel

}

IckyPaper {
 ; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p2
loop:
   #z = #z*#z*#z + (@p3-1)*#z - @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "Icky Paper"
  maxiter = 1000
  center = (0, 0)
  periodicity = 0
  magn = 0.477465

  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param p2
     caption = "Zoom"
     default = 10.0
  endparam
  param p3
     caption = "Seed"
     default = (0.025, 0.275)
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}

IckyTiles {
; Ron Barnett, December 1999
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p2
loop:
   z1 = #z*#z*#z + (@p3-1)*#z - @p3
   z2 = 3*#z*#z + @p3-1
   #z=#z-(@p1*z1/z2)
bailout:
  |z1| >= @bailout
default:
  title = "Icky Tiles"
  maxiter = 1000
  center = (0, 0)
  periodicity = 0
  magn = 0.477465
  param p1
     caption = "Twist and Texture"
     default = (0.1, 0.4)
  endparam
  param p2
     caption = "Zoom"
     default = 100.0
  endparam
  param p3
     caption = "Seed"
     default = (0.5, 0.35)
  endparam
  param bailout
    caption = "Bailout value"
    default = 1.0e-8
    max = 0.1
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}

MandelPaper {
 ; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p2
loop:
   #z = #z*#z + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "Mandel Paper"
  maxiter = 1000
  center = (0, 0)
  periodicity = 0
  magn = 0.477465

  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param p2
     caption = "Zoom"
     default = 2.0
  endparam
  param p3
     caption = "Seed"
     default = (-0.7625, 0.3)
  endparam
  param bailout
    caption = "Bailout value"
    default = 4.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}

REB004AJ {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z =@p1*@fn1(#z) + @p1*@p1*@fn2(@p2*#z) + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004AJ"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (0.0875, 0.05)
  endparam
  func fn1
     caption = "First Function"
     default = sqr()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REB004AM"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1
  fn2 = @fn2

}

REB004AM {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z =@p1*@fn1(#z) + @p1*@p1*@fn2(@p2*#z) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004AM"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = sqr()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REB004AJ"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1
  fn2 = @fn2

}

REB004B {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = #pixel + @p1*(#z/2 + #z*#z/6 + #z*#z*#z/12)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004B"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
switch:
  type = "REB004C"
  bailout = @bailout
  p1 = @p1
  p2 = #pixel

}

REB004C {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = @p2 + @p1*(#z/2 + #z*#z/6 + #z*#z*#z/12)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004C"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (-1.875, 1.5)
  endparam
switch:
  type = "REB004B"
  bailout = @bailout
  p1 = @p1

}

REB004D {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
    #z = #pixel
loop:
  #z = #pixel + @fn1(2*#z+1)/(2*#z+p1)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004D"
  center = (0.0, 0.0)
  maxiter = 256
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 1000000.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (-1.0, 1.0)
  endparam
  func fn1
     caption = "Function"
     default = sin()
  endfunc
switch:
  type = "REB004F"
  bailout = @bailout
  p1 = @p1
  p2 = #pixel
  fn1 = @fn1
}

REB004E {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = #pixel + @fn1(2*#z+1)/(2*#z+@p1)
   #z = #z + @fn2(4*#z+1)/(4*#z+@p2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004E"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = sin()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REB004G"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1
  fn2 = @fn2

}

REB004F {
; Ron Barnett, 1993
; Modified and tweaked February 2000
init:
    #z = #pixel
loop:
  #z = @p2 + @fn1(2*#z+1)/(2*#z+p1)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004F"
  center = (0.0, 0.0)
  maxiter = 256
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 1000000.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (-1.0, 1.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0,0.0)
  endparam
  func fn1
     caption = "Function"
     default = sin()
  endfunc
switch:
  type = "REB004D"
  bailout = @bailout
  p1 = @p1
  fn1 = @fn1
}

REB004G {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = @p3 + @fn1(2*#z+1)/(2*#z+@p1)
   #z = #z + @fn2(4*#z+1)/(4*#z+@p2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004G"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (-0.4, -0.9)
  endparam
  func fn1
     caption = "First Function"
     default = sin()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REB004E"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1
  fn2 = @fn2

}

REB004H {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = #pixel + @fn1(3/#z - #z/4)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004H"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  func fn1
     caption = "First Function"
     default = sqr()
  endfunc
switch:
  type = "REB004I"
  bailout = @bailout
  p1 = #pixel
  fn1 = @fn1

}

REB004I {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = @p1 + @fn1(3/#z - #z/4)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004I"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.65, 1.05)
  endparam
  func fn1
     caption = "First Function"
     default = sqr()
  endfunc
switch:
  type = "REB004H"
  bailout = @bailout
  fn1 = @fn1

}

REB004J {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = flip(#pixel + @fn1(3/#z - #z/4))
   #z = x*#z + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004J"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REB004K"
  bailout = @bailout
  p1 = #pixel
  fn1 = @fn1

}

REB004K {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = flip(@p1 + @fn1(3/#z - #z/4))
   #z = x*#z + @p1
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004K"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.0, -1.875)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REB004J"
  bailout = @bailout
  fn1 = @fn1

}

REB004LJ {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = flip(@p3 + @fn1(@p1/#z - #z/(@p2+1)))
   #z = x*#z + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004LJ"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (0.0, 1.85)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REB004LM"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1

}

REB004LM {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = flip(#pixel + @fn1(@p1/#z - #z/(@p2+1)))
   #z = x*#z + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004LM"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REB004LJ"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1

}

REB004M {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1(const - 12*x)*x/(4*const)
   y1 = -@fn2(const + 12*x)*y/(4*const)
   x2 = x1*x1 - y1*y1 + @p1
   y2 = 2*x*y;
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB004M"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.000001)
  endparam
  func fn1
     caption = "First Function"
     default = sin()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc

}

REB005A {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1(const - 12*x)*x/(4*const)
   y1 = -@fn2(const + 12*y)*y/(4*const)
   x2 = x1*x1 - y1*y1 + @p1
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005A"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.02, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = sin()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REB005B {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1(const - x)*x/const
   y1 = -@fn2(const + y)*y/const
   x2 = x1*x1 - y1*y1 + @p1
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005B"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.1, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = sin()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REB005C {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z), y = imag(#z);
   const = x*x + y*y
   x1 = -@fn1(const + @p1*x)*x/const
   y1 = -@fn2(const + y)*y/const
   x2 = x1*x1 - y1*y1 + @p2
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005C"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (0.1, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = sin()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REB005D {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1((const + @p1*x)*x/const)
   y1 = -@fn2((const + y)*y/const)
   x2 = x1*x1 - y1*y1 + @p2
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005D"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.0, 1.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (0.0, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = ident()
  endfunc
  func fn2
     caption = "Function 2"
     default = sqr()
  endfunc

}

REB005E {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1((const - x)*x/const)
   y1 = -@fn2((const + y)*y/const)
   x2 = x1*x1 - y1*y1 + @p1
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005E"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.0, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = ident()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REB005F {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1((const - 12*x)*x/(4*const))
   y1 = -@fn2((const + 12*y)*y/(4*const))
   x2 = x1*x1 - y1*y1 + @p1
   y2 = 2*x1*y1
   #z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005F"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.0, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = ident()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REB005G {
; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   const = x*x + y*y
   x1 = -@fn1(const + @p1*x)*y/const
   y1 = -@fn2(const + y)*x/const
   x2 = x1*x1 - y1*y1 + @p2
   y2 = 2*x1*y1
   z = x2 + flip(y2)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REB005G"
  maxiter = 255
  center = (0, 0)
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (0.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (0.0, 0.0)
  endparam
  func fn1
     caption = "Function 1"
     default = ident()
  endfunc
  func fn2
     caption = "Function 2"
     default = cos()
  endfunc

}

REBRefIndJ1 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z)*@fn2(#z) + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndJ1"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (-1.065, -0.1875)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndM1"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1
  fn2 = @fn2

}

REBRefIndJ2 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z) + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndJ2"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (-0.9, -0.3875)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndM2"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1

}

REBRefIndJ3 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = flip(#z)
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z)*@fn2(#z) + @p3
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndJ3"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  param p3
    caption = "Parameter 3"
    default = (0.7625, -0.4875)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndM3"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  fn1 = @fn1
  fn2 = @fn2

}

REBRefIndM1 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z)*@fn2(#z) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndM1"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndJ1"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1
  fn2 = @fn2

}

REBRefIndM2 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndM2"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndJ2"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1

}

REBRefIndM3 {
  ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   #z = flip(#z)
   #z = (#z*#z-@p1)/(#z*#z+@p2)*@fn1(#z)*@fn2(#z) + #pixel
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "REBRefIndM3"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (1.0, 0.0)
  endparam
  func fn1
     caption = "First Function"
     default = ident()
  endfunc
  func fn2
     caption = "Second Function"
     default = ident()
  endfunc
switch:
  type = "REBRefIndJ3"
  bailout = @bailout
  p1 = @p1
  p2 = @p2
  p3 = #pixel
  fn1 = @fn1
  fn2 = @fn2

}

PseudoLambda {
 ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = #pixel
loop:
   x = real(#z)
   y = imag(#z)
   x1 = -@p2*(x - x*x + y*y) + @p1
   y = -@p2*(y - 2*x*y)
   #z = x1 + flip(y)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "PseudoLambda"
  center = (0.0, 0.0)
  maxiter = 256
  periodicity = 0
  method = multipass
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 100.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param p2
    caption = "Parameter 2"
    default = (-1.05, -0.55)
  endparam
switch:
  type = "PseudoMandelLambda"
  bailout = @bailout
  p1 = @p1
}

PseudoMandelLambda {
 ; Ron Barnett, 1993
; Modified and tweaked March 2000
init:
   #z = 0.5
loop:
   x = real(#z)
   y = imag(#z)
   x1 = -#pixel*(x - x*x + y*y) + @p1
   y = -#pixel*(y - 2*x*y)
   #z = x1 + flip(y)
bailout:
  (@test == 0 && |#z| <= @bailout) ||                                         \
  (@test == 1 && sqr(real(#z)) <= @bailout) ||                                \
  (@test == 2 && sqr(imag(#z)) <= @bailout) ||                                \
  (@test == 3 && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) ||  \
  (@test == 4 && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) ||  \
  (@test == 5 && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) ||         \
  (@test == 6 && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
  title = "PseudoMandelLambda"
  center = (0.5, 0.0)
  maxiter = 256
  periodicity = 0
  magn = 0.5
  method = multipass
  param test
    caption = "Bailout Test"
    default = 0
    enum = "mod" "real" "imag" "or" "and" "manh" "manr"
  endparam
  param bailout
    caption = "Bailout value"
    default = 10000.0
    min = 1
  endparam
  param p1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
switch:
  type = "PseudoLambda"
  bailout = @bailout
  p1 = @p1
  p2 = #pixel

}

TiledNewton {
 ; Ron Barnett, December 1998
; To use this as a tiler, use the aspect ratio transformation
; Set the aspect ratio to 1.0
; This is based on an old fractint tiler of Ray Girvan's
init:
   complex pwr = @p1 - 1.0
   complex npwr = -@p1
   complex rpwr = pwr/@p1
   complex rrt = @p2/@p1
   float pwrtest = 10^(100/cabs(@p1))
   bool bTest = false
   float isnear = @p3*cabs(@p2)^cabs(@p1)
   #z=(@fn1(@fn2(real(#pixel)))+flip(@fn1(@fn2(imag(#pixel)))))/@p4
   complex oldz = 0
loop:
  oldz = #z
  z1 = rrt*#z^npwr
  z = #z*(rpwr + z1)
  btest = (cabs(oldz-#z) < isnear)
bailout:
  !btest && (cabs(z) < pwrtest)
default:
  title = "Tiled Newton"
  center = (0.0, 0.0)
  maxiter = 1000
  periodicity = 0
  magn = 0.477465

  param p1
    caption = "Power"
    default = (3,0)
  endparam

  param p2
    caption = "Root"
    default = (1,0)
  endparam

  param p3
    caption = "Bailout value"
    default = 1e-12
    max = 0.1
  endparam
  param p4
     caption = "Zoom"
     default = 2.0
  endparam
  func fn1
     caption = "First Function"
     default = tan()
  endfunc
  func fn2
     caption = "Second Function"
     default = sin()
  endfunc
}