Function {
;Ronnie Jay
init:
z=pixel^2
f=z
c=z
sf=c
loop:
zold=z
z=((p1-1)*z^p1+@r)/(p1*z^(p1-1))
z=z^@power+@seed/f+c-sf
c=fn1(z)
sf=fn2(z^c)
bailout:
|z-zold|>@bailout
default:
title = "Variable fuction"
magn=0.25
maxiter=100
func fn1
caption="Varifunc 1"
default=atanh()
endfunc
func fn2
caption="Varifunc 2"
default=cotanh()
endfunc
param bailout
caption="Bailout"
default=0.1
endparam
param r
caption="Root Value"
default =(1,0)
endparam
param p1
caption="Exponent"
default=(2,0)
endparam
param seed
caption="Julia Seed"
default= (-1.25,0)
endparam
param power
caption="Init Power"
default=(1,0)
endparam
param morph
caption="Morph to imag -Z"
default=false
endparam
param invert
caption="Z inversion"
default=false
endparam
} |
