SimpleChaoticFunctions {
init:
  z = @start
loop:
  if fn1(z)+@Factor> pixel
z=z+pixel 
else
z=z*pixel
endif
bailout:
  |z| <= @bailout
default:
  title = "Chaotic Functions"
  center = (-0.5, 0)
  param start
    caption = "Starting point"
    default = (1,0)
    hint = "Perturbation. Use (1,0) for the standard Chaotics."
  endparam
  param factor
    caption = "Factor"
    default = (0,0)
    hint = "This is the Chaotic Factor."
  endparam
  param bailout
    caption = "Bailout value"
    default = 400.0
    min = 1.0
    hint = "Defines how soon an orbit bails out."
  endparam
  Func Fn1
  caption="Function"
  default=sin()
  hint= "This is the Chaotic Function."
  endfunc
  }

UltimateChaoticFunctions {
init:
  z = @start
loop:
if @comparation == 0
  if fn1(z)+@factor > pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==1
  if fn1(z)+@factor < pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==2
  if fn1(z)+@factor == pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==3
  if fn1(z)+@factor != pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
bailout:
  |z| <= @Bail
default:
  title = "Ultimate Chaotic w/ Function"
  center = (0,0)
  param comparation
  caption = "Main Comparation"
  default = 0
  enum = "More" "Less" "Equal" "Unequal"
  hint = "This choose the comparation of the Function(Z)+Chaotic factor with the #Pixel value"
  endparam  
  param truefactor
  caption = "True Factor"
  default = 0
  enum = "Addition" "Substraction" "Multiplication" "Division"
  hint = "If the comparation is true, choose the operator of Z and #Pixel"
  endparam  
  param falsefactor
  caption = "False Factor"
  default = 2
  enum = "Addition" "Substraction" "Multiplication" "Division"
  hint = "If the comparation is false, choose the operator of Z and #Pixel"
  endparam
  param start
  caption = "Starting Point"
  default = (1,0)
  hint = "Perturbation. Use (1,0) for the standard Chaotics."
  endparam
  param bail
  caption = "Bailout Value"
  default = 400
  hint = "Defines how soon an orbit bails out."
  endparam 
  param factor
  caption = "Chaotic Factor"
  default = 0.0
  hint = "This is the Chaotic Factor."
  endparam
  func fn1
  caption = "Main Function"
  default = sin()
  hint= "This is the Chaotic Function."
  endfunc
   }
   
UltimateChaotic {
init:
  z = @start
loop:
if @comparation == 0
  if z+@factor > pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==1
  if z+@factor < pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==2
  if z+@factor == pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
if @Comparation==3
  if z+@factor != pixel
    if @truefactor==0
    z = z + pixel
    endif
    if @truefactor==1
    z = z - pixel
    endif
    if @truefactor==2
    z = z * pixel
    endif
    if @truefactor==3
    z = z / pixel
    endif
  else
    if @falsefactor==0
    z = z + pixel
    endif
    if @falsefactor==1
    z = z - pixel
    endif
    if @falsefactor==2
    z = z * pixel
    endif
    if @falsefactor==3
    z = z / pixel
    endif
  endif
endif
bailout:
  |z| <= @Bail
default:
  title = "Ultimate Chaotic"
  center = (0,0)
  param comparation
  caption = "Main Comparation"
  default = 0
  enum = "More" "Less" "Equal" "Unequal"
  hint = "This choose the comparation of the Z+Chaotic factor with the #Pixel value"
  endparam  
  param truefactor
  caption = "True Factor"
  default = 0
  enum = "Addition" "Substraction" "Multiplication" "Division"
  hint = "If the comparation is true, choose the operator of Z and #Pixel"
  endparam  
  param falsefactor
  caption = "False Factor"
  default = 2
  enum = "Addition" "Substraction" "Multiplication" "Division"
  hint = "If the comparation is false, choose the operator of Z and #Pixel"
  endparam
  param start
  caption = "Starting Point"
  default = (1,0)
  hint = "Perturbation. Use (1,0) for the standard Chaotics."
  endparam
  param bail
  caption = "Bailout Value"
  default = 400
  hint = "Defines how soon an orbit bails out."
  endparam 
  param factor
  caption = "Chaotic Factor"
  default = 0.0
  hint = "This is the Chaotic Factor."
  endparam
  }