Mandelbrot_play {
; Mandelbrot set
init:
i=(0,1)
  z = (0,0)
  c=#pixel
 if @var==1 ;cardioid to circle
      c=c*exp(i*(#pi/2-@ang*#pi/180))
      c=(1+(c+i)^2)/4
 endif
 if @var==2 ;stretch
      c=conj(2/c)
      c=c+i
      c=c*exp(i*@ang*#pi/180)
      c=(1+(c+i)^2)/4
 endif
 if @var==3 ;inside out
      c=conj(1/c)
      c=c*exp(i*@ang*#pi/180)
      c=(1+(c+i)^2)/4
 endif

loop:
 z = z^2 + c;#pixel
bailout:
  |z| <= @bailout
default:
  title = "Mandelbrot_Play"
  center = (-0.0, 0)
  periodicity = 0
  maxiter=2500
  method = multipass
   param bailout
    caption = "Bailout value"
    default = 1E20
    min = 1.0

  endparam
  param var
  caption= "Transform"
   enum = "none" "cardioid to circle" "stretch" "inside out"
   default= 0
   endparam
  param ang
  caption= "Angle, degrees"
      default= 0.0
  visible= @var>0
   endparam
}

SomethingNew { 
; well, not so new
; based on the formula "Cloud" by D.H. Van den Berghe 1999
; adapted by Jos Leys, June 2001
; version 2
init:
  z = @start
loop:
  z = z  / fn2((fn1((#pixel^@p4)*@p3)^@p1))/@p2
bailout:
  |z| < @bailout
default:
  title = "Something New"
  angle = 90  
  param start
    default = (1E-7,0)
  endparam
  param p1
  caption="param 1"
    default = (3.0,0)
  endparam
  param p2
  caption="param 2"
    default = (.34,0)
  endparam
  param p3
  caption="param 3"
    default = (1.0,0)
  endparam
  param p4
  caption="param 4"
    default = (1.0,0)
  endparam
  func fn1
  caption="Function 1"
  default = ident()
  endfunc
  func fn2
  caption="Function 2"
  default = ident()
  endfunc
  param bailout
    default = (8,0)
  endparam
  }
  
SomethingNew2 { 
; well, not so new
; based on the formula "Cloud" by D.H. Van den Berghe 1999
; adapted by Jos Leys, June 2001
init:
  z = @start
loop:
  z =   z*(1+fn2(#pixel*@p4)^@p1)  / (fn1(#pixel*@p3)^@p1)/@p2
bailout:
  |z| < @bailout
default:
  title = "Something New 2"
  angle = 90  
  param start
    default = (1E-7,0)
  endparam
  param p1
  caption="param 1"
    default = (3.0,0)
  endparam
  param p2
  caption="param 2"
    default = (.34,0)
  endparam
  param p3
  caption="param 3"
    default = (1.0,0)
  endparam
  param p4
  caption="param 4"
    default = (1.0,0)
  endparam
  func fn1
  caption="Function 1"
  default = ident()
  endfunc
  func fn2
  caption="Function 2"
  default = zero()
  endfunc
  param bailout
    default = (8,0)
  endparam
 

}
SomethingNew3 { 
; well, not so new
; based on the formula "Cloud" by D.H. Van den Berghe 1999
; adapted by Jos Leys, June 2001
init:
  z = @start
loop:
  z = z *fn4((fn3((#pixel^@p44)*@p33)^@p11)) / fn2((fn1((#pixel^@p4)*@p3)^@p1))/@p2
bailout:
  |z| < @bailout
default:
  title = "Something New 3"
  angle = 90  
  param start
    default = (1E-7,0)
  endparam
  param p1
  caption="param 1"
    default = (3.0,0)
  endparam
  param p2
  caption="param 2"
    default = (.34,0)
  endparam
  param p3
  caption="param 3"
    default = (1.0,0)
  endparam
  param p4
  caption="param 4"
    default = (1.0,0)
  endparam
param p11
  caption="param 11"
    default = (3.0,0)
  endparam
  param p33
  caption="param 33"
    default = (1.0,0)
  endparam
  param p44
  caption="param 44"
    default = (1.0,0)
  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
  func fn4
  caption="Function 4"
  default = ident()
  endfunc

  param bailout
    default = (8,0)
  endparam
 

}

SomethingNew4 { 
; well, not so new
; based on the formula "Cloud" by D.H. Van den Berghe 1999
; adapted by Jos Leys, June 2001
init:
  z = @start
loop:
  z = (z) / (fn3((fn4(#pixel^@p4)*@p3)^@p1)+fn2((fn1(#pixel^@p4)*@p3)^@p1))/@p2
  bailout:
  |z| < @bailout
default:
  title = "Something New 4"
  angle = 90  
  param start
    default = (1E-27,0)
  endparam
  param p1
  caption="param 1"
    default = (1.0,0)
  endparam
  param p2
  caption="param 2"
    default = (.14,0)
  endparam
  param p3
  caption="param 3"
    default = (0.7,0)
  endparam
  param p4
  caption="param 4"
    default = (1.0,0)
  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
  func fn4
  caption="Function 4"
  default = ident()
  endfunc

  param bailout
    default = (8,0)
  endparam
 

}
Ball {
init:
  z = @ps
  c = fn1(#pixel)*@jp
loop:
  z = @p1*c^@exp*z+@p3*z
  c = c*@p2
    
bailout:  
  |z| <= @bailout
default:
  title = "Ball"
  maxiter=30
  param ps
     caption = "Start Parameter"
     default = (20.0,0.0)
  endparam
param jp
     caption = "Julia Parameter"
     default = (1.0,0.0)
  endparam

  param p1
     caption = "Param1"
     default = (0.1,0.0)
  endparam
  param p2
     caption = "Param2"
     default = (0.95,0.0)
  endparam
param p3
     caption = "Param3"
     default = (0.0,0.0)
  endparam
  param exp
     caption = "Exponent"
     default = (1.0,0.0)
  endparam

param bailout
    caption = "Bailout value"
    default = 4000000.0    
  endparam
func fn1
  caption = "Function 1"
     default = ident()
  endfunc
}

Ball-Mandel {
; Switches to the formula "Ball" 
init:
   z = @ps
   c = fn1(#pixel)

loop:
   z = @p1*c^@exp*z+@p3*z
   c = c*@p2

bailout:
   |z| <= @bailout

default:
   title = "Ball - Mandel"
   maxiter = 30
   method = multipass

   param ps
      caption = "Start Parameter"
      default = (20.0,0.0)
   endparam

   param p1
      caption = "Param1"
      default = (0.1,0.0)
   endparam

   param p2
      caption = "Param2"
      default = (0.95,0.0)
   endparam

   param p3
      caption = "Param3"
      default = (0.0,0.0)
   endparam

   param exp
      caption = "Exponent"
      default = (1.0,0.0)
   endparam

   param bailout
     caption = "Bailout value"
     default = 4000000.0
   endparam

   func fn1
     caption = "Function 1"
     default = ident()
   endfunc

switch:
   type = "Ball"
   jp = #pixel
   ps = @ps
   p1 = @p1
   p2 = @p2
   p3 = @p3
   exp = @exp
   bailout = @bailout
   fn1 = @fn1
}