comment {

These are Modified Carr formulas based on the original with
the gracious permission of Dr. Robert Carr. Utmost care has
been taken to preserve the original formulation fully intact. 
Several "User Friendly" additions have been made which allow 
the user to alter the fractal through the following parameters:

Scale: 
Use this parameter to reduce or enlarge the image 
without having to zoom the entire image.Depending
on the complexity of Z, larger numbers may be needed
to produce desired scale.Begin with 2, 4, 6, 8, etc. 

Bailout:
The user may now change this parameter as desired.
In a few cases, more than one bailout may be chosen.

Functions(3-4):
In most cases, extreme changes in form may be achieved
by varying one or more of these formula functions.

NOTE: In the interest of faster calculation speeds,
the original "Maxiter" (maximum iterations) default
has been lowered from 500 to 100. I found that, in 99.99%
of instances there was no detectable difference, and in the
0.01% of instances with a difference, these were very small.

My gratefull thanks go to Dr. Robert Carr, both for writing 
such great formulations and for graciously permitting me to
add what little functionality my small knowledge allows. 

I hope that you will find these modifications helpful.
}

===================================================================

Carr1400S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (#pixel/0.999)/@scale
  c = sqrt(flip(#pixel))
  
loop:
  z = fn1(fn2(fn3(sqr(conj(z))+c-1.5)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1400S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.9
  center = (0,.5)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1401S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (#pixel/0.999)/@scale
  c = sqrt(#pixel)

loop:
  z = fn1(fn2(fn3(z^2.09+c-0.5)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1401S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1402S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia (I think??)

init:
  z = #pixel/@scale
  c = sqrt(#pixel/5)

loop:
  z = fn1(fn2(fn3(z*z+(c-1))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1402S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.15,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1403S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified T.J.E. Reed formula
; Julia

init:
  c = z = #pixel/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/3+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1403S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1404S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified T.J.E. Reed formula
; Julia

init:
  c = z = #pixel/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/6+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1404S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1405S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified T.J.E. Reed formula
; Julia

init:
  c = z = #pixel/@scale
  
loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(sqrt(flip(c)))))*real(sqrt(conj(c)))/6+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1405S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1406S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia (?) that produces math errors.
; Modified T.J.E. Reed formula

init:
  c = z = (#pixel/0.995)/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (0.5+flip(imag(sqrt(flip(c)))))*real(sqrt(conj(c)))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1406S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1407S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above

init:
  z = (#pixel/0.995)/@scale
  c = (-0.74543,0.2)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (0.5+flip(imag(sinh(sqrt(flip(c))))))*real(sqrt(conj(tan(c))))/7+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1407S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1408S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above

init:
  z = (#pixel/0.995)/@scale
  c = (-1.09989,0.595927)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (0.5+flip(imag(sinh(sqrt(flip(c))))))*real(sqrt(conj(tan(c))))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1408S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1409S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (#pixel/0.995)/@scale
  c = 1/#pixel

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(cosh(sqrt(flip(c))))))*real(sqrt(conj(tanh(c))))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1409S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1410S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above

init:
  z = (#pixel-1)/@scale
  c = sqr(1/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+(0.3,0.6))))
  c = (1+flip(imag(cosh(sqrt(conj(c))))))*real(sqrt(conj(tanh(c))))/7.9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1410S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1411S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = #pixel/@scale
  c = sqrt(sqr(z^4))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(cosh(sqrt(conj(c))))))*real(sqrt(conj(tanh(c))))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1411S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1412S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = #pixel/@scale
  c = (-0.7549,0.209981)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+imag(conj(sqrt(c))))*(real(conj(sqrt(c))))/9+tan(z-0.2)    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1412S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1413S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = #pixel/@scale
  c = (-0.745,0.213)

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = (1+imag(conj(sqrt(c))))*(real(conj(sqrt(c))))/6+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1413S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1414S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (tan(#pixel))/@scale
  c = conj((-0.89895,0.377913))

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = (1+imag(conj(sqrt(c))))*(real(conj(sqrt(c))))/6+z

bailout:
  |z| <= @bailout

default:
  title = "Carr 1414S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.8
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1415S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (tan(#pixel))/@scale
  c = asinh((-0.89895,0.377913))

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = (1+imag(conj(sqrt(c))))*(real(conj(sqrt(c))))/6+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1415S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1416S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (tan(#pixel))/@scale
  c = 1.224*(-0.89895,0.577913)

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = (1+imag(conj(sqrt(c))))*(real(conj(sqrt(c))))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1416S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.9
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1417S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (tan(conj(cos(#pixel))))/@scale
  c = 1.224*(1.2,-0.09)

loop:
  z = fn1(fn2(fn3(z^2+c)))
  c = cotan(1+imag(conj(sqrt(c))))*tan(real(conj(sqrt(c))))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1417S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1418S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Ditto above.

init:
  z = (tan(conj(cos(#pixel))))/@scale
  c = 1.224*(abs(imag(#pixel)))

loop:
  z = fn1(fn2(fn3(z^2+sin(#pixel))))
  c = cotan(1+imag(1/conj(sqrt(c))))*(real(conj(sqrt(c))))/9+z

bailout:
  |z| <= @bailout

default:
  title = "Carr 1418S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.6
  center = (-1.55,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1419S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia frm ?

init:
  z = #pixel/@scale
  c = 1/#pixel

loop:
  z = fn1(fn2(fn3(z*z+(-0.7564,0.21978)+sin(sqrt(z-0.51)))))
  c = real(sqrt(c))*flip(imag(sqrt(c)))/9+z    

bailout:
  |z| <= @bailout

default:
  title = "Carr 1419S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  center = (-.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1420S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia ?

init:
  z = (conj(cos(#pixel)))/@scale
  
loop:
  z = fn1(fn2(fn3(((z*z)+0.5)+(1/log(real(#pixel*#pixel-1.5))-1.55))))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1420S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .85
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1421S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Julia

init:
  z = #pixel/@scale
  c = (-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(sqr(z*z)+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= @bailout

default:
  title = "Carr 1421S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1422S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Julia

init:
  z = #pixel/@scale
  c = (-0.7456,0.2)

loop:
  z = fn1(fn2(fn3((z*z)+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= @bailout

default:
  title = "Carr 1422S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1423S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Julia

init:
  z = #pixel/@scale
  c = sqr((-0.7456,0.42362))

loop:
  z = fn1(fn2(fn3((z*z)+(0.4,0.35))))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= @bailout

default:
  title = "Carr 1423S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1424S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Julia

init:
  z = ((1-#pixel)/2.5^0.75)/@scale
  c = sqr((-0.7456,0.42362))

loop:
  z = fn1(fn2(fn3((z*z)+(-1.76,-0.014))))
  c=(1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= @bailout

default:
  title = "Carr 1424S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 4
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1425S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Manowar

init:
  z = (#pixel+(1.099,0))/@scale
  z1 = z, c=#pixel
  
  IF (real(1/#pixel) <= 0)
    k1 = 4
  ELSE
    k1 = 0
  ENDIF
  IF (1/#pixel > 0)
    k2 = 1
  ELSE
    k2 = 0
  ENDIF
  
  t = k1+real(1/#pixel)*k2

loop:
  oldz = z
  z = fn1(fn2(fn3(sqr(oldz)+z1+c)))
  z1 = oldz
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= t*@bailout

default:
  title = "Carr 1425S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 3
  center = (-1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1426S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Manowar

init:
  z = (cotanh(#pixel)+(1.099,0))/@scale
  z1 = z
  c = sin(#pixel)
  
  IF (real(1/#pixel) <= 0)
    k1 = 4
  ELSE
    k1 = 0
  ENDIF
  IF (#pixel > 0)
    k2 = 1
  ELSE
    k2 = 0
  ENDIF
  
  t = k1+real(#pixel)*k2

loop:
  oldz = z
  z = fn1(fn2(fn3(sqr(oldz)+z1+c)))
  z1 = oldz
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= t*@bailout

default:
  title = "Carr 1426S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (-1.7,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1427S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified BUILTN.FRM Manowar

init:
  z = (cotan(#pixel)+(1/#pixel))/@scale
  z1 = z
  c = sin(#pixel)
  
  IF (real(1/#pixel) <= 0)
    k1 = 4
  ELSE
    k1 = 0
  ENDIF
  IF (#pixel > 0)
    k2 = 1
  ELSE
    k2 = 0
  ENDIF
  
  t = k1+real(#pixel)*k2

loop:
  oldz = z
  z = fn1(fn2(fn3(sqr(oldz)+z1+c)))
  z1 = oldz
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= t*@bailout

default:
  title = "Carr 1427S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.5
  center = (-1.7,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1428S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia,Modified BUILTN.FRM Julia

init:
  z = #pixel /@scale
  c = 1/#pixel
  
  IF (real(1/#pixel) <=0 )
    k1 = 4
  ELSE
    k1 = 0
  ENDIF
  IF (1/#pixel > 0)
    k2 = 1
  ELSE
    k2 = 0
  ENDIF
  
  t = k1+real(#pixel)*k2

loop:
  z = fn1(fn2(fn3(sqr(z)+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z 

bailout:
  |z| <= t*@bailout

default:
  title = "Carr 1428S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 3.8
  center = (-.85,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 1
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1429S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = ((-0.7456,0.2))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z

bailout:
  |z| <= @bailout

default:
  title = "Carr 1429S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1430S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; "Dog Bone" Julia

init:
  z = #pixel/@scale
  c = 1/(-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = tan((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1430S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1431S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified Julzpower from BUILTN.FRM

init:
  z = (#pixel+(p1))/@scale
  
  IF (|p1| <= 0)
    c = (.3,.6) + p1
  ELSE
    c = p1
  ENDIF
  IF (|p2| <= 0)
    m = 2 + p2
  ELSE
    m = p2
  ENDIF

loop:
  z = fn1(fn2(fn3(z^real(m)+c)))
  c = tan((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1431S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1432S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel+(1.099,0))/@scale
  c = (-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1432S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (-1.1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1433S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel+(1.099,0))/@scale
  c = (-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(sqr(z)+c)))
  z = z+c/4

bailout:
  |z| <= @bailout

default:
  title = "Carr 1433S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (-1.1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1434S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (sqr(sqr((1-#pixel)/2.5^0.75)))/@scale
  c = (-0.7456,0.212)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  z = z+c/4

bailout:
  |z| <= @bailout

default:
  title = "Carr 1434s"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1435S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (sqr(sqr(sqr((1-#pixel)/2.5^0.75))))/@scale
  c = (-0.7456,0.212)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  z = z+c/4

bailout:
  |z| <= @bailout

default:
  title = "Carr 1435S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .7
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1436S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Interesting Julia manipulation.

init:
  z = #pixel/@scale
  c = 0.25*(-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(sqr(z)+c*4)))
  z = z+c/1.3

bailout:
  |z| <= @bailout

default:
  title = "Carr 1436S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1437S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; What-ja-macallit ?

init:
  z = #pixel/@scale
  c = (0.5/#pixel)-(-0.7456,0.2)

loop:
  z = fn1(fn2(fn3(sqr(z)+(c-1.2))))
  z = z+c/2

bailout:
  |z| <= @bailout

default:
  title = "Carr 1437S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1438S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Seems to make spiders, julias & mandels.

init:
  z = #pixel/@scale
  c = (0.3/#pixel)-(0.342,1.97)

loop:
  z = fn1(fn2(fn3(sqr(z)+1/log(c))))
  z = z+c/2

bailout:
  |z| <= @bailout

default:
  title = "Carr 1438S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1439S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (1-(1/#pixel)^3.13)/@scale
  c = tan(abs(#pixel))

loop:
  z = fn1(fn2(fn3(sqr(z)+(c^(1/-#pixel)))))
  z = z+c/2

bailout:
  |z| <= @bailout

default:
  title = "Carr 1439S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.25
  center = (.8,.4)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1440S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel-(1/#pixel)^4.13)/@scale
  c = (-0.7456,0.2)

loop:
  z = sqr(z)+c
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)
  z = fn1(fn2(fn3(z+c/2)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1440S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.25
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1441S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (conj(#pixel)-(1/#pixel)^4.13)/@scale
  c = (-0.7456,0.2)

loop:
  z = sqr(z)+c
  c = ((1+sin(imag(sqrt(-c))))*sin(real(sqrt(-c)))/9+z)
  z = fn1(fn2(fn3(z+c/2)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1441S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.25
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1442S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Fractal Fender C Modified.
; Edited for Fracint v. 20 by George Martin, 10/98

init:
  z = 0.224
  x = |z|
  c = (-0.7456,0.2)

loop:
  IF (x > 1)
    z = fn1(fn2(fn3(cosh(z)+c)))
  ENDIF
  z = fn1(fn2(fn3(sqr(z)+(#pixel/@scale))))
  x = |z|

bailout:
  |z| <= @bailout

default:
  title = "Carr 1442S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1443S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Fractal Fender C Modified.
; Edited for Fracint v. 20 by George Martin, 10/98

init:
  z = 0.224
  x = |z|
  c = (-0.7456,0.2)

loop:
  IF (x > 1)
    z = fn1(fn2(fn3(cosh(z)+c)))
  ENDIF

  z = fn1(fn2(fn3(sqr(z)+(#pixel/@scale))))
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)
  x = |z|

bailout:
  |z| <= @bailout

default:
  title = "Carr 1443S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (-.6,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1444S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Pseudo Spider?

init:
  z = (sin(#pixel+1))/@scale
  c = z-(conj(1/#pixel^2*#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (z/1.05)+c/2

bailout:
  |z| <= @bailout

default:
  title = "Carr 1444S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 7
  center = (.47,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1445S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Spider variant.

init:
  z = (sin(#pixel+1))/@scale
  c = (-0.7456,0.4)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = (z/1.0489)+c/2
  z = 1.34*(-z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1445S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 3
  center = (-.3,-.3)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1446S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sin(#pixel+1))/@scale
  c = #pixel

loop:
  z = fn1(fn2(fn3(z*z+c-1.49)))
  c = ((4-flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1446S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1447S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (sin(#pixel*#pixel+1))/@scale
  c = #pixel

loop:
  z = fn1(fn2(fn3(z*z+c-1.49)))
  c = ((4-flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1447S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.4
  center = (.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1448S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (cotan(#pixel*#pixel+1))/@scale
  c = tan(#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c-1.49)))
  c = ((4-flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1448S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.9
  center = (.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1449S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (cotan(#pixel*#pixel+1))/@scale
  c = sqr(1/#pixel*0.91/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c-1.49)))
  c = ((4-flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1449S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 3.5
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1450S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (conj(#pixel*#pixel+1))/@scale
  c = sqr(flip((0.4,0.35)))

loop:
  z = fn1(fn2(fn3((z*z)+c-1.49)))
  c = ((4-flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1450S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1451S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Creates Julia.

init:
  z = (cotan(#pixel*#pixel+1))/@scale
  c = sqr(1/#pixel*0.91/#pixel)

loop:
  z = fn1(fn2(fn3((z*z)+c-1.49)))
  c = 1/z*z+1/#pixel

bailout:
  |z| <= @bailout

default:
  title = "Carr 1451S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .9
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1452S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = (flip(#pixel*#pixel))/@scale
  c = conj(#pixel*#pixel)

loop:
  z = fn1(fn2(fn3((z*z)+c-1.49)))
  c = 1/z*z+1/#pixel

bailout:
  |z| <= @bailout

default:
  title = "Carr 1452S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1453S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified ManP1IMJ

init:
  z = #pixel/@scale
  c = (0.3,0.6)

loop:
  z = sqr(z)
  z = fn1(fn2(fn3(z+c+imag(z))))
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1453S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1454S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified ManP1IMJ

init:
  z = (flip(#pixel))/@scale
  c = (0.3,0.6)

loop:
  z = sqr(z)
  z = fn1(fn2(fn3(z+c+real(z))))
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1454S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1455S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified ManP1IMJ

init:
  z = #pixel/@scale
  c = sqr((0.3,0.6))

loop:
  z = z*z
  z = fn1(fn2(fn3(z+c+sin(z))))
  c = z+c/2

bailout:
  |z| <= @bailout

default:
  title = "Carr 1455S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1456S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Modified ManP1IMJ

init:
  z = #pixel/@scale
  c = ((-0.7456,0.2))

loop:
  z = z*z
  z = fn1(fn2(fn3(z+c+sin(z))))
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1456S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1457S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((1-#pixel)/2^#pixel)/@scale
  c = #pixel

loop:
  z = sqr(z)
  z = fn1(fn2(fn3(z+sin(z)+c)))
  c = z+c/2
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1457S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.7
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1458S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale
  c = (0.9/-3.48)-0.88/#pixel

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = z+c/2.125
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1458S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1459S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (conj(cos(#pixel)))/@scale
  c = (-0.6456,0.33)

loop:
  z = fn1(fn2(fn3(z*z+(c))))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1459S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1460S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = sinh((0.3,0.6))

loop:
  z = fn1(fn2(fn3(conj(sqr(z)+c)*conj(z+0.5)*conj(c-0.95))))
  c = z+c/2.125

bailout:
  |z| <= @bailout

default:
  title = "Carr 1460S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1461S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = tanh(#pixel)

loop:
  z = fn1(fn2(fn3(conj(sqr(z)+c)*conj(z+0.75)*conj(c-0.95))))
  c = z+c/2.125

bailout:
  |z| <= @bailout

default:
  title = "Carr 1461S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1462S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = cosh(#pixel)

loop:
  z = fn1(fn2(fn3(conj(sqr(z)+c)*conj(z+1)*conj(c-0.95))))
  c = z+c/2.125

bailout:
  |z| <= @bailout

default:
  title = "Carr 1462S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (-.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1463S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000

init:
  z = #pixel/@scale
  c = cosh(#pixel)

loop:
  z = fn1(fn2(fn3(conj(sqr(z)+c)*conj(z+1)*conj(c-0.95))))
  c = z+c/6.125

bailout:
  |z| <= @bailout

default:
  title = "Carr 1463S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (-.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1464S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass modified Mandel

init:
  z = c = #pixel/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1464S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (-.3,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1465S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = #pixel/@scale

loop:
  z = fn1(fn2(fn3(z*z+(-0.7456,0.2))))

bailout:
  |cos(z)| <= @bailout || |conj(z)| <= @bailout2

default:
  title = "Carr 1465S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam
param bailout2
  caption = "Bailout 2"
  default = 4
  hint = "Select a 2nd bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1466S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass InvMandel

init:
  z = c = (1/#pixel)/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |cabs(z)| <= @bailout || |asin(z)| <= @bailout2 || |sin(z)| <= @bailout3

default:
  title = "Carr 1466S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (1,.001)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a 1st bailout value for the formula."
endparam
param bailout2
  caption = "Bailout 2"
  default = 4
  hint = "Select a 2nd bailout value for the formula."
endparam
param bailout3
  caption = "Bailout 3"
  default = 4
  hint = "Select a 3rd bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1467S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; ConjMandel creates Faceted Glass

init:
  z = c = (conj(#pixel))/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |cabs(z)| <= @bailout || |asin(z)| <= @bailout || |sin(z)| <= @bailout

default:
  title = "Carr 1467S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (-.5,.001)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam
param bailout2
  caption = "Bailout 2"
  default = 4
  hint = "Select a 2nd bailout value for the formula."
endparam
param bailout3
  caption = "Bailout 3"
  default = 4
  hint = "Select a 3rd bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1468S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; TanMandel creates Faceted Glass

init:
  z = c = (tan(#pixel))/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |cabs(z)| <= @bailout || |cos(z)| <= @bailout || |sinh(z)| <= @bailout

default:
  title = "Carr 1468S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (-.25,.001)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam
param bailout2
  caption = "Bailout 2"
  default = 4
  hint = "Select a 2nd bailout value for the formula."
endparam
param bailout3
  caption = "Bailout 3"
  default = 4
  hint = "Select a 3rd bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1469S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (#pixel+flip(-0.5))/@scale
  c = (-1.7621,-0.0141)

loop:
  z = fn1(fn2(fn3((z*z)+(c))))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1469S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,.4)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1470S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Really is the same as 1469.
; Same as 1469 but "cart before the horse".\

init:
  z = (#pixel+flip(-0.5))/@scale
  c = (-1.7621,-0.0141)

loop:
  z = fn1(fn2(fn3((z*z)+(c))))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1470S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.2
  center = (0,.4)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1471S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass Julia

init:
  z = (conj(#pixel*#pixel)+flip(-0.5))/@scale
  c = (-1.7621,-0.2141)

loop:
  z = fn1(fn2(fn3((z*z)+(c))))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1471S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,.35)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1472S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass Julia

init:
  z = (conj(cos(#pixel*#pixel))+flip(-0.5))/@scale
  c = (-1.7621,-0.2141)
loop:
  z = fn1(fn2(fn3((z*z)+(c))))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1472S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1473S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass Julia

init:
  z = (sqr(1/#pixel*1/#pixel*#pixel)+flip(-0.5))/@scale
  c = (1.1,0.9)

loop:
  z = (z*z)+(c)
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1473S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1474S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; BatMandelbrot, Faceted Glass

init:
  z = c = ((conj(1/#pixel)^2.32)-1.25)/@scale

loop:
  z = fn1(fn2(fn3(z*z+c)))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1474S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1475S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((flip(1/#pixel)^2.32)-1.25)/@scale
  c = z

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1475S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1476S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia??

init:
  z = ((conj(cos(#pixel))^2.32)-1.25)/@scale
  c = conj(z)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1476S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .6
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1477S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; ??-Julia-??

init:
  z = (tan(1/exp(#pixel)^2.32)-1.25)/@scale
  c = conj(z)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1477S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.7
  center = (.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1478S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (conj(conj(cos(#pixel))^2.32)-1.25)/@scale
  c = (0.9/-2.48)-conj(0.2/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1478S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1479S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; A REALLY different Julia ??

init:
  z = (1/(#pixel*conj(5/#pixel-0.724)))/@scale
  c = (0.3,0.6)

loop:
  z = fn1(fn2(fn3((z*z+c)/1.3)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1479S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (.25,.1)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1480S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia??

init:
  z = (1/(#pixel+#pixel-(5/#pixel-0.724)))/@scale
  c = flip(z*#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1480S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (-.8,.2)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1481S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?

init:
  z = (conj(1-#pixel)/2.33^1.75)/@scale
  c = (conj(tan(1/#pixel))^1.32)-1.25
loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1481S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1482S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?

init:
  z = (conj(1-#pixel)/2.33^1.75)/@scale
  c = (-0.7456,0.2315)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c-0.1/#pixel)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1482S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1483S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?

init:
  z = (conj(1-#pixel)/2.33^1.75)/@scale
  c = imag((4.299,-1.2))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c-0.1/#pixel)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1483S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1484S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?

init:
  z = ((#pixel+#pixel)/(sqr(1/#pixel)))/@scale
  c = ((#pixel-1.5)^1.637)/(z-1.2/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1484S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1485S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia? Faceted Glass

init:
  z = ((#pixel+#pixel)/(flip(1/#pixel*0.91/#pixel+0.2/#pixel)))/@scale
  c = 1/conj(#pixel-1.5)/(conj(z)-1.4/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1485S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1486S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia, Faceted Glass.

init:
  z = ((#pixel+#pixel)/(flip(1/#pixel*0.91/#pixel+4/#pixel)))/@scale
  c = conj(#pixel-1.5)/(flip(z)-1.4/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1486S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1487S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((#pixel+#pixel)/(1/flip(1/#pixel*0.91/#pixel+0.9/#pixel)))/@scale
  c = conj(#pixel-1.5)/(flip(z)-3.4/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sinh(c)))))*real(sqrt(tanh(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1487S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.5
  center = (-1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1488S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Faceted Glass Julia

init:
  z = ((#pixel+#pixel)/(1/flip(1/#pixel*0.91/#pixel+0.9/sqr(#pixel))))/@scale
  c = conj(#pixel-1.5)/(flip(z)-3.4/#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sinh(c)))))*real(sqrt(tanh(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1488S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .3
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1489S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((#pixel+#pixel)/(flip(1/#pixel)))/@scale
  c = z*(#pixel)/flip(#pixel-0.1)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1489S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================


Carr1490S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((#pixel+#pixel-1)/(flip(1/-#pixel)))/@scale
  c = z*(#pixel+1)/flip(#pixel-0.1)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1490S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.1
  center = (.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1491S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((#pixel+#pixel-1)/(flip(1/-#pixel)))
  c = z*sqr(#pixel-1)/flip(#pixel-0.1)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1491S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 2.8
  center = (.5,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1492S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = ((#pixel+#pixel-1)/(flip(1/#pixel*0.91/#pixel)))/@scale
  c = z*sqr(#pixel)/flip((1.099,0))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1492S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.5
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1493S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; VERY different Julia

init:
  z = (1/(#pixel+#pixel)/(conj(cos(1/#pixel*4/#pixel))))/@scale
  c = z*conj(#pixel)/((-1.76,-0.014)/(3/#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1493S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1494S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (1/(#pixel+#pixel)/(cotan(1/#pixel*4/#pixel)))/@scale
  c = z*1/conj(#pixel+#pixel)/((-5.742,-0.009)/(6/#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1494S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .8
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1495S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (1/(#pixel+#pixel)/(cotan(1/#pixel*4/#pixel)))/@scale
  c = z*1/conj(#pixel+#pixel)/((sqr(z-0.25)*#pixel)/(6/#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1495S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1496S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (1/(#pixel+#pixel)/(tan(sqr(1/#pixel*4/#pixel))))/@scale
  c = z*1/(#pixel+#pixel)/((sqr(#pixel*z-1.55)*#pixel)/(6/#pixel))

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c)))))*real(sqrt(tan(c)))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1496S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1497S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (sqr(1-#pixel)/(2^#pixel-0.5))/@scale
  c = z*1/conj(#pixel+#pixel)/(#pixel/(6/#pixel))

loop:
  z = sqr(z)
  z = fn1(fn2(fn3(z+sin(z)+c)))
  c = z+c/2
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1497S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1
  center = (1,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1498S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia?

init:
  z = (1/(#pixel*conj(5/#pixel-0.724)))/@scale
  c = #pixel+(-0.7456,0.2)

loop:
  z = sqr(z)
  z = fn1(fn2(fn3(z+sin(z)+c)))
  c = z+c/2
  c = ((1+flip(imag(sqrt(c))))*real(sqrt(c))/9+z)

bailout:
  |z| <= @bailout

default:
  title = "Carr 1498S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = 1.4
  center = (0,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================

Carr1499S { 
; A "Modified Carr" formula, based on the original with permission.
; Functionality added by Sharon S. Schultz, May, 2003.
; Updated for UF2 by Erik Reckase, Feb 2000
; Julia

init:
  z = (1/(#pixel+#pixel-(5/#pixel-0.724)))/@scale
  c = flip(z*#pixel)

loop:
  z = fn1(fn2(fn3(z*z+c)))
  c = ((1+flip(imag(sqrt(sin(c-0.1/#pixel)))))*real(sqrt(tan(c)))/9+(z))

bailout:
  |z| <= @bailout

default:
  title = "Carr 1499S"
  method = multipass
  periodicity = 0
  maxiter = 100
  magn = .4
  center = (-.8,0)

heading 
  caption = "Parameters"
endheading

param scale
  caption = "Scale"
  default = 1.0
  hint = "Select a value to scale the image elements."
endparam
param bailout
  caption = "Bailout"
  default = 4
  hint = "Select a bailout value for the formula."
endparam

heading
  caption = "Functions"
endheading

func fn1
  caption = "Change"
  default = ident()
  hint = "Select a function to change the formula."
endfunc
func fn2
  caption = "Change More"
  default = ident()
  hint = "Select a function to change the formula more."
endfunc
func fn3
  caption = "Total Change"
  default = ident()
  hint = "Select a function to totally change the formula."
endfunc
}

==========================================================