tim's_variant { init: z = pixel + @start c = z ^ (z - 1) loop: tmp1 = fn1(z) tmp2 = fn2(z) tmp1 = real(tmp1) * real(c) - imag(tmp1) * imag(c) + flip(real(tmp1) * imag(c) - imag(tmp1) * real(c)) tmp2 = real(tmp2) * real(c) - imag(tmp2) * imag(c) + flip(real(tmp2) * imag(c) - imag(tmp2) * real(c)) z = tmp1 + tmp2 * @fac2 + pixel bailout: (@test == 0 && |z| <= @bailout) || \ (@test == 1 && sqr(real(z)) <= @bailout) || \ (@test == 2 && sqr(imag(z)) <= @bailout) || \ (@test == 3 && (sqr(real(z)) <= @bailout && sqr(imag(z)) < @bailout)) || \ (@test == 4 && (sqr(real(z)) <= @bailout || sqr(imag(z)) < @bailout)) || \ (@test == 5 && (sqr(abs(real(z)) + abs(imag(z))) <= @bailout)) || \ (@test == 6 && (sqr(real(z) + imag(z)) <= @bailout)) default: title = "Tim's Variant" center = (0.7, 0) magn = 0.6 maxiter = 250 param start caption = "Perturbation" default = (0,0) endparam param test caption = "Bailout Test" default = 0 enum = "mod" "real" "imag" "or" "and" "manh" "manr" endparam param bailout caption = "Bailout value" default = 4.0 min = 1.0 endparam param fac2 caption = "Facteur 2nd fct" default = 0.0 endparam func fn1 caption = "First Fct" default = sqr() endfunc func fn2 caption = "Second Fct" default = sqr() endfunc }