sft_Dizzy1Mandy {
; Setemkia FallingTree, a.k.a Fawn/Kia
; 16 June 2002

init:
  complex z0 = @start
  complex r0 = sqrt(|z0|)+flip(atan2(z0))
  complex z1 = 0
  complex r1 = 0
  float   ss = @step*#magn^(-5/12)
  float   ang = 0
  int     iter = 0
          #z = #pixel

loop:
  z1 = z0
  r1 = r0
  z0 = z0^@m+#pixel
  ang = atan2(z0) , if (ang < 0) , ang = 2*#pi+ang , endif
  r0 = sqrt(|z0|)+flip(ang)
  if @weighted==false
    ang = (imag(r0)+imag(r1))/2
  else
    ang = (real(r0)*imag(r0)+real(r1)*imag(r1))/(real(r0)+real(r1))
  endif
  if @addsub==1, ang = -ang, endif
  #z = #z + ss*#e^flip(atan2(z0-z1)+ang)
  iter = iter+1

bailout:
  iter < #maxiter

default:
  title   = "Dizzy #1 Mandy"
  center  = (0,0)
  magn    = 1.5
  maxiter = 19
  method  = onepass
  periodicity = 0

  param start
    caption = "Starting point"
    default = (0,0)
    hint    = "Mandelbrot perturbation. Standard Mandy uses (0,0)."
  endparam
  param m
    caption = "Mandy power"
    default = 2.0
    hint    = "Power of the Mandelbrot set. Standard Mandy uses 2.0."
  endparam
  param step
    caption = "Step size"
    default = 0.25
    min     = 1.0e-12
    hint    = "On each iteration a step of this length is made in a chaotic \
               direction.  Actually, the step length is scalled by the \
               current magnification."
  endparam
  param addsub
    caption = "Delta Angle Usage"
    enum    = "Add" "Subtract"
    default = 1
    hint    = "Specify whether to add or subtract the change in direction."
  endparam
  param weighted
    caption = "Weighted Average"
    default = false
    hint    = "Use weighted average in computing change of direction."
  endparam
}

sft_Dizzy1Julia {
; Setemkia FallingTree, a.k.a Fawn/Kia
; 16 June 2002

init:
  complex z0 = #pixel
  complex r0 = sqrt(|z0|)+flip(atan2(z0))
  complex z1 = 0
  complex r1 = 0
  float   ss = @step*#magn^(-0.408248290463863)
  float   ang = 0
  int     iter = 0
          #z = #pixel

loop:
  z1 = z0
  r1 = r0
  z0 = z0^@m+@seed
  ang = atan2(z0) , if (ang < 0) , ang = 2*#pi+ang , endif
  r0 = sqrt(|z0|)+flip(ang)
  if @weighted==false
    ang = (imag(r0)+imag(r1))/2
  else
    ang = (real(r0)*imag(r0)+real(r1)*imag(r1))/(real(r0)+real(r1))
  endif
  if @addsub==1, ang = -ang, endif
  #z = #z + ss*#e^flip(atan2(z0-z1)+ang)
  iter = iter+1

bailout:
  iter < #maxiter

default:
  title   = "Dizzy #1 Julia"
  center  = (0,0)
  magn    = 1.5
  maxiter = 19
  method  = onepass
  periodicity = 0

  param seed
    caption = "Julia seed"
    default = (-1.25, 0)
    hint    = "Specifies the specific Julia set to render.  You can \
               also set this value using the Switch feature."
  endparam
  param m
    caption = "Mandy power"
    default = 2.0
    hint    = "Power of the Mandelbrot set. Standard Mandy uses 2.0."
  endparam
  param step
    caption = "Step size"
    default = 0.25
    min     = 1.0e-12
    hint    = "On each iteration a step of this length is made in a chaotic \
               direction.  Actually, the step length is scalled by the \
               current magnification."
  endparam
  param addsub
    caption = "Delta Angle Usage"
    enum    = "Add" "Subtract"
    default = 1
    hint    = "Specify whether to add or subtract the change in direction."
  endparam
  param weighted
    caption = "Weighted Average"
    default = false
    hint    = "Use weighted average in computing change of direction."
  endparam
}