CYJulia02 {
;
; Formula based on Durbi formula, expanded and generalized.
; Programmed by Cornelia Yoder
; Version 20Feb2007
;
init:
complex z = #pixel
complex a = @f1(@n) * @p
complex b = @f1(a) * @m
complex c = @f1(b) + @f2(a) * @p
loop:
z = z^@power + @juliaseed + @f1(c)
bailout:
|z| <= @bailout
default:
title = "CY Generalized Durbi Julia"
maxiter = 500
periodicity = 0
center = (0,0)
param version
caption = "Formula Version"
default = 100
hint = "You should never see this parameter"
visible = false
endparam
complex param juliaseed
caption = "Julia Seed"
default = (-0.83,0.24)
endparam
float param bailout
    caption = "Bailout"
    default = 400
    min = 0
endparam
complex func f1
caption = "Function 1"
default=sin()
hint = "Primary function for determining shape"
endfunc
complex func f2
caption = "Function 2"
default=atan()
hint = "Secondary function for determining shape"
endfunc
complex param m
caption = "M"
default=(1.57,0)
hint = "Optimum values vary with functions"
endparam
complex param n
caption = "N"
default=(2,0)
hint = "Optimum values vary with functions"
endparam
complex param p
caption = "P"
default=(2,0)
hint = "Optimum values vary with functions"
endparam
complex param power
caption = "Power of z"
default = (2,0)
endparam
switch:
type = "CYMand02"
f1 = f1
f2 = f2
m = m
n = n
p = p
bailout = bailout
power = power
z_initial=#pixel
}

CYMand02 {
;
; Formula based on Durbi formula, expanded and generalized.
; Programmed by Cornelia Yoder
; Version 20Feb2007
;
init:
complex z = @z_initial
complex a = @f1(@n) * @p
complex b = @f1(a) * @m
complex c = @f1(b) + @f2(a) * @p
loop:
z = z^@power + #pixel + @f1(c)
bailout:
|z| <= @bailout
default:
title = "CY Generalized Durbi Mandelbrot"
maxiter = 500
periodicity = 0
center = (-0.5,0)
param version
caption = "Formula Version"
default = 100
hint = "You should never see this parameter"
visible = false
endparam
float param bailout
    caption = "Bailout"
    default = 400
    min = 0
hint = "Determines when a point does not belong to the set"
endparam
complex func f1
caption = "Function 1"
default=sin()
hint = "Primary function for determining shape"
endfunc
complex func f2
caption = "Function 2"
default=atan()
hint = "Secondary function for determining shape"
endfunc
complex param m
caption = "M"
default=(1.57,0)
hint = "Optimum values vary with functions"
endparam
complex param n
caption = "N"
default=(2,0)
hint = "Optimum values vary with functions"
endparam
complex param p
caption = "P"
default=(2,0)
hint = "Optimum values vary with functions"
endparam
complex param z_initial
caption = "Initial z"
default = (0,0)
endparam
complex param power
caption = "Power of z"
default = (2,0)
endparam
switch:
type = "CYJulia02"
juliaseed = #pixel
f1 = f1
f2 = f2
m = m
n = n
p = p
bailout = bailout
power = power
}


CYCamerone {
;
; Formula based on the Bagdad formula 
;  by J. Trotsky, expanded and generalized.
; Programmed by Cornelia Yoder
; Switch and Mandelbrot portion added by Jim Blue
; Version 16Sept2007
;
init:
complex z = #pixel
loop:
  z = z^(@shape*z)*@f1(z) + @f2(z)+ @seed
bailout:
  |z| < @bailout
default:
  title = "CY Camerone"
maxiter = 500
periodicity = 0
center = (-1.5,0)
  magn = 1
param bailout
    caption = "Bailout"
    default = 4
    min = 1
endparam
complex param seed
    caption = "Seed"
    default = (0,0)
    hint = "Julia Seed"
endparam
complex param shape
    caption = "Shape Modifier"
    default = (1,0)
    hint = "Modifier for shape"
endparam
complex func f1
caption = "Function 1"
default=sin()
hint = "Primary function for determining shape"
endfunc
complex func f2
caption = "Function 2"
default=sin()
hint = "Secondary function for determining shape"
endfunc

switch:
    type = "CYCamerone_M"
    bailout=bailout
    f1=f1
    f2=f2
    seed=seed
    shape=shape
}

CYCamerone_M{
;
; Formula based on the Bagdad formula 
;  by J. Trotsky, expanded and generalized.
; Programmed by Cornelia Yoder
; Switch and Mandelbrot by Jim Blue
; Version 23Sept2007
;
init:
complex z = @seed
loop:
  z = z^(@shape*z)*@f1(z) + @f2(z)+ #pixel
bailout:
  |z| < @bailout
default:
  title = "CY Camerone (M)"
maxiter = 500
periodicity = 0
center = (-1.5,0)
  magn = 1
param bailout
    caption = "Bailout"
    default = 4
    min = 1
endparam
complex param seed
    caption = "Seed"
    default = (0,0)
    hint = "Starting value"
endparam
complex param shape
    caption = "Shape Modifier"
    default = (1,0)
    hint = "Modifier for shape"
endparam
complex func f1
caption = "Function 1"
default=sin()
hint = "Primary function for determining shape"
endfunc
complex func f2
caption = "Function 2"
default=sin()
hint = "Secondary function for determining shape"
endfunc

switch:
    type = "CYCamerone"
    bailout=bailout
    f1=f1
    f2=f2
    seed=#pixel
    shape=shape
}