comment {
; Formulas created by Marcelo Anelli C.
; for program UltraFractal
; Caracas, Venezuela.
}

mac001 { 
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex c = 0.0
  if (@type==0)
    c = #pixel
  elseif (@type==1)
    c = @cc
  endif
  complex z2 = 0
loop:
  if (@form==0)
    z2 = @f1( #z - 1 ) / @f2 ( #z + 1 )
  elseif (@form==1)
    z2 = @f1( #z + 1 ) / @f2 ( #z - 1 )
  elseif (@form==2)
    z2 = @f1( #z * #z - 1 ) / @f2( #z * #z + 1 )
  elseif (@form==3)
    z2 = @f1( #z * #z + 1 ) / @f2( #z * #z - 1 )
  elseif (@form==4)
    z2 = @f1( 1 - #z ) / @f2( 1 + #z )
  elseif (@form==5)
    z2 = @f1( 1 + #z ) / @f2( 1 - #z )
  elseif (@form==6)
    z2 = @f1( 1 - #z * #z ) / @f2( 1 + #z * #z )
  elseif (@form==7)
    z2 = @f1( 1 + #z * #z ) / @f2( 1 - #z * #z )
  endif
  z = @f3( z2 ) + c
bailout:
  |z| < @bail
default:
  title = "mac001"
  func f1
    caption = "First function"
    default = ident()
  endfunc
  func f2
    caption = "Second function"
    default = ident()
  endfunc
  func f3
    caption = "Final function"
    default = ident()
  endfunc
  param form
    caption  = "Fractint formula conversion"
    default = 0
    enum = "mac001" "mac002" "mac003" "mac004" "mac009" "mac010" "mac011" "mac012"
    ; Fractint formula converions:
    ; formula mandel mac001 mac002 mac003 mac004 mac009 mac010 mac011 mac012
    ; formula julia  mac007 mac008 mac006 mac005
  endparam
  param type
    caption = "Type fractal"
    default = 0
    enum = "Mandel" "Julia"
  endparam
  param cc
    caption = "Constant c"
    default = (0.0, 0.0)
    hint = "Useful for Julia fractal type only."
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 32.0
    min = 1
  endparam
}

mac001m { 
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex c = #pixel
  complex z2 = 0
loop:
  if (@form==0)
    z2 = @f1( #z - 1 ) / @f2 ( #z + 1 )
  elseif (@form==1)
    z2 = @f1( #z + 1 ) / @f2 ( #z - 1 )
  elseif (@form==2)
    z2 = @f1( #z * #z - 1 ) / @f2( #z * #z + 1 )
  elseif (@form==3)
    z2 = @f1( #z * #z + 1 ) / @f2( #z * #z - 1 )
  elseif (@form==4)
    z2 = @f1( 1 - #z ) / @f2( 1 + #z )
  elseif (@form==5)
    z2 = @f1( 1 + #z ) / @f2( 1 - #z )
  elseif (@form==6)
    z2 = @f1( 1 - #z * #z ) / @f2( 1 + #z * #z )
  elseif (@form==7)
    z2 = @f1( 1 + #z * #z ) / @f2( 1 - #z * #z )
  endif
  z = @f3( z2 ) + c
bailout:
  |z| < @bail
default:
  title = "mac001 Mandel set"
  func f1
    caption = "First function"
    default = ident()
  endfunc
  func f2
    caption = "Second function"
    default = ident()
  endfunc
  func f3
    caption = "Final function"
    default = ident()
  endfunc
  param form
    caption  = "Fractint formula conversion"
    default = 0
    enum = "mac001" "mac002" "mac003" "mac004" "mac009" "mac010" "mac011" "mac012"
    ; Fractint formula converions:
    ; formula mandel mac001 mac002 mac003 mac004 mac009 mac010 mac011 mac012
    ; formula julia  mac007 mac008 mac006 mac005
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 32.0
    min = 1
  endparam
switch:
  type = "mac001j"
  f1 = f1
  f2 = f2
  f3 = f3
  form = form
  cc = #pixel
  bail = bail
}

mac001j { 
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex c = @cc
  complex z2 = 0
loop:
  if (@form==0)
    z2 = @f1( #z - 1 ) / @f2 ( #z + 1 )
  elseif (@form==1)
    z2 = @f1( #z + 1 ) / @f2 ( #z - 1 )
  elseif (@form==2)
    z2 = @f1( #z * #z - 1 ) / @f2( #z * #z + 1 )
  elseif (@form==3)
    z2 = @f1( #z * #z + 1 ) / @f2( #z * #z - 1 )
  elseif (@form==4)
    z2 = @f1( 1 - #z ) / @f2( 1 + #z )
  elseif (@form==5)
    z2 = @f1( 1 + #z ) / @f2( 1 - #z )
  elseif (@form==6)
    z2 = @f1( 1 - #z * #z ) / @f2( 1 + #z * #z )
  elseif (@form==7)
    z2 = @f1( 1 + #z * #z ) / @f2( 1 - #z * #z )
  endif
  z = @f3( z2 ) + c
bailout:
  |z| < @bail
default:
  title = "mac001 Julia set"
  func f1
    caption = "First function"
    default = ident()
  endfunc
  func f2
    caption = "Second function"
    default = ident()
  endfunc
  func f3
    caption = "Final function"
    default = ident()
  endfunc
  param form
    caption  = "Fractint formula conversion"
    default = 0
    enum = "mac001" "mac002" "mac003" "mac004" "mac009" "mac010" "mac011" "mac012"
    ; Fractint formula converions:
    ; formula mandel mac001 mac002 mac003 mac004 mac009 mac010 mac011 mac012
    ; formula julia  mac007 mac008 mac006 mac005
  endparam
  param cc
    caption = "Constant c"
    default = (0.0, 0.0)
    hint = "Useful for Julia fractal type only."
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 32.0
    min = 1
  endparam
switch:
  type = "mac001m"
  f1 = f1
  f2 = f2
  f3 = f3
  form = form
  bail = bail
}

fiboA {
; Híbrido de Mandelbrot
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z * oldz + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboA"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
}

fiboB {
; Mutación de FiboA
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = @fn1( z * oldz ) + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboB"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "Function"
    default = ident()
  endfunc
}

fiboB1 {
; Mutación de FiboA
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = @fn1( z ) * @fn2( oldz ) + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboB1"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1.0
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboA1 {
; Híbrido de Mandelbrot
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z + oldz
  oldz = temp
  z= z * z + c
bailout:
  |z| < @bail
default:
  title = "fiboA1"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
}

fiboB2 {
; Mutación de FiboA
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z + oldz
  oldz = temp
  z = @fn1( z ) * @fn2( z ) + c
bailout:
  |z| < @bail
default:
  title = "fiboB2"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB3 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = @fn1( z ) + @fn2( oldz ) + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboB3"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB4 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z + oldz
  oldz = temp
  z = @fn1( z ) + @fn2( oldz ) + c
bailout:
  |z| < @bail
default:
  title = "fiboB4"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB5 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = @fn1( z ) - @fn2( oldz ) + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboB5"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB6 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z + oldz
  oldz = temp
  z = @fn1( z ) - @fn2( oldz ) + c
bailout:
  |z| < @bail
default:
  title = "fiboB6"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB7 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = @fn1( z ) / @fn2( oldz ) + c
  oldz = temp
bailout:
  |z| < @bail
default:
  title = "fiboB7"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboB8 {
; Mutación de FiboA
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z + oldz
  oldz = temp
  z = @fn1( z ) / @fn2( oldz ) + c
bailout:
  |z| < @bail
default:
  title = "fiboB8"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
}

fiboC1 {
; Híbrido de Mandelbrot
; by Marcelo Anelli C.
; Caracas, Febrero de 1999
init:
  z = #pixel
  complex oldz = #pixel
  complex c = #pixel
  complex temp = z
loop:
  temp = z
  z = z * oldz
  oldz = temp
  z= z * z + c
bailout:
  |z| < @bail
default:
  title = "fiboC1"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
}

Ran001  {
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
  init:
    complex c = srand( @p1)
    c = z = #pixel + rand
  loop:
    z = @f1(z) + c
bailout:
  |z| < @bail
default:
  title = "Ran001"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 16.0
    min = 1
  endparam
  param p1
    caption = "Seed"
    hint = "UF does not use this parameters"
    default = 1.0
  endparam
  func f1
    caption = "Function"
    default = ident()
  endfunc
}

Ran002 { 
; by Marcelo Anelli C.
; traducido desde Fractint.
; Caracas, Febrero de 1999
  init:
    complex c = srand( @p1 )
    c = @p2
    z = #pixel + rand
    dummy = dummy +1
  loop:
    z = @fn1( z ) + c
  bailout:
    |z| < @bail
default:
  title = "Ran002"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param p1
    caption = "Seed"
    hint = "UF does not use this parameter."
    default = 1.0
  endparam
  param p2
    caption = "Constant"
    hint = "Constant c"
  endparam
  func f1
    caption = "Function"
    default = ident()
  endfunc
}

Sierpinski01 { ; based on triangle of Sierpinski
  ; based from Sierpin0 written for Fractint
  ; Set fn1 = fn2 = ident() for the triangle gasket
  ; Set fn2 = ident() for Sierpin0
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    complex cc = @c
    if (@type == 1)
      cc = #z
    endif
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    #z = x + flip( y )
    if (( x > @corte ) && ( y <= @corte ))
      #z = #z - @offset
    endif
    if ( y > @corte )
      #z = #z - flip( @offset )
    endif
    if (@mode == 0)
      #z = @fn1( #z ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( #z ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( #z ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( #z ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( #z + cc )
    elseif (@mode == 5)
      #z = @fn1( #z - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 01"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param type
    caption = "Type"
    default = 0
    enum = "Julia" "Mandel"
  endparam
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to z"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski01m"
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski01m { ; based on triangle of Sierpinski
  ; based from Sierpin0 written for Fractint
  ; Set fn1 = fn2 = ident() for the triangle gasket
  ; Set fn2 = ident() for Sierpin0
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    cc = #z
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    #z = x + flip( y )
    if (( x > @corte ) && ( y <= @corte ))
      #z = #z - @offset
    endif
    if ( y > @corte )
      #z = #z - flip( @offset )
    endif
    if (@mode == 0)
      #z = @fn1( #z ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( #z ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( #z ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( #z ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( #z + cc )
    elseif (@mode == 5)
      #z = @fn1( #z - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 01 Mandel"
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to z"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski01j"
  c = #pixel
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski01j { ; based on triangle of Sierpinski
  ; based from Sierpin0 written for Fractint
  ; Set fn1 = fn2 = ident() for the triangle gasket
  ; Set fn2 = ident() for Sierpin0
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    complex cc = @c
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    #z = x + flip( y )
    if (( x > @corte ) && ( y <= @corte ))
      #z = #z - @offset
    endif
    if ( y > @corte )
      #z = #z - flip( @offset )
    endif
    if (@mode == 0)
      #z = @fn1( #z ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( #z ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( #z ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( #z ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( #z + cc )
    elseif (@mode == 5)
      #z = @fn1( #z - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 01 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to z"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski01m"
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski02 { ; based on triangle of Sierpinski
  ; based from Sierpin2 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    complex cc = @c
    if (@type == 1)
      cc = #z
    endif
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    complex a1 = 0
    if ( y > @corte )
      a1 = x + flip( y - @valor )
    endif
    complex a2 = 0
    if (( y <= @corte ) && ( x > @corte ))
      a1 = ( x - @valor ) + flip( y )
    endif
    complex a3 = 0
    if (( y <= @corte ) && ( x <= @corte ))
      a3 = x + flip( y )
    endif
    if (@mode == 0)
      #z = @fn1( a1 ) + @fn2( a2 ) + @fn3( a3 ) + @fn4( cc )
    elseif (@mode == 1)
      #z = @fn1( a1 ) - @fn2( a2 ) - @fn3( a3 ) - @fn4( cc )
    elseif (@mode == 2)
      #z = @fn1( a1 ) * @fn2( a2 ) * @fn3( a3 ) * @fn4( cc )
    elseif (@mode == 3)
      #z = @fn1( a1 ) / @fn2( a2 ) / @fn3( a3 ) / @fn4( cc )
    elseif (@mode == 4)
      #z = @fn1( a1 + a2 + a3 + cc )
    elseif (@mode == 5)
      #z = @fn1( a1 - a2 - a3 - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 02"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param valor
    caption = "Transform"
    default = 1.0
    hint = "Transform from cutting edges."
  endparam
  param type
    caption = "Type"
    default = 0
    enum = "Julia" "Mandel"
  endparam
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to second part of equation"
  endfunc
  func fn3
    caption = "Function 3"
    default = ident()
    hint = "Function applied to third part of equation"
  endfunc
  func fn4
    caption = "Function 4"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski02m"
  valor = valor
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Sierpinski02m { ; based on triangle of Sierpinski
  ; based from Sierpin2 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    cc = #z
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    complex a1 = 0
    if ( y > @corte )
      a1 = x + flip( y - @valor )
    endif
    complex a2 = 0
    if (( y <= @corte ) && ( x > @corte ))
      a1 = ( x - @valor ) + flip( y )
    endif
    complex a3 = 0
    if (( y <= @corte ) && ( x <= @corte ))
      a3 = x + flip( y )
    endif
    if (@mode == 0)
      #z = @fn1( a1 ) + @fn2( a2 ) + @fn3( a3 ) + @fn4( cc )
    elseif (@mode == 1)
      #z = @fn1( a1 ) - @fn2( a2 ) - @fn3( a3 ) - @fn4( cc )
    elseif (@mode == 2)
      #z = @fn1( a1 ) * @fn2( a2 ) * @fn3( a3 ) * @fn4( cc )
    elseif (@mode == 3)
      #z = @fn1( a1 ) / @fn2( a2 ) / @fn3( a3 ) / @fn4( cc )
    elseif (@mode == 4)
      #z = @fn1( a1 + a2 + a3 + cc )
    elseif (@mode == 5)
      #z = @fn1( a1 - a2 - a3 - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 02 Mandel"
  param valor
    caption = "Transform"
    default = 1.0
    hint = "Transform from cutting edges."
  endparam
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to second part of equation"
  endfunc
  func fn3
    caption = "Function 3"
    default = ident()
    hint = "Function applied to third part of equation"
  endfunc
  func fn4
    caption = "Function 4"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski02j"
  c = #pixel
  valor = valor
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Sierpinski02j { ; based on triangle of Sierpinski
  ; based from Sierpin2 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, Marzo de 1999
    init:
    #z = #pixel
    complex cc = @c
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
    complex a1 = 0
    if ( y > @corte )
      a1 = x + flip( y - @valor )
    endif
    complex a2 = 0
    if (( y <= @corte ) && ( x > @corte ))
      a1 = ( x - @valor ) + flip( y )
    endif
    complex a3 = 0
    if (( y <= @corte ) && ( x <= @corte ))
      a3 = x + flip( y )
    endif
    if (@mode == 0)
      #z = @fn1( a1 ) + @fn2( a2 ) + @fn3( a3 ) + @fn4( cc )
    elseif (@mode == 1)
      #z = @fn1( a1 ) - @fn2( a2 ) - @fn3( a3 ) - @fn4( cc )
    elseif (@mode == 2)
      #z = @fn1( a1 ) * @fn2( a2 ) * @fn3( a3 ) * @fn4( cc )
    elseif (@mode == 3)
      #z = @fn1( a1 ) / @fn2( a2 ) / @fn3( a3 ) / @fn4( cc )
    elseif (@mode == 4)
      #z = @fn1( a1 + a2 + a3 + cc )
    elseif (@mode == 5)
      #z = @fn1( a1 - a2 - a3 - cc )
    endif
  bailout:
    |z| < @bail
default:
  title = "Sierpinski 02 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param valor
    caption = "Transform"
    default = 1.0
    hint = "Transform from cutting edges."
  endparam
  param offset
    caption = "Offset from gasket"
    default = 1.0
    hint = "Set to 1.0 for the gasket of Sierpinski"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to second part of equation"
  endfunc
  func fn3
    caption = "Function 3"
    default = ident()
    hint = "Function applied to third part of equation"
  endfunc
  func fn4
    caption = "Function 4"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski02m"
  valor = valor
  offset = offset
  bail = bail
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

mac013j {
; Translation of formula mac013 for Fractint.
; Marcelo Anelli
; Caracas, Marzo de 1999
init:
  #z = #pixel
loop:
  float x = real(#z)
  float y = imag(#z)
  #z = @w1 * @fn1( x * x ) + @w2 * @fn2( y * y ) + @c
  bailout:
    |z| < @bail
default:
  title = "mac013 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 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 = "mac013m"
  bail = bail
  w1 = w1
  w2 = w2
  fn1 = fn1
  fn2 = fn2
}

mac013m {
; Translation of formula mac013 for Fractint.
; Marcelo Anelli
; Caracas, Marzo de 1999
init:
  #z = #pixel
loop:
  float x = real(#z)
  float y = imag(#z)
  #z = @w1 * @fn1( x * x ) + @w2 * @fn2( y * y )
  bailout:
    |z| < @bail
default:
  title = "mac013 Mandel"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 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 = "mac013j"
  c = #pixel
  bail = bail
  fn1 = fn1
  fn2 = fn2
  w1 = w1
  w2 = w2
}

mac014m {
; Translation of formulas mac014, mac015, mac016, mac017 for Fractint.
; Marcelo Anelli
; Caracas, Marzo de 1999
init:
  #z = #pixel
  complex c = #pixel
loop:
  if (|#z| < |@corte|)
    #z = @w1 * @fn1(#z)
  elseif (|#z| >= |@corte|)
    #z = @w2 * @fn2(#z)
  endif
  #z = @fn3( #z * #z ) + c
bailout:
    |z| < @bail
default:
  title = "mac014 Mandel"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled."
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    default = 1.0
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = sin()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac014j"
  c = #pixel
  bail = bail
  corte = corte
  w1 = w1
  w2 = w2
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

mac014j {
; Translation of formulas mac014, mac015, mac016, mac017 for Fractint.
; Marcelo Anelli
; Caracas, Marzo de 1999
init:
  #z = #pixel
loop:
  if (|#z| < |@corte|)
    #z = @w1 * @fn1(#z)
  elseif (|#z| >= |@corte|)
    #z = @w1 * @fn2(#z)
  endif
  #z = @fn3( #z * #z ) + @c
bailout:
    |z| < @bail
default:
  title = "mac014 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled."
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    default = 1.0
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = sin()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac014m"
  bail = bail
  corte = corte
  w1 = w1
  w2 = w2
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Euler01j {
; by Marcelo Anelli C.
; equation: (1/e+0.1) exp(z) + c
; Caracas, Marzo de 1999
  init:
    if (@modini==0)
      z = #pixel
    elseif (@modini==1)
      z = #pixel * #pixel
    elseif (@modini==2)
      z = exp(#pixel)
    elseif (@modini==3)
      z = exp(#pixel)/#pixel
    endif
  loop:
    #z = (@fa/#e + @ec) * @fn1(#z) + @c
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + pixel| < @bail))
  default:
    title = "Euler Julia set"
    param modini
      caption = "Init method"
      default = 0
      enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel"
    endparam
    param c
      default = (0.0, 0.0)
      caption = "Julia constant"
    endparam
    param ec
      default = 0.1
      caption = "Constant"
    endparam
    param fa
      default = 1.0
      caption = "Factor"
    endparam
    param bto
      default = 0
      caption = "Bailot type"
      enum = "Normal" "Adding pixel" "Subtracting pixel"
    endparam
    param bail
      caption = "Bailout"
      hint = "Select your bailout value."
      default = 16.0
      min = 1
    endparam
    func fn1
      default = exp()
      caption = "Function"
      hint = "Euler ecuation is exponential function"
    endfunc
  switch:
    type = "Euler01m"
    modini = modini
    c = #pixel
    ec = ec
    fa = fa
    bto = bto
    bail = bail
    fn1 = fn1
}

Euler01m {
; by Marcelo Anelli C.
; equation: (1/e+0.1) exp(z) + c
; Caracas, Marzo de 1999
  init:
    complex c = (0.0, 0.0)
    if (@modini==0)
      c = #z = #pixel
    elseif (@modini==1)
      c = #z = #pixel * #pixel
    elseif (@modini==2)
      c = #z = exp(#pixel)
    elseif (@modini==3)
      c = #z = exp(#pixel)/#pixel
    endif
  loop:
      #z = (@fa/#e + @ec) * @fn1(#z) + c
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + pixel| < @bail))
  default:
    title = "Euler Mandel set"
    param modini
      caption = "Init method"
      default = 0
      enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel"
    endparam
    param ec
      default = 0.1
      caption = "Constant"
    endparam
    param fa
      default = 1.0
      caption = "Factor"
    endparam
    param bto
      default = 0
      caption = "Bailot type"
      enum = "Normal" "Adding pixel" "Subtracting pixel"
    endparam
    param bail
      caption = "Bailout"
      hint = "Select your bailout value."
      default = 16.0
      min = 1
    endparam
    func fn1
      default = exp()
      caption = "Function"
      hint = "Euler ecuation is exponential function"
    endfunc
  switch:
    type = "Euler01j"
    modini = modini
    c = #pixel
    ec = ec
    fa = fa
    bto = bto
    bail = bail
    fn1 = fn1
}

Euler02j {
; by Marcelo Anelli C.
; equation: (1/e+0.1) exp(z) + (1/e+0.1)/exp(z) + c
; Caracas, Marzo de 1999
  init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    endif
  loop:
    #z = (@fa/#e + @ec) * @fn1(#z) + (@fa/#e + @ec) / @fn1(#z) + @c
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
  default:
    title = "Euler 2 Julia set"
    param modini
      caption = "Init method"
      default = 0
      enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel"
    endparam
    param c
      default = (0.0, 0.0)
      caption = "Julia constant"
    endparam
    param ec
      default = 0.1
      caption = "Constant"
    endparam
    param fa
      default = 1.0
      caption = "Factor"
    endparam
    param bto
      default = 0
      caption = "Bailot type"
      enum = "Normal" "Adding pixel" "Subtracting pixel"
    endparam
    param bail
      caption = "Bailout"
      hint = "Select your bailout value."
      default = 16.0
      min = 1
    endparam
    func fn1
      default = exp()
      caption = "Function"
      hint = "Euler ecuation is exponential function"
    endfunc
  switch:
    type = "Euler02m"
    modini = modini
    c = #pixel
    ec = ec
    fa = fa
    bto = bto
    bail = bail
    fn1 = fn1
}

Euler02m {
; by Marcelo Anelli C.
; equation: (1/e+0.1) exp(z) + (1/e+0.1)/exp(z) + c
; Caracas, Marzo de 1999
  init:
    complex c = (0.0, 0.0)
    if (@modini==0)
      c = z = #pixel
    elseif (@modini==1)
      c = z = #pixel * #pixel
    elseif (@modini==2)
      c = z = exp(#pixel)
    elseif (@modini==3)
      c = z = exp(#pixel)/#pixel
    endif
  loop:
      #z = (@fa/#e + @ec) * @fn1(#z) + (@fa/#e + @ec) / @fn1(#z) + c
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
  default:
    title = "Euler 2 Mandel set"
    param modini
      caption = "Init method"
      default = 0
      enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel"
    endparam
    param ec
      default = 0.1
      caption = "Constant"
    endparam
    param fa
      default = 1.0
      caption = "Factor"
    endparam
    param bto
      default = 0
      caption = "Bailot type"
      enum = "Normal" "Adding pixel" "Subtracting pixel"
    endparam
    param bail
      caption = "Bailout"
      hint = "Select your bailout value."
      default = 16.0
      min = 1
    endparam
    func fn1
      default = exp()
      caption = "Function"
      hint = "Euler ecuation is exponential function"
    endfunc
  switch:
    type = "Euler02j"
    modini = modini
    c = #pixel
    ec = ec
    fa = fa
    bto = bto
    bail = bail
    fn1 = fn1
}

Mac018j {
; Translated by Mac from Fractint mac018, mac019, mac020, mac021, mac018a,
; mac019a, mac020a, mac021a, macm18, macm19, macm18a, macm19a
; macxxxa and macmxx means mutation of original formula
; Caracas, 15 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = @c
loop:
  complex x = real(#z)
  complex y = imag(#z)
  if (@formula==0)
    #z = @w1 * @fn1( x * x ) - @w2 * @fn2( 2 * x * y ) + c
  elseif (@formula==1)
    #z = @fn3( @w1 * @fn1( x ) + @w2 * flip(@fn2( y )) ) + c
  elseif (@formula==2)
    #z = @w1 * @fn1( x ) * @w2 * @fn2( y ) + c
  elseif (@formula==3)
    #z = @fn3( @w1 * @fn1( x ) * @w2 * flip(@fn2( y )) ) + c
  elseif (@formula==4)
    #z = (@w1 * @fn1( x ) + @w2 * @fn2( y ))/(x*y) + c
  elseif (@formula==5)
    #z = (x*y)/(@w1 * @fn1( x ) + @w2 * @fn2( y )) + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac018 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param formula
    default = 0
    enum = "mac018" "mac020" "mac018a" "mac020a" "macm18" "macm18a"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = sin()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    hint = "Work only on formulas mac020, mac020a"
    default = sin()
  endfunc
switch:
  type = "mac018m"
  bail = bail
  w1 = w1
  w2 = w2
  modini = modini
  bto = bto
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac018m {
; Translated by Mac from Fractint mac018, mac019, mac020, mac021, mac018a,
; mac019a, mac020a, mac021a, macm18, macm19, macm18a, macm19a
; macxxxa and macmxx means mutation of original formula
; Caracas, 15 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = #z
loop:
  complex x = real(#z)
  complex y = imag(#z)
  if (@formula==0)
    #z = @w1 * @fn1( x * x ) - @w2 * @fn2( 2 * x * y ) + c
  elseif (@formula==1)
    #z = @fn3( @w1 * @fn1( x ) + @w2 * flip(@fn2( y )) ) + c
  elseif (@formula==2)
    #z = @w1 * @fn1( x ) * @w2 * @fn2( y ) + c
  elseif (@formula==3)
    #z = @fn3( @w1 * @fn1( x ) * @w2 * flip(@fn2( y )) ) + c
  elseif (@formula==4)
    #z = (@w1 * @fn1( x ) + @w2 * @fn2( y ))/(x*y) + c
  elseif (@formula==5)
    #z = (x*y)/(@w1 * @fn1( x ) + @w2 * @fn2( y )) + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac018 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac018" "mac020" "mac018a" "mac020a" "macm18" "macm18a"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = sin()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    hint = "Work only on formulas mac020, mac020a"
    default = sin()
  endfunc
switch:
  type = "mac018j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac022m {
; Translated by Mac from Fractint mac022, mac023 and added more parameters
; and options
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = #z
loop:
  complex x = real(#z)
  complex y = imag(#z)
  if (@formula==0) || (@formula==2)
    #z = @w1 * @fn1( x ) + @w2 * @fn2( y )
  elseif (@formula==1) || (@formula==3)
    #z = @w1 * @fn1( x ) - @w2 * @fn2( y )
  elseif (@formula==4) || (@formula==5)
    #z = @w1 * @fn1( x+y ) + @w2 * @fn2( x-y )
  endif
  if (|x| > |@corte|)
    #z = #z - @fn3(x)
  endif
  if (|y| > |@corte|)
    #z = #z - @fn3(y)
  endif
  if (@formula==0) || (@formula==1) || (@formula==4)
    #z = #z * #z + c
  elseif (@formula==2) || (@formula==3) || (@formula==5)
    #z = #z + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac022 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "sqr sum" "sqr dif" "sum" "dif" "sqr com." "comb."
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param corte
    caption = "Cutting edges"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac022j"
  c = #pixel
  corte = corte
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac022j {
; Translated by Mac from Fractint mac022, mac023 and added more parameters
; and options
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = @c
loop:
  complex x = real(#z)
  complex y = imag(#z)
  if (@formula==0) || (@formula==2)
    #z = @w1 * @fn1( x ) + @w2 * @fn2( y )
  elseif (@formula==1) || (@formula==3)
    #z = @w1 * @fn1( x ) - @w2 * @fn2( y )
  elseif (@formula==4) || (@formula==5)
    #z = @w1 * @fn1( x+y ) + @w2 * @fn2( x-y )
  endif
  if (|x| > |@corte|)
    #z = #z - @fn3(x)
  endif
  if (|y| > |@corte|)
    #z = #z - @fn3(y)
  endif
  if (@formula==0) || (@formula==1) || (@formula==4)
    #z = #z * #z + c
  elseif (@formula==2) || (@formula==3) || (@formula==5)
    #z = #z + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac022 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "sqr sum" "sqr dif" "sum" "dif" "sqr com." "comb."
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param corte
    caption = "Cutting edges"
    default = (1.0,0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac022m"
  corte = corte
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac024j {
; Translated by Mac from Fractint mac024, mac025 and added more parameters
; and options
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = @c
loop:
  if (@formula==0)
    #z = (@w1 * @fn1(#z) * @w2 * @fn2(#z)) * Imag(#z) / |#z| + c
  elseif (@formula==1)
    #z = (@w1 * @fn1(#z) + @w2 * @fn2(#z)) * Imag(#z) / |#z| + c
  elseif (@formula==2)
    #z = (@w1 * @fn1(#z) * @w2 * @fn2(#z)) * Real(#z) / |#z| + c
  elseif (@formula==3)
    #z = (@w1 * @fn1(#z) + @w2 * @fn2(#z)) * Real(#z) / |#z| + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac024 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "Imag prod" "Imag sum" "Real prod" "Real sum"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 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 = "mac024m"
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
}

Mac024m {
; Translated by Mac from Fractint mac024, mac025 and added more parameters
; and options
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = #pixel
loop:
  if (@formula==0)
    #z = (@w1 * @fn1(#z) * @w2 * @fn2(#z)) * Imag(#z) / |#z| + c
  elseif (@formula==1)
    #z = (@w1 * @fn1(#z) + @w2 * @fn2(#z)) * Imag(#z) / |#z| + c
  elseif (@formula==2)
    #z = (@w1 * @fn1(#z) * @w2 * @fn2(#z)) * Real(#z) / |#z| + c
  elseif (@formula==3)
    #z = (@w1 * @fn1(#z) + @w2 * @fn2(#z)) * Real(#z) / |#z| + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac024 Mandel set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "Imag prod" "Imag sum" "Real prod" "Real sum"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 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 = "mac024j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
}

Mac072j {
; Translated by Mac from Fractint mac072, mac073 and added more parameters
; and options.
; This is a handy multipurpose formula. You can obtain from mandelbrot to cubic
; equation and lots or more, with only two formulas: one for Mandel set and
; one for Julia set
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = @c
loop:
  if (@formula==0)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) * @w4 * @fn4(#z) + c
  elseif (@formula==1)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==2)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==3)
    #z = @w1 * @fn1(#z) + @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==4)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) / @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  elseif (@formula==5)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) / @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==6)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==7)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  elseif (@formula==8)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) / @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac072 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "* * *" "* * +" "* + +" "+ + +" "/ / /" "/ / +" "/ + +" "* * /" "* / /"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param w3
    caption = "Weight 3"
    default = (1.0, 0.0)
  endparam
  param w4
    caption = "Weight 4"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac072m"
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  w3 = w3
  w4 = w4
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac072m {
; Translated by Mac from Fractint mac072, mac073 and added more parameters
; and options.
; This is a handy multipurpose formula. You can obtain from mandelbrot to cubic
; equation and lots or more, with only two formulas: one for Mandel set and
; one for Julia set
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = #pixel
loop:
  if (@formula==0)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) * @w4 * @fn4(#z) + c
  elseif (@formula==1)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==2)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==3)
    #z = @w1 * @fn1(#z) + @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==4)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) / @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  elseif (@formula==5)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) / @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==6)
    #z = @w1 * @fn1(#z) / @w2 * @fn2(#z) + @w3 * @fn3(#z) + @w4 * @fn4(#z) + c
  elseif (@formula==7)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) * @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  elseif (@formula==8)
    #z = @w1 * @fn1(#z) * @w2 * @fn2(#z) / @w3 * @fn3(#z) / @w4 * @fn4(#z) + c
  endif
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac072 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "* * *" "* * +" "* + +" "+ + +" "/ / /" "/ / +" "/ + +" "* * /" "* / /"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param w3
    caption = "Weight 3"
    default = (1.0, 0.0)
  endparam
  param w4
    caption = "Weight 4"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac072j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  w3 = w3
  w4 = w4
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac026j {
; Translated by Mac from Fractint mac026, mac027 and added more parameters
; and options.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
    float ct1 = 0.0
    float ct2 = 0.0
    complex co1 = (0.0,0.0)
    complex co2 = (0.0,0.0)
  complex c = @c
  if (@formula==0)
    ct1 = real(@corte)
    ct2 = imag(@corte)
  elseif (@formula==1)
    co1 = @corte
    co2 = @corte1
  endif
  complex t1 = (0.0,0.0)
  complex t2 = (0.0,0.0)
  complex t3 = (0.0,0.0)
loop:
  if (@formula==0)
    if (|#z| < ct1)
      t1 = @w1 * @fn1(#z)
    endif
    if ((|#z| >= ct1) && (|#z| < ct2))
      t2 = @w2 * @fn2(#z)
    endif
    if (|#z| >= ct2)
      t3 = @w3 * @fn3(#z)
    endif
  elseif (@formula==1)
    if (|#z| < |co1|)
      t1 = @w1 * @fn1(#z)
    endif
    if ((|#z| >= |co1|) && (|#z| < |co2|))
      t2 = @w2 * @fn2(#z)
    endif
    if (|#z| >= |co2|)
      t3 = @w3 * @fn3(#z)
    endif
  endif
  #z = @fn4( t1 + t2 + t3 ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac026 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac026" "mac026a"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param @corte
    default = (0.0,0.0)
    caption = "Cutting edges"
  endparam
  param @corte1
    default = (0.0,0.0)
    caption = "Cutting edges 1"
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param w3
    caption = "Weight 3"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac026m"
  bail = bail
  modini = modini
  bto = bto
  corte = corte
  corte1 = corte1
  w1 = w1
  w2 = w2
  w3 = w3
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac026m {
; Translated by Mac from Fractint mac026, mac027 and added more parameters
; and options.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
    float ct1 = 0.0
    float ct2 = 0.0
    complex co1 = (0.0,0.0)
    complex co2 = (0.0,0.0)
  complex c = #pixel
  if (@formula==0)
    ct1 = real(@corte)
    ct2 = imag(@corte)
  elseif (@formula==1)
    co1 = @corte
    co2 = @corte1
  endif
  complex t1 = (0.0,0.0)
  complex t2 = (0.0,0.0)
  complex t3 = (0.0,0.0)
loop:
  if (@formula==0)
    if (|#z| < ct1)
      t1 = @w1 * @fn1(#z)
    endif
    if ((|#z| >= ct1) && (|#z| < ct2))
      t2 = @w2 * @fn2(#z)
    endif
    if (|#z| >= ct2)
      t3 = @w3 * @fn3(#z)
    endif
  elseif (@formula==1)
    if (|#z| < |co1|)
      t1 = @w1 * @fn1(#z)
    endif
    if ((|#z| >= |co1|) && (|#z| < |co2|))
      t2 = @w2 * @fn2(#z)
    endif
    if (|#z| >= |co2|)
      t3 = @w3 * @fn3(#z)
    endif
  endif
  #z = @fn4( t1 + t2 + t3 ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac026 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac026" "mac026a"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param @corte
    default = (0.0,0.0)
    caption = "Cutting edges"
  endparam
  param @corte1
    default = (0.0,0.0)
    caption = "Cutting edges 1"
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  param w3
    caption = "Weight 3"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac026j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  corte = corte
  corte1 = corte1
  w1 = w1
  w2 = w2
  w3 = w3
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac034j {
; Translated by Mac from Fractint from mac034 until mac047 and added more
; parameters and options.
; This is a handy multipurpose formula.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = @c
loop:
  if (@formula==0)
    #z = fn2( @w1 * fn3(#z) * @w2 * fn4(#z) )
  elseif (@formula==1)
    #z = fn2( @w1 * fn3(#z) / @w2 * fn4(#z) )
  elseif (@formula==2)
    #z = fn2( @w1 * fn3(#z) + @w2 * fn4(#z) )
  elseif (@formula==3)
    #z = fn2( @w1 * fn3(#z) - @w2 * fn4(#z) )
  endif
  #z = #z + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac034/47 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for intializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "Product" "Division" "Sum" "Rest"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac034m"
  bail = bail
  appfn1 = appfn1
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac034m {
; Translated by Mac from Fractint from mac034 until mac047 and added more
; parameters and options.
; This is a handy multipurpose formula.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = #z
loop:
  if (@formula==0)
    #z = fn2( @w1 * fn3(#z) * @w2 * fn4(#z) )
  elseif (@formula==1)
    #z = fn2( @w1 * fn3(#z) / @w2 * fn4(#z) )
  elseif (@formula==2)
    #z = fn2( @w1 * fn3(#z) + @w2 * fn4(#z) )
  elseif (@formula==3)
    #z = fn2( @w1 * fn3(#z) - @w2 * fn4(#z) )
  endif
  #z = #z + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac034/47 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for intializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "Product" "Division" "Sum" "Rest"
    hint = "Sign of the operations"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac034j"
  c = #pixel
  bail = bail
  appfn1 = appfn1
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

macs01j {
; Translated by Mac from Fractint from msin1 and added more parameters and options.
; This is a handy multipurpose formula.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = @c
loop:
  complex z2 = #z * #z
  if (@formula==0)
    #z = @fn1( @center - z2 ) * @fn1( z2 - @center ) + c
  elseif (@formula==1)
    #z = #z ^ @fn1( #z - @center ) / ( #z + @center ) + c
  endif
bailout:
  ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
  ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "Macs01 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param center
    caption = "Parameter 1"
    default = (1.0,0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "macs01" "macs02"
    hint = "Select formula"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
switch:
  type = "macs01m"
  bail = bail
  modini = modini
  bto = bto
  center = center
  formula = formula
  fn1 = fn1
}

macs01m {
; Translated by Mac from Fractint from msin1 and added more parameters and options.
; This is a handy multipurpose formula.
; Caracas, 16 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  complex c = #z
loop:
  complex z2 = #z * #z
  if (@formula==0)
    #z = @fn1( @center - z2 ) * @fn1( z2 - @center ) + c
  elseif (@formula==1)
    #z = #z ^ @fn1( #z - @center ) / ( #z + @center ) + c
  endif
bailout:
  ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
  ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "Macs01 Mandel set"
  param center
    caption = "Parameter 1"
    default = (1.0,0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "macs01" "macs02"
    hint = "Select formula"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
switch:
  type = "macs01j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  center = center
  formula = formula
  fn1 = fn1
}

Mac048j {
; Translated by Mac from Fractint from mac048 until mac055 and added more
; parameters and options.
; This is a handy multipurpose formula.
; Caracas, 20 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = @c
  float neg = 0.0
  float pos = 0.0
loop:
    if ( Real( #z ) < 0 )
      neg = neg + 1
    endif
    if ( Imag( #z ) < 0 )
      neg = neg + 1
    endif
    if ( Real( #z ) > 0 )
      pos = pos + 1
    endif
    if ( Imag( #z ) > 0 )
      pos = pos + 1
    endif
  if (@formula==0)
    #z = fn4( @w1 * neg * fn2( #z ) + @w2 * pos * fn3( #z ) )
  elseif (@formula==1)
    #z = fn4( @w1 * neg * fn2( #z ) - @w2 * pos * fn3( #z ) )
  elseif (@formula==2)
    #z = fn4( @w1 * neg * fn2( #z ) * @w2 * pos * fn3( #z ) )
  elseif (@formula==3)
    #z = fn4( @w1 * neg * fn2( #z ) / @w2 * pos * fn3( #z ) )
  endif
  #z = #z + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac048/55 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for intializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac048" "mac050" "mac052" "mac054"
    hint = "Formula converted"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac048m"
  bail = bail
  appfn1 = appfn1
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

Mac048m {
; Translated by Mac from Fractint from mac048 until mac055 and added more
; parameters and options.
; This is a handy multipurpose formula.
; Caracas, 20 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = #z
  float neg = 0.0
  float pos = 0.0
loop:
    if ( Real( #z ) < 0 )
      neg = neg + 1
    endif
    if ( Imag( #z ) < 0 )
      neg = neg + 1
    endif
    if ( Real( #z ) > 0 )
      pos = pos + 1
    endif
    if ( Imag( #z ) > 0 )
      pos = pos + 1
    endif
  if (@formula==0)
    #z = fn4( @w1 * neg * fn2( #z ) + @w2 * pos * fn3( #z ) )
  elseif (@formula==1)
    #z = fn4( @w1 * neg * fn2( #z ) - @w2 * pos * fn3( #z ) )
  elseif (@formula==2)
    #z = fn4( @w1 * neg * fn2( #z ) * @w2 * pos * fn3( #z ) )
  elseif (@formula==3)
    #z = fn4( @w1 * neg * fn2( #z ) / @w2 * pos * fn3( #z ) )
  endif
  #z = #z + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac048/55 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for intializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac048" "mac050" "mac052" "mac054"
    hint = "Formula converted"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param w1
    caption = "Weight 1"
    default = (1.0, 0.0)
  endparam
  param w2
    caption = "Weight 2"
    default = (1.0, 0.0)
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac048j"
  c = #pixel
  bail = bail
  appfn1 = appfn1
  modini = modini
  bto = bto
  w1 = w1
  w2 = w2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

mac400j {
; Written by Mac
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = @c
  float rx = 0.0
  float ry = 0.0
  float rz = 0.0
  float dx = 0.0
  float dy = 0.0
loop:
  rz = real( #z ) * real( #z ) * real( #z ) + imag( #z ) * imag( #z ) * imag( #z )
  if (@forma == 0)
    rx = cabs( @fn2( rz ) ) + real( #z )
    ry = cabs( @fn3( rz ) ) + imag( #z )
  elseif (@forma == 1)
    rx = rz + cabs( @fn2( real( #z ) ) )
    ry = rz + cabs( @fn3( imag( #z ) ) )
  endif
  if (rx < @eps)
    dx = dx * @fac1 + ( 1.0 - rx / @eps )
  endif
  if (ry < @eps)
    dy = dy * @fac1 + ( 1.0 - ry / @eps )
  endif
  #z = @fn4( dx + flip( dy ) ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac400 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param fac1
    default = 5.0
    caption = "Factor"
  endparam
  param eps
    default = 10.0
    caption = "Thereshold"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param forma
    caption = "Formula format"
    default = 0
    enum = "Fomr 1" "Form 2"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac400m"
  bail = bail
  forma = forma
  fac1 = fac1
  eps = eps
  modini = modini
  bto = bto
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

mac400m {
; Written by Mac
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = #z
  float rx = 0.0
  float ry = 0.0
  float rz = 0.0
  float dx = 0.0
  float dy = 0.0
loop:
  rz = real( #z ) * real( #z ) * real( #z ) + imag( #z ) * imag( #z ) * imag( #z )
  if (@forma == 0)
    rx = cabs( @fn2( rz ) ) + real( #z )
    ry = cabs( @fn3( rz ) ) + imag( #z )
  elseif (@forma == 1)
    rx = rz + cabs( @fn2( real( #z ) ) )
    ry = rz + cabs( @fn3( imag( #z ) ) )
  endif
  if (rx < @eps)
    dx = dx * @fac1 + ( 1.0 - rx / @eps )
  endif
  if (ry < @eps)
    dy = dy * @fac1 + ( 1.0 - ry / @eps )
  endif
  #z = @fn4( dx + flip( dy ) ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac400 Mandel set"
  param fac1
    default = 5.0
    caption = "Factor"
  endparam
  param eps
    default = 10.0
    caption = "Thereshold"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param forma
    caption = "Formula format"
    default = 0
    enum = "Fomr 1" "Form 2"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
  func fn4
    caption = "Fourth function"
    default = ident()
  endfunc
switch:
  type = "mac400j"
  c = #pixel
  bail = bail
  forma = forma
  fac1 = fac1
  eps = eps
  modini = modini
  bto = bto
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
  fn4 = fn4
}

mac401j {
; Written by Mac
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = @c
  float rx = 0.0
  float ry = 0.0
  float dx = 0.0
  float dy = 0.0
loop:
  if (@forma == 0 )
    rx = real( #z )
    ry = imag( #z )
  elseif (@forma == 1 )
    rx = real( #z ) / imag( #z )
    ry = imag( #z ) / real( #z )
  elseif (@forma == 2 )
    rx = real( #z ) * real( #z ) / imag( #z )
    ry = imag( #z ) * imag( #z ) / real( #z )
  elseif (@forma == 3 )
    rx = real( #z ) / ( imag( #z ) * real( #z ) )
    ry = imag( #z ) / ( imag( #z ) * real( #z ) )
  endif
  if (@calc == 0 )
    if (rx < @eps)
      dx = dx * @fac1 + ( 1.0 - rx / @eps )
    endif
    if (ry < @eps)
      dy = dy * @fac1 + ( 1.0 - ry / @eps )
    endif
  elseif (@calc == 1 )
    dx = @fac1 * ( 1.0 - rx / @eps )
    dy = @fac1 * ( 1.0 - ry / @eps )
  elseif (@calc == 2 )
    if (rx < @eps)
      dx = dx * @fac1 + ( 1.0 - rx / @eps ) * ( 1.0 - rx / @eps )
    endif
    if (ry < @eps)
      dy = dy * @fac1 + ( 1.0 - ry / @eps ) * ( 1.0 - ry / @eps )
    endif
  endif
  #z = @fn2( dx + flip( dy ) ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac401 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param fac1
    default = 5.0
    caption = "Factor"
  endparam
  param eps
    default = 10.0
    caption = "Thereshold"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param forma
    default = 0
    enum = "Form 1" "Form 2" "Form 3" "Form 4"
  endparam
  param calc
    default = 0
    enum = "Sum" "Last value" "Squared sum"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
switch:
  type = "mac401m"
  bail = bail
  forma = forma
  calc = calc
  fac1 = fac1
  eps = eps
  modini = modini
  bto = bto
  formula = formula
  fn1 = fn1
  fn2 = fn2
}

mac401m {
; Written by Mac
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  complex c = #z
  float rx = 0.0
  float ry = 0.0
  float dx = 0.0
  float dy = 0.0
loop:
  if (@forma == 0 )
    rx = real( #z )
    ry = imag( #z )
  elseif (@forma == 1 )
    rx = real( #z ) / imag( #z )
    ry = imag( #z ) / real( #z )
  elseif (@forma == 2 )
    rx = real( #z ) * real( #z ) / imag( #z )
    ry = imag( #z ) * imag( #z ) / real( #z )
  elseif (@forma == 3 )
    rx = real( #z ) / ( imag( #z ) * real( #z ) )
    ry = imag( #z ) / ( imag( #z ) * real( #z ) )
  endif
  if (@calc == 0 )
    if (rx < @eps)
      dx = dx * @fac1 + ( 1.0 - rx / @eps )
    endif
    if (ry < @eps)
      dy = dy * @fac1 + ( 1.0 - ry / @eps )
    endif
  elseif (@calc == 1 )
    dx = @fac1 * ( 1.0 - rx / @eps )
    dy = @fac1 * ( 1.0 - ry / @eps )
  elseif (@calc == 2 )
    if (rx < @eps)
      dx = dx * @fac1 + ( 1.0 - rx / @eps ) * ( 1.0 - rx / @eps )
    endif
    if (ry < @eps)
      dy = dy * @fac1 + ( 1.0 - ry / @eps ) * ( 1.0 - ry / @eps )
    endif
  endif
  #z = @fn2( dx + flip( dy ) ) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac401 Mandel set"
  param fac1
    default = 5.0
    caption = "Factor"
  endparam
  param eps
    default = 10.0
    caption = "Thereshold"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param forma
    default = 0
    enum = "Form 1" "Form 2" "Form 3" "Form 4"
  endparam
  param calc
    default = 0
    enum = "Sum" "Last value" "Squared sum"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = ident()
  endfunc
switch:
  type = "mac401j"
  c = #pixel
  bail = bail
  forma = forma
  calc = calc
  fac1 = fac1
  eps = eps
  modini = modini
  bto = bto
  formula = formula
  fn1 = fn1
  fn2 = fn2
}

mac402j {
; Written by Mac from fl-05-09 #1
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  #z = (-3.0) * #z / 5.0
  complex z3 = (0.0, 0.0)
  complex z4 = (0.0, 0.0)
  complex c = @c
loop:
  z3 = #z * #z * #z
  z4 = z3 * #z
  #z = -1 * ( #z * z4 + z4 * c - @fn2( #z ) ) / ( 5 * z4 + 4 * z3 * c - @fn3( #z ) )
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac402 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    default = cos()
  endfunc
switch:
  type = "mac402m"
  bail = bail
  modini = modini
  bto = bto
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

mac402m {
; Written by Mac from fl-05-09 #1
; Caracas, 31 de Marzo de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  #z = (-3.0) * #z / 5.0
  complex z3 = (0.0, 0.0)
  complex z4 = (0.0, 0.0)
  complex c = #z
loop:
  z3 = #z * #z * #z
  z4 = z3 * #z
  #z = -1 * ( #z * z4 + z4 * c - @fn2( #z ) ) / ( 5 * z4 + 4 * z3 * c - @fn3( #z ) )
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac402 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
  func fn3
    caption = "Third function"
    default = cos()
  endfunc
switch:
  type = "mac402j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

fern_M{ 
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = #pixel
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x ) / @al0 + flip(( @a0 * y ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x - @b1 * y + @k1 ) / @al1 + flip(( -@c1 * x + @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x - @b2 * y + @k2 ) / @al2 + flip(( -@c2 * x + @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  complex o3 = ( @d3 * x - @b3 * y + @k3 ) / @al3 + flip(( -@c3 * x + @a3 * y + @l3 ) / @al3 )
  float op3= |o3 - c|
  if (( op0 < op1 ) && ( op0 < op2 ) && ( op0 < op3 ))
    #z = o0
  elseif (( op1 < op0 ) && ( op1 < op2 )  && ( op1 < op3 ))
    #z = o1
  elseif (( op2 < op1 ) && ( op2 < op0 ) && ( op2 < op3 ))
    #z = o2
  elseif (( op3 < op0 ) && ( op3 < op1 ) && ( op3 < op2 ))
    #z = o3
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Fern Mandel set"
  center = (0.5, 5.0)
  magn = 0.25
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param a0
    default =  0.01000
  endparam
  param d0
    default =  0.16000
  endparam
  param a1 
    default =  0.85000
  endparam
  param b1
    default =  0.04000
  endparam
  param c1 
    default = -0.04000
  endparam
  param d1
    default =  0.85000
  endparam
  param a2
    default =  0.20000
  endparam
  param b2
    default = -0.26000
  endparam
  param c2
    default =  0.23000
  endparam
  param d2
    default =  0.22000
  endparam
  param a3
    default = -0.15000
  endparam
  param b3
    default =  0.28000
  endparam
  param c3
    default =  0.26000
  endparam
  param d3
    default =  0.24000
  endparam
  param al0
    default =  0.00160
  endparam
  param al1
    default =  0.72410
  endparam
  param k1
    default =  0.06400
  endparam
  param l1
    default = -1.36000
  endparam
  param al2
    default =  0.10380
  endparam
  param k2
    default = -0.41600
  endparam
  param l2
    default = -0.32000
  endparam
  param al3
    default = -0.10880
  endparam
  param k3
    default =  0.12320
  endparam
  param l3
    default =  0.06600
  endparam
switch:
  type = "fern_J"
  c = #pixel
  bail = bail
  a0 = a0
  d0 = d0
  a1 = a1 
  b1 = b1
  c1 = c1 
  d1 = d1
  a2 = a2
  b2 = b2
  c2 = c2
  d2 = d2
  a3 = a3
  b3 = b3
  c3 = c3
  d3 = d3
  a10 = al0
  a11 = al1
  k1 = k1
  l1 = l1
  al2 = al2
  k2 = k2
  l2 = l2
  al3 = al3
  k3 = k3
  l3 = l3
}

fern_J{ 
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = @c
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x ) / @al0 + flip(( @a0 * y ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x - @b1 * y + @k1 ) / @al1 + flip(( -@c1 * x + @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x - @b2 * y + @k2 ) / @al2 + flip(( -@c2 * x + @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  complex o3 = ( @d3 * x - @b3 * y + @k3 ) / @al3 + flip(( -@c3 * x + @a3 * y + @l3 ) / @al3 )
  float op3= |o3 - c|
  if (( op0 < op1 ) && ( op0 < op2 ) && ( op0 < op3 ))
    #z = o0
  elseif (( op1 < op0 ) && ( op1 < op2 )  && ( op1 < op3 ))
    #z = o1
  elseif (( op2 < op1 ) && ( op2 < op0 ) && ( op2 < op3 ))
    #z = o2
  elseif (( op3 < op0 ) && ( op3 < op1 ) && ( op3 < op2 ))
    #z = o3
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Fern Julia set"
  center = (0.5, 5.0)
  magn = 0.25
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param c
    caption = "Constant c"
    default = (0.0, 0.0)
    hint = "Julia constant."
  endparam
  param a0
    default =  0.01000
  endparam
  param d0
    default =  0.16000
  endparam
  param a1 
    default =  0.85000
  endparam
  param b1
    default =  0.04000
  endparam
  param c1 
    default = -0.04000
  endparam
  param d1
    default =  0.85000
  endparam
  param a2
    default =  0.20000
  endparam
  param b2
    default = -0.26000
  endparam
  param c2
    default =  0.23000
  endparam
  param d2
    default =  0.22000
  endparam
  param a3
    default = -0.15000
  endparam
  param b3
    default =  0.28000
  endparam
  param c3
    default =  0.26000
  endparam
  param d3
    default =  0.24000
  endparam
  param al0
    default =  0.00160
  endparam
  param al1
    default =  0.72410
  endparam
  param k1
    default =  0.06400
  endparam
  param l1
    default = -1.36000
  endparam
  param al2
    default =  0.10380
  endparam
  param k2
    default = -0.41600
  endparam
  param l2
    default = -0.32000
  endparam
  param al3
    default = -0.10880
  endparam
  param k3
    default =  0.12320
  endparam
  param l3
    default =  0.06600
  endparam
switch:
  type = "fern_M"
  bail = bail
  a0 = a0
  d0 = d0
  a1 = a1 
  b1 = b1
  c1 = c1 
  d1 = d1
  a2 = a2
  b2 = b2
  c2 = c2
  d2 = d2
  a3 = a3
  b3 = b3
  c3 = c3
  d3 = d3
  a10 = al0
  a11 = al1
  k1 = k1
  l1 = l1
  al2 = al2
  k2 = k2
  l2 = l2
  al3 = al3
  k3 = k3
  l3 = l3
}

tri_Sie_J{
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = @c
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x ) / @al0 + flip(( @a0 * y ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x ) / @al1 + flip(( @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x + @k2 ) / @al2 + flip(( @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  if ((op0 < op1) && (op0 < op2))
    #z = o0
  elseif ((op1 < op0) && (op1 < op2))
    #z = o1
  elseif ((op2 < op1) && (op2 < op0))
    #z = o2
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Triangle of Sierpinski Julia set"
  center = (0.8, 1.08)
  magn = 1.1
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param c
    caption = "Constant c"
    default = (0.0, 0.0)
    hint = "Julia constant."
  endparam
  param a0
    default = 0.50000
  endparam
  param d0
    default =  0.50000
  endparam
  param a1
    default =  0.50000
  endparam
  param d1
    default =  0.50000
  endparam
  param a2
    default =  0.50000
  endparam
  param d2
    default =  0.50000
  endparam
  param al0
    default =  0.25000
  endparam
  param al1
    default =  0.25000
  endparam
  param l1
    default = -0.50000
  endparam
  param al2
    default =  0.25000
  endparam
  param k2
    default = -0.50000
  endparam
  param l2
    default = -0.50000
  endparam
switch:
  type = "tri_Sie_M"
  bail = bail
  a0  = a0 
  d0  = d0 
  a1  = a1 
  d1  = d1 
  a2  = a2 
  d2  = d2 
  al0 = al0
  al1 = al1
  l1  = l1 
  al2 = al2
  k2  = k2 
  l2  = l2 
}

tri_Sie_M{
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = #pixel
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x ) / @al0 + flip(( @a0 * y ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x ) / @al1 + flip(( @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x + @k2 ) / @al2 + flip(( @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  if ((op0 < op1) && (op0 < op2))
    #z = o0
  elseif ((op1 < op0) && (op1 < op2))
    #z = o1
  elseif ((op2 < op1) && (op2 < op0))
    #z = o2
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Triangle of Sierpinski Mandel set"
  center = (0.8, 1.08)
  magn = 1.1
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param a0
    default = 0.50000
  endparam
  param d0
    default =  0.50000
  endparam
  param a1
    default =  0.50000
  endparam
  param d1
    default =  0.50000
  endparam
  param a2
    default =  0.50000
  endparam
  param d2
    default =  0.50000
  endparam
  param al0
    default =  0.25000
  endparam
  param al1
    default =  0.25000
  endparam
  param l1
    default = -0.50000
  endparam
  param al2
    default =  0.25000
  endparam
  param k2
    default = -0.50000
  endparam
  param l2
    default = -0.50000
  endparam
switch:
  type = "tri_Sie_J"
  c = #pixel
  bail = bail
  a0  = a0 
  d0  = d0 
  a1  = a1 
  d1  = d1 
  a2  = a2 
  d2  = d2 
  al0 = al0
  al1 = al1
  l1  = l1 
  al2 = al2
  k2  = k2 
  l2  = l2 
}

spi001_J{
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = @c
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x - @b0 * y + @k0 ) / @al0 + flip(( -@c0 * x + @a0 * y + @l0 ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x - @b1 * y + @k1 ) / @al1 + flip(( -@c1 * x + @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x - @b2 * y + @k2 ) / @al2 + flip(( -@c2 * x + @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  if ((op0 < op1) && (op0 < op2))
    #z = o0
  elseif ((op1 < op0) && (op1 < op2))
    #z = o1
  elseif ((op2 < op1) && (op2 < op0))
    #z = o2
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Spiral 001 Julia set"
  center = (-0.675, 5.6625)
  magn = 0.25
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param c
    caption = "Constant c"
    default = (0.0, 0.0)
    hint = "Julia constant."
  endparam
  param a0
    default =  0.78788
  endparam
  param b0
    default = -0.42424
  endparam
  param c0
    default  =  0.24242
  endparam
  param d0 
    default =  0.85985
  endparam
  param a1 
    default = -0.12121
  endparam
  param b1 
    default =  0.25758
  endparam
  param c1 
    default =  0.15152
  endparam
  param d1 
    default =  0.05303
  endparam
  param a2 
    default =  0.18182
  endparam
  param b2 
    default = -0.13636
  endparam
  param c2 
    default =  0.09091
  endparam
  param d2 
    default =  0.18182
  endparam
  param al0 
    default =  0.78030
  endparam
  param k0  
    default = -2.10953
  endparam
  param l0  
    default = -0.68305
  endparam
  param al1 
    default = -0.04545
  endparam
  param k1  
    default =  0.71119
  endparam
  param l1  
    default = -0.85149
  endparam
  param al2 
    default =  0.04545
  endparam
  param k2  
    default = -1.32039
  endparam
  param l2  
    default =  0.26818
  endparam
switch:
  type = "spi001_M"
  bail = bail
  a0  = a0 
  b0  = b0 
  c0  = c0 
  d0  = d0 
  a1  = a1 
  b1  = b1 
  c1  = c1 
  d1  = d1 
  a2  = a2 
  b2  = b2 
  c2  = c2 
  d2  = d2 
  al0 = al0
  k0  = k0 
  l0  = l0 
  al1 = al1
  k1  = k1 
  l1  = l1 
  al2 = al2
  k2  = k2 
  l2  = l2 
}

spi001_M{
; created by Marcelo Anelli using IfsInv
init:
  #z = #pixel
  complex c = #pixel
loop:
  float x = real( #z )
  float y = imag( #z )
  complex o0 = ( @d0 * x - @b0 * y + @k0 ) / @al0 + flip(( -@c0 * x + @a0 * y + @l0 ) / @al0 )
  float op0 = |o0 - c|
  complex o1 = ( @d1 * x - @b1 * y + @k1 ) / @al1 + flip(( -@c1 * x + @a1 * y + @l1 ) / @al1 )
  float op1 = |o1 - c|
  complex o2 = ( @d2 * x - @b2 * y + @k2 ) / @al2 + flip(( -@c2 * x + @a2 * y + @l2 ) / @al2 )
  float op2 = |o2 - c|
  if ((op0 < op1) && (op0 < op2))
    #z = o0
  elseif ((op1 < op0) && (op1 < op2))
    #z = o1
  elseif ((op2 < op1) && (op2 < op0))
    #z = o2
  endif
bailout:
  |#z| < @bail
default:
  title = "IFS Spiral 001 Mandel set"
  center = (-0.675, 5.6625)
  magn = 0.25
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 128.0
    min = 1
  endparam
  param a0
    default =  0.78788
  endparam
  param b0
    default = -0.42424
  endparam
  param c0
    default  =  0.24242
  endparam
  param d0 
    default =  0.85985
  endparam
  param a1 
    default = -0.12121
  endparam
  param b1 
    default =  0.25758
  endparam
  param c1 
    default =  0.15152
  endparam
  param d1 
    default =  0.05303
  endparam
  param a2 
    default =  0.18182
  endparam
  param b2 
    default = -0.13636
  endparam
  param c2 
    default =  0.09091
  endparam
  param d2 
    default =  0.18182
  endparam
  param al0 
    default =  0.78030
  endparam
  param k0  
    default = -2.10953
  endparam
  param l0  
    default = -0.68305
  endparam
  param al1 
    default = -0.04545
  endparam
  param k1  
    default =  0.71119
  endparam
  param l1  
    default = -0.85149
  endparam
  param al2 
    default =  0.04545
  endparam
  param k2  
    default = -1.32039
  endparam
  param l2  
    default =  0.26818
  endparam
switch:
  type = "spi001_J"
  c = #pixel
  bail = bail
  a0  = a0 
  b0  = b0 
  c0  = c0 
  d0  = d0 
  a1  = a1 
  b1  = b1 
  c1  = c1 
  d1  = d1 
  a2  = a2 
  b2  = b2 
  c2  = c2 
  d2  = d2 
  al0 = al0
  k0  = k0 
  l0  = l0 
  al1 = al1
  k1  = k1 
  l1  = l1 
  al2 = al2
  k2  = k2 
  l2  = l2 
}

mac403j {
; Written by Mac
; Caracas, 24 de Abril de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  ;#z = (-3.0) * #z / 5.0
  complex z3 = (0.0, 0.0)
  complex z4 = (0.0, 0.0)
  complex c = @c
loop:
  z3 = @fn1(#z)
  z4 = @fn2(#z)
  #z = z3 / (z3 * z4) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac403 Julia set"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
switch:
  type = "mac403m"
  bail = bail
  modini = modini
  bto = bto
  fn1 = fn1
  fn2 = fn2
}

mac403m {
; Written by Mac
; Caracas, 24 de Abril de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
  if @appfn1
    #z = @fn1(#z)
  endif
  ;#z = (-3.0) * #z / 5.0
  complex z3 = (0.0, 0.0)
  complex z4 = (0.0, 0.0)
  complex c = #pixel
loop:
  z3 = @fn1(#z)
  z4 = @fn2(#z)
  #z = z3 / (z3 * z4) + c
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac403 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 8.0
    min = 1
  endparam
  func fn1
    caption = "First function"
    default = ident()
  endfunc
  func fn2
    caption = "Second function"
    default = sin()
  endfunc
switch:
  type = "mac403j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  fn1 = fn1
  fn2 = fn2
}

Sierpinski03j { ; based on triangle of Sierpinski
  ; based from Sierpin3 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, 1 de Abril de 1999
    init:
    #z = #pixel
    complex cc = @c
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
	#z = x + flip( y )
    if ( x > @corte )
	  if ( y > @corte )
	    ; do nothing
	  else
	    #z = #z - 1
	  endif
    endif
	complex z1 = #z
	if ( y > @corte )
	  z1 = z1 - flip( (1, 0) )
	endif
    if (@mode == 0)
      #z = @fn1( z1 ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( z1 ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( z1 ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( z1 ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( z1 + cc )
    elseif (@mode == 5)
      #z = @fn1( z1 - cc )
    endif
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || \
    ((@bto == 1 ) && (real(#z) < @bail)) || \
    ((@bto == 2 ) && (imag(#z) < @bail)) || \
    ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
    ((@bto == 4 ) && (|#z + #pixel| < @bail) )
default:
  title = "Sierpinski 03 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski03m"
  bail = bail
  bto = bto
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski03m { ; based on triangle of Sierpinski
  ; based from Sierpin3 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, 1 de Abril de 1999
    init:
    #z = #pixel
    complex cc = #pixel
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
	#z = x + flip( y )
    if ( x > @corte )
	  if ( y > @corte )
	    ; do nothing
	  else
	    #z = #z - 1
	  endif
    endif
	complex z1 = #z
	if ( y > @corte )
	  z1 = z1 - flip( (1, 0) )
	endif
    if (@mode == 0)
      #z = @fn1( z1 ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( z1 ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( z1 ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( z1 ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( z1 + cc )
    elseif (@mode == 5)
      #z = @fn1( z1 - cc )
    endif
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || \
    ((@bto == 1 ) && (real(#z) < @bail)) || \
    ((@bto == 2 ) && (imag(#z) < @bail)) || \
    ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
    ((@bto == 4 ) && (|#z + #pixel| < @bail))
default:
  title = "Sierpinski 03 Mandel"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski03j"
  c = #pixel
  bail = bail
  bto = bto
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski04j { ; based on triangle of Sierpinski
  ; based from Sierpin4 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, 1 de Abril de 1999
    init:
    #z = #pixel
    complex cc = @c
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
	#z = x + flip( y )
    if ( x > @corte )
	  if ( y > @corte )
	    ; do nothing
	  else
	    #z = #z - x / abs( x )
	  endif
    endif
	complex z1 = #z
	if ( y > @corte )
	  z1 = z1 - flip( (1, 0) ) * y / abs( y )
	endif
    if (@mode == 0)
      #z = @fn1( z1 ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( z1 ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( z1 ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( z1 ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( z1 + cc )
    elseif (@mode == 5)
      #z = @fn1( z1 - cc )
    endif
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || \
    ((@bto == 1 ) && (real(#z) < @bail)) || \
    ((@bto == 2 ) && (imag(#z) < @bail)) || \
    ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
    ((@bto == 4 ) && (|#z + #pixel| < @bail) )
default:
  title = "Sierpinski 04 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski04m"
  bail = bail
  bto = bto
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

Sierpinski04m { ; based on triangle of Sierpinski
  ; based from Sierpin4 written for Fractint
  ; Note: this formula includes various formula written for Fractint
  ;       due  to the facilities of UF program.
  ; Caracas, 1 de Abril de 1999
    init:
    #z = #pixel
    complex cc = #pixel
  loop:
    float x = @lados * real(#z)
    float y = @lados * imag(#z)
	#z = x + flip( y )
    if ( x > @corte )
	  if ( y > @corte )
	    ; do nothing
	  else
	    #z = #z - x / abs( x )
	  endif
    endif
	complex z1 = #z
	if ( y > @corte )
	  z1 = z1 - flip( (1, 0) ) * y / abs( y )
	endif
    if (@mode == 0)
      #z = @fn1( z1 ) + @fn2( cc )
    elseif (@mode == 1)
      #z = @fn1( z1 ) - @fn2( cc )
    elseif (@mode == 2)
      #z = @fn1( z1 ) * @fn2( cc )
    elseif (@mode == 3)
      #z = @fn1( z1 ) / @fn2( cc )
    elseif (@mode == 4)
      #z = @fn1( z1 + cc )
    elseif (@mode == 5)
      #z = @fn1( z1 - cc )
    endif
  bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || \
    ((@bto == 1 ) && (real(#z) < @bail)) || \
    ((@bto == 2 ) && (imag(#z) < @bail)) || \
    ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
    ((@bto == 4 ) && (|#z + #pixel| < @bail) )
default:
  title = "Sierpinski 04 Mandel"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value. Higher bailout is more filled, suggested 4096"
    default = 4.0
    min = 1
  endparam
  param corte
    caption = "Cutting edges"
    hint = "Constant for retrieving the gasket."
    default = 1.0
  endparam
  param mode
    default = 0
    enum = "Add" "Rest" "Multiply" "Divide" "only f1 to sum" "only f1 to rest"
    hint = "Modes Multiply and Divide works best with functions applied."
  endparam
  param lados
    default = 2.0
    caption = "Convergence"
    hint = "Factor of convergence of the gasket. Shift from 2.0 means more chaotic points."
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation"
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "Sierpinski04j"
  c = #pixel
  bail = bail
  bto = bto
  corte = corte
  mode = mode
  lados = lados
  fn1 = fn1
  fn2 = fn2
}

mac404j { ; Written by Marcelo Anelli C.
; Sabana de Mendoza, 8 de mayo de 1999
init:
  if (@modini==0)
    #z = #pixel
  elseif (@modini==1)
    #z = #pixel * #pixel
  elseif (@modini==2)
    #z = exp(#pixel)
  elseif (@modini==3)
    #z = exp(#pixel)/#pixel
  elseif (@modini==4)
    #z = (1.0,0.0)/#pixel
   endif
  if @appfn1
   #z = @fn1(#z)
  endif
  complex za = (0.0, 0.0)
  complex zb = (0.0, 0.0)
  complex c = @c
loop:
  if (@modo == 0)
    za = #z * #pixel
    zb = #z * |#z|
  elseif (@modo == 1)
    za = #z + #pixel
    zb = #z + |#z|
  elseif (@modo == 1)
    za = #z / #pixel
    zb = #z + |#z|
  endif
  if (@forma==0)
    #z = @fn1( za ) * @fn2( zb ) + @fn3( c )
  elseif (@forma==1)
    #z = @fn1( za ) + @fn2( zb ) + @fn3( c )
  elseif (@forma==2)
    #z = sqr(@fn1( za ) + @fn2( zb )) + @fn3( c )
  elseif (@forma==3)
    #z = (@fn1( za ) / @fn2( zb )) + @fn3( c )
  elseif (@forma==4)
    #z = sqr(@fn1( za ) / @fn2( zb )) + @fn3( c )
  endif
bailout:
  ((@bto == 0 ) && (|#z| < @bail)) || \
  ((@bto == 1 ) && (real(#z) < @bail)) || \
  ((@bto == 2 ) && (imag(#z) < @bail)) || \
  ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
  ((@bto == 4 ) && (|#z + #pixel| < @bail) )
default:
  title = "Mac404 Julia"
  param c
    caption = "Julia constant"
    default = (0.0, 0.0)
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param forma
    default = 0
	caption = "Formula type"
	enum = "Multiplication" "Adding" "Sqr add" "Division" "Sqr div"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param modo
    default = 0
	caption = "Calcul. mode"
	enum = "Type 0" "Type 1" "Type 2"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation."
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to second part of equation."
  endfunc
  func fn3
    caption = "Function 3"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "mac404m"
  modini = modini
  bail = bail
  forma = forma
  bto = bto
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

mac404m { ; Written by Marcelo Anelli C.
; Sabana de Mendoza, 8 de mayo de 1999
init:
  if (@modini==0)
    #z = #pixel
  elseif (@modini==1)
    #z = #pixel * #pixel
  elseif (@modini==2)
    #z = exp(#pixel)
  elseif (@modini==3)
    #z = exp(#pixel)/#pixel
  elseif (@modini==4)
    #z = (1.0,0.0)/#pixel
   endif
  if @appfn1
   #z = @fn1(#z)
  endif
  complex za = (0.0, 0.0)
  complex zb = (0.0, 0.0)
  complex c = #pixel
loop:
  if (@modo == 0)
    za = #z * #pixel
    zb = #z * |#z|
  elseif (@modo == 1)
    za = #z + #pixel
    zb = #z + |#z|
  elseif (@modo == 1)
    za = #z / #pixel
    zb = #z + |#z|
  endif
  if (@forma==0)
    #z = @fn1( za ) * @fn2( zb ) + @fn3( c )
  elseif (@forma==1)
    #z = @fn1( za ) + @fn2( zb ) + @fn3( c )
  elseif (@forma==2)
    #z = sqr(@fn1( za ) + @fn2( zb )) + @fn3( c )
  elseif (@forma==3)
    #z = (@fn1( za ) / @fn2( zb )) + @fn3( c )
  elseif (@forma==4)
    #z = sqr(@fn1( za ) / @fn2( zb )) + @fn3( c )
  endif
bailout:
  ((@bto == 0 ) && (|#z| < @bail)) || \
  ((@bto == 1 ) && (real(#z) < @bail)) || \
  ((@bto == 2 ) && (imag(#z) < @bail)) || \
  ((@bto == 3 ) && (|#z - #pixel| < @bail)) || \
  ((@bto == 4 ) && (|#z + #pixel| < @bail) )
default:
  title = "Mac404 Mandel"
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param forma
    default = 0
	caption = "Formula type"
	enum = "Multiplication" "Adding" "Sqr add" "Division" "Sqr div"
  endparam
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param appfn1
    default = true
    caption = "Apply fn1"
    hint = "Apply function fn1 for initializing parameters"
  endparam
  param modo
    default = 0
	caption = "Calcul. mode"
	enum = "Type 0" "Type 1" "Type 2"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Real bailout" "Imaginary bailout" "Adding pixel" "Subtracting pixel"
  endparam
  func fn1
    caption = "Function 1"
    default = ident()
    hint = "Function applied to first part of equation."
  endfunc
  func fn2
    caption = "Function 2"
    default = ident()
    hint = "Function applied to second part of equation."
  endfunc
  func fn3
    caption = "Function 3"
    default = ident()
    hint = "Function applied to constant c"
  endfunc
switch:
  type = "mac404j"
  c = #pixel
  modini = modini
  bail = bail
  forma = forma
  bto = bto
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac074m {
; Translated by Mac from Fractint mac074 to mac081 and added more parameters
; and options.
; This is a handy multipurpose formula. You can obtain from mandelbrot to cubic
; equation and lots or more, with only two formulas: one for Mandel set and
; one for Julia set
; Caracas, 31 de Agosto de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
	#z = @fn1(#z)
  complex c = #pixel
  complex t1 = @par1
  complex t2 = 1 - @par1
  complex oldz = 0
  complex temp = 0
loop:
  temp = #z
  if (@formula==0)
    #z = t1 * @fn2(#z) + t2 * @fn3(oldz) + c
  elseif (@formula==1)
    #z = t1 * @fn2(#z) - t2 * @fn3(oldz) + c
  elseif (@formula==2)
    #z = t1 * @fn2(#z) * t2 * @fn3(oldz) + c
  elseif (@formula==3)
    #z = t1 * @fn2(#z) / t2 * @fn3(oldz) + c
  endif
  oldz = temp
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac074 Mandel set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac074" "mac076" "mac078" "mac080"
    hint = "Type of formula"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param par1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param par2
    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
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac074j"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  par1 = par1
  par2 = par2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

Mac074j {
; Translated by Mac from Fractint mac074 to mac081 and added more parameters
; and options.
; This is a handy multipurpose formula. You can obtain from mandelbrot to cubic
; equation and lots or more, with only two formulas: one for Mandel set and
; one for Julia set
; Caracas, 31 de Agosto de 1999
init:
    if (@modini==0)
      #z = #pixel
    elseif (@modini==1)
      #z = #pixel * #pixel
    elseif (@modini==2)
      #z = exp(#pixel)
    elseif (@modini==3)
      #z = exp(#pixel)/#pixel
    elseif (@modini==4)
      #z = (1.0,0.0)/#pixel
    endif
	#z = @fn1(#z)
  complex c = @c
  complex t1 = @par1
  complex t2 = 1 - @par1
  complex oldz = 0
  complex temp = 0
loop:
  temp = #z
  if (@formula==0)
    #z = t1 * @fn2(#z) + t2 * @fn3(oldz) + c
  elseif (@formula==1)
    #z = t1 * @fn2(#z) - t2 * @fn3(oldz) + c
  elseif (@formula==2)
    #z = t1 * @fn2(#z) * t2 * @fn3(oldz) + c
  elseif (@formula==3)
    #z = t1 * @fn2(#z) / t2 * @fn3(oldz) + c
  endif
  oldz = temp
bailout:
    ((@bto == 0 ) && (|#z| < @bail)) || ((@bto == 1 ) && (|#z - #pixel| < @bail)) || \
       ((@bto == 2 ) && (|#z + #pixel| < @bail))
default:
  title = "mac074 Julia set"
  param modini
    caption = "Init method"
    default = 0
    enum = "pixel" "pixel^2" "exp(pixel)" "exp(#pixel)/#pixel" "1/#pixel"
  endparam
  param bto
    default = 0
    caption = "Bailot type"
    enum = "Normal" "Adding pixel" "Subtracting pixel"
  endparam
  param formula
    default = 0
    enum = "mac074" "mac076" "mac078" "mac080"
    hint = "Type of formula"
  endparam
  param bail
    caption = "Bailout"
    hint = "Select your bailout value."
    default = 4.0
    min = 1
  endparam
  param c
    caption = "C constant"
	default = (0.0, 0.0)
  endparam
  param par1
    caption = "Parameter 1"
    default = (1.0, 0.0)
  endparam
  param par2
    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
  func fn3
    caption = "Third function"
    default = ident()
  endfunc
switch:
  type = "mac074m"
  c = #pixel
  bail = bail
  modini = modini
  bto = bto
  par1 = par1
  par2 = par2
  formula = formula
  fn1 = fn1
  fn2 = fn2
  fn3 = fn3
}

sierpinski4m {
; Written by Marcelo Anelli
; Caracas, Septiembre de 1999
init:
  complex z = pixel

loop:
  IF (imag(z)>@corte)
    IF (real(z)>@corte)
      z = @factor*real(z)-1 + flip(@factor*imag(z)-1)
	ELSE
      z = @factor*real(z) + flip(@factor*imag(z)-1)
	ENDIF
  ELSE
    IF (real(z)>@corte)
      z = @factor*real(z)-1 + flip(@factor*imag(z))
	ELSE
      z = @factor*real(z) + flip(@factor*imag(z))
	ENDIF
  ENDIF
  z = @fn1( z )

bailout:
  |z| < @bailout

default:
  title = "Sierpinksi Quadre, Mandel"
  center = (0.4, 0.4)
  magn = 1.1538
  maxiter = 149
  param bailout
    caption = "Bailout value"
    default = 127
    min = 1
  endparam
  param factor
    caption = "Factor Transformation"
	default = 1.0
  endparam
  param corte
    caption = "Cutting edges"
	default = 0.5
  endparam
  func fn1
    caption = "Function applied"
	default = ident()
  endfunc
switch:
  type = "sierpinski4j"
  c = #pixel
  factor = factor
  bailout = bailout
  corte = corte
  fn1 = fn1
}

sierpinski4j {
; Written by Marcelo Anelli
; Caracas, Septiembre de 1999
init:
  complex z = pixel

loop:
  IF (imag(z)>@corte)
    IF (real(z)>@corte)
      z = @factor*real(z)-1 + flip(@factor*imag(z)-1)
	ELSE
      z = @factor*real(z) + flip(@factor*imag(z)-1)
	ENDIF
  ELSE
    IF (real(z)>@corte)
      z = @factor*real(z)-1 + flip(@factor*imag(z))
	ELSE
      z = @factor*real(z) + flip(@factor*imag(z))
	ENDIF
  ENDIF
  z = z + @c
  z = @fn1( z )

bailout:
  |z| < @bailout

default:
  title = "Sierpinksi Quadre, Julia"
  center = (0.4, 0.4)
  magn = 1.1538
  maxiter = 149
  param bailout
    caption = "Bailout value"
    default = 127
    min = 1
  endparam
  param factor
    caption = "Factor Transformation"
	default = 1.0
  endparam
  param corte
    caption = "Cutting edges"
	default = 0.5
  endparam
  param c
    caption = "Julia constant"
	default = (0.0, 0.0)
  endparam
  func fn1
    caption = "Function applied"
	default = ident()
  endfunc
switch:
  type = "sierpinski4m"
  factor = factor
  bailout = bailout
  corte = corte
  fn1 = fn1
}