Fractal 154 E – God Face

Part of BEYOND series – 04.2025

all . blue . fractal . god . light . meditation . sky . soul . spirit . spirituality . star
← Fractal 057 F – Human nature
Fractal 154 E – zoom level 1
Fractal 154 E – zoom level 2
Data

This digital works is created exclusively from fractals, with 0% AI generated. It can therefore be converted into a set of functions and parameters that can be the basis for the training of an AI.
The mathematical formulas and parameter combinations corresponding to each fractal are presented below. In each case, the numerical characters have been replaced by ■ to prevent unauthorized reproduction. If you are interested in using the full data set to train an AI, please contact Philippe.
Fractal 154 E - God Face - Part of BEYOND series - 04.2025

Fractal_■■■_E {■[■-■]
fractal:
title="Fractal_■■■_E" width=■■■■ height=■■■■ layers=■
credits="Philoxerax;■/■■/■■■■"
layer:
caption="Background" opacity=■■■ method=linear transparent=yes
mapping:
center=-■.■■■■■■■■■■/■.■■■■■■■■ magn=■
formula:
maxiter=■ percheck=off filename="reb.ufm" entry="FormulaTracer"
p_version=■.■ p_formula="Hunt Surface" p_fourthdim=■.■ p_zorig=■.■
p_a=■.■ p_b=■.■ p_c=■.■ p_background=inside p_touchscreen=no
p_xrot=■.■ p_yrot=■.■ p_zrot=■.■ p_local=yes p_lightx=■.■
p_lighty=■.■ p_lightz=-■.■ p_zscreen=■■■ p_zdist=■.■ p_zmagn=no
p_autoscale=no p_prec=■■.■ p_delta=■.■ p_bailout=■.■
inside:
transfer=none solid=■
outside:
transfer=linear
gradient:
smooth=yes rotation=-■■■ index=■ color=■■■■■■■■ index=■■■
color=■■■■■ index=■■■ color=■■■ index=-■■■ color=■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Layer ■" opacity=■■■ mergemode=blue method=linear
transparent=yes
mapping:
center=-■.■■■■■■■■■■/■.■■■■■■■■■■ magn=■.■■■■■■■■
formula:
maxiter=■ percheck=off filename="reb.ufm" entry="FormulaTracer"
p_version=■.■ p_formula="Hunt Surface" p_fourthdim=■.■ p_zorig=■.■
p_a=■.■ p_b=■.■ p_c=■.■ p_background=inside p_touchscreen=no
p_xrot=■.■ p_yrot=■.■ p_zrot=■.■ p_local=yes p_lightx=■.■
p_lighty=■.■ p_lightz=-■.■ p_zscreen=■■■ p_zdist=■ p_zmagn=yes
p_autoscale=no p_prec=■■.■ p_delta=■.■ p_bailout=■.■
inside:
transfer=none solid=■
outside:
transfer=linear
gradient:
smooth=yes rotation=-■■■ index=■ color=■■■■■■■■ index=■■■
color=■■■■■ index=■■■ color=■■■ index=-■■■ color=■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Layer ■" opacity=■■■ mergemode=red method=linear
transparent=yes
mapping:
center=-■.■■■■■■■■■■/■.■■■■■■■■ magn=■.■■■■■■■■
formula:
maxiter=■ percheck=off filename="reb.ufm" entry="FormulaTracer"
p_version=■.■ p_formula="Hunt Surface" p_fourthdim=■.■ p_zorig=■.■
p_a=■.■ p_b=■.■ p_c=■.■ p_background=inside p_touchscreen=no
p_xrot=■.■ p_yrot=■.■ p_zrot=■.■ p_local=yes p_lightx=■.■
p_lighty=■.■ p_lightz=-■.■ p_zscreen=■■■ p_zdist=■ p_zmagn=yes
p_autoscale=no p_prec=■■.■ p_delta=■.■ p_bailout=■.■
inside:
transfer=none solid=■
outside:
transfer=linear
gradient:
smooth=yes rotation=-■■■ index=■ color=■■■■■■■■ index=■■■
color=■■■■■ index=■■■ color=■■■ index=-■■■ color=■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Background" opacity=■■■ mergemode=green method=linear
transparent=yes
mapping:
center=■.■■■■■■■■■■/■.■■■■■■■■■■ magn=■.■■■■■■■■
formula:
maxiter=■ percheck=off filename="reb.ufm" entry="FormulaTracer"
p_version=■.■ p_formula="Hunt Surface" p_fourthdim=■.■ p_zorig=■.■
p_a=■.■ p_b=■.■ p_c=■.■ p_background=inside p_touchscreen=no
p_xrot=■.■ p_yrot=■.■ p_zrot=■.■ p_local=yes p_lightx=■.■
p_lighty=■.■ p_lightz=-■.■ p_zscreen=■■■ p_zdist=■■ p_zmagn=no
p_autoscale=no p_prec=■■.■ p_delta=■.■ p_bailout=■.■
inside:
transfer=none solid=■
outside:
transfer=linear
gradient:
smooth=yes rotation=-■■■ index=■ color=■■■■■■■■ index=■■■
color=■■■■■ index=■■■ color=■■■ index=-■■■ color=■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Layer ■" opacity=■■■ mergemode=luminance
mapping:
center=■.■■■■■■■■/-■.■■■■■■■■ magn=■.■■■■■■■■■ angle=■■.■■■■
formula:
maxiter=■■■ percheck=off filename="reb.ufm" entry="GopalsamyFn"
p_version=■.■ p_test=mod p_bailout=■■■■■ p_p■=■.■■/■ f_fn■=flip
f_fn■=ident f_fn■=floor f_fn■=round
inside:
transfer=none solid=■■■■■■■■■■
outside:
transfer=linear
gradient:
smooth=yes rotation=■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■■■
index=■■ color=■■■■■■■■ index=■■ color=■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■ index=■■
color=■■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■ index=■■
color=■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■ index=■■
color=■■■■■■■ index=■■ color=■■■■■■■ index=■■ color=■■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■■
index=■■ color=■■■■■■■ index=■■ color=■■■■■■■■ index=■■
color=■■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■
index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■■ index=■■
color=■■■■■■■ index=■■ color=■■■■■■■■ index=■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Background" opacity=■■■ mergemode=addition
mapping:
center=■.■■■■■■■■/-■.■■■■■■■ magn=■.■■■■■■■■■ angle=■■.■■■■
formula:
maxiter=■■■ percheck=off filename="reb.ufm" entry="GopalsamyFn"
p_version=■.■ p_test=mod p_bailout=■■■■■ p_p■=■.■/■ f_fn■=flip
f_fn■=floor f_fn■=round f_fn■=round
inside:
transfer=none
outside:
transfer=linear
gradient:
smooth=yes rotation=■■ index=■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■ index=■■■ color=■■■■■■■■
opacity:
smooth=no index=■ opacity=■■■
layer:
caption="Background" opacity=■■■
mapping:
center=■.■■■■■■■■/-■.■■■■■■■ magn=■.■■■■■■■■■ angle=■■.■■■■
formula:
maxiter=■■■ percheck=off filename="reb.ufm" entry="GopalsamyFn"
p_version=■.■ p_test=mod p_bailout=■■■■■ p_p■=■.■■/■ f_fn■=flip
f_fn■=ident f_fn■=floor f_fn■=round
inside:
transfer=none solid=■■■■■■■■■■
outside:
transfer=linear
gradient:
smooth=yes rotation=■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■ index=■■■
color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■ index=■■■ color=■■■■■■■■ index=■■■ color=■■■■■■■■
index=■■■ color=■■■■■■■ index=■■■ color=■■■■■■■■ index=■■■
color=■■■■■■■ index=■■■ color=■■■■■■
opacity:
smooth=no index=■ opacity=■■■
}
GopalsamyFn { ; Ron Barnett, ■■■■
; Modified and tweaked March ■■■■
; modified October ■■■■
init:
#z = #pixel
loop:
x = real(#z)
y = imag(#z)
x■ = @fn■(x)*@fn■(y)
y■ = @fn■(x)*@fn■(y)
x■ = -■*x■*y■ + @p■
y = y■*y■ - x■*x■
#z = x■ + flip(y)
bailout:
(@test == ■ && |#z| <= @bailout) || \
(@test == ■ && sqr(real(#z)) <= @bailout) || \
(@test == ■ && sqr(imag(#z)) <= @bailout) || \
(@test == ■ && (sqr(real(#z)) <= @bailout && sqr(imag(#z)) < @bailout)) || \
(@test == ■ && (sqr(real(#z)) <= @bailout || sqr(imag(#z)) < @bailout)) || \
(@test == ■ && (sqr(abs(real(#z)) + abs(imag(#z))) <= @bailout)) || \
(@test == ■ && (sqr(real(#z) + imag(#z)) <= @bailout))
default:
title = "GopalsamyFn"
center = (■.■, ■.■)
maxiter = ■■■
periodicity = ■
param version
caption = "Formula Version"
default = ■.■
hint = "You should never see this parameter; it's used internally to track \
which version of the formula was used to create your image, so that \
if a bug is found which breaks backwards-compatibility, the formula \
can adapt transparently."
visible = false
endparam
param test
caption = "Bailout Test"
default = ■
enum = "mod" "real" "imag" "or" "and" "manh" "manr"
endparam
float param bailout
caption = "Bailout value"
default = ■■■■■
min = ■
endparam
param p■
caption = "Parameter ■"
default = (-■.■■, -■.■)
endparam
func fn■
caption = "First Function"
default = asin()
endfunc
func fn■
caption = "Second Function"
default = cos()
endfunc
func fn■
caption = "Third Function"
default = cosh()
endfunc
func fn■
caption = "Fourth Function"
default = atan()
endfunc
switch:
type = "MandelGopalsamyFn"
bailout = @bailout
fn■ = @fn■
fn■ = @fn■
fn■ = @fn■
fn■ = @fn■
}
FormulaTracer { ; Ron Barnett
;Based upon the formulas of Stig Pettersson
;March ■■, ■■■■
init:
bool setflag=true
bool tflag=false
int m=■
int count■=■
float xf = ■
float yf = ■
float zf = ■
float wf = ■
float t = ■
complex zh=■
float color■=-■.■■■■■■■■e■■
float color■=■.■■■■■■■■e■■
float temp■=■
float lightdx=■
float lightdy=■
float lightdz=■
float lightlength=■
float flength=■
float fx=■
float fy=■
float fz=■
float tangle=■
float buff■=■
float buff■=■
float buff■=■
float buff■=■
float buff■=■
float diffx=■
float diffy=■
float count=■
float count■=■
float xx=■
float yy=■
float zz=■
float ww=■
float length=■.■
float xscreen=real(#screenmax)
float yscreen=imag(#screenmax)
float zscreen=@zscreen
float xmin=■
float ymin=■
float xmax=■
float ymax=■
float fx = ■
float fy = ■
if xscreen/yscreen>■/■
temp■=■/#magn
float temp■=-■/#magn
ymin=imag(#center)-temp■/■
ymax=ymin+temp■
temp■=-xscreen/yscreen*temp■
xmin=real(#center)-temp■/■
xmax=xmin+temp■
else
temp■=■/#magn
xmin=real(#center)-temp■/■
xmax=xmin+temp■
temp■=-yscreen/xscreen*temp■
ymin=imag(#center)-temp■/■
ymax=ymin+temp■
endif
float zmax=@zorig+@zdist/■
float zmin=zmax-@zdist
if @zmagn==true
zmax=@zorig+@zdist/■/#magn
zmin=zmax-@zdist/#magn
endif
if @autoscale==true
zscreen=xscreen/(xmax-xmin)*(zmax-zmin)
endif
float dx=(xmax-xmin)/xscreen
float dy=(ymax-ymin)/yscreen
float dz=(zmax-zmin)/zscreen
float origx=real(#center)
float origy=imag(#center)
float origz=@zorig
float vx=@xrot/■■■.■*#pi
float vy=@yrot/■■■.■*#pi
float vz=@zrot/■■■.■*#pi
float cosx=■
float cosy=■
float cosz=■
float sinx=■
float siny=■
float sinz=■
if @xrot==■■.■
sinx=■.■
cosx=■
elseif @xrot==-■■
sinx=-■.■
cosx=■
elseif abs(@xrot)==■■■
sinx=■
cosx=-■
else
cosx=cos(vx)
sinx=sin(vx)
endif
if @yrot==■■.■
siny=■.■
cosy=■
elseif @yrot==-■■
siny=-■.■
cosy=■
elseif abs(@yrot)==■■■
siny=■
cosy=-■
else
cosy=cos(vy)
siny=sin(vy)
endif
if @zrot==■■.■
sinz=■.■
cosz=■
elseif @zrot==-■■
sinz=-■.■
cosz=■
elseif abs(@zrot)==■■■
sinz=■
cosz=-■
else
cosz=cos(vz)
sinz=sin(vz)
endif
float rminx=■
float rminy=■
float rminz=■
float xy=■
float xz=■
float yx=■
float yz=■
float zx=■
float zy=■
float tempx=■
float tempy=■
float tempz=■
float dxx=■
float dxy=■
float dxz=■
float dyx=■
float dyy=■
float dyz=■
float dzx=■
float dzy=■
float dzz=■
float dzx=■
float dzy=■
float dzz=■
float dzx■=■
float dzy■=■
float dzz■=■
; rotating the space and creation of unit-vectors
xx=rminx=xmin
yy=rminy=ymin
zz=rminz=zmin
if @local==true
xx=xx-origx
yy=yy-origy
zz=zz-origz
endif
xy=yy*cosx-zz*sinx
xz=yy*sinx+zz*cosx
yy=xy
zz=xz
yx=xx*cosy+zz*siny
yz=-xx*siny+zz*cosy
xx=yx
zz=yz
zx=xx*cosz-yy*sinz
zy=xx*sinz+yy*cosz
xx=zx
yy=zy
if @local==true
xx=xx+origx
yy=yy+origy
zz=zz+origz
endif
rminx=xx
rminy=yy
rminz=zz
xx=tempx=xmax
yy=tempy=ymin
zz=tempz=zmin
if @local==true
xx=xx-origx
yy=yy-origy
zz=zz-origz
endif
xy=yy*cosx-zz*sinx
xz=yy*sinx+zz*cosx
yy=xy
zz=xz
yx=xx*cosy+zz*siny
yz=-xx*siny+zz*cosy
xx=yx
zz=yz
zx=xx*cosz-yy*sinz
zy=xx*sinz+yy*cosz
xx=zx
yy=zy
if @local==true
xx=xx+origx
yy=yy+origy
zz=zz+origz
endif
tempx=xx
tempy=yy
tempz=zz
dxx=(tempx-rminx)/xscreen
dxy=(tempy-rminy)/xscreen
dxz=(tempz-rminz)/xscreen
xx=tempx=xmin
yy=tempy=ymax
zz=tempz=zmin
if @local==true
xx=xx-origx
yy=yy-origy
zz=zz-origz
endif
xy=yy*cosx-zz*sinx
xz=yy*sinx+zz*cosx
yy=xy
zz=xz
yx=xx*cosy+zz*siny
yz=-xx*siny+zz*cosy
xx=yx
zz=yz
zx=xx*cosz-yy*sinz
zy=xx*sinz+yy*cosz
xx=zx
yy=zy
if @local==true
xx=xx+origx
yy=yy+origy
zz=zz+origz
endif
tempx=xx
tempy=yy
tempz=zz
dyx=(tempx-rminx)/yscreen
dyy=(tempy-rminy)/yscreen
dyz=(tempz-rminz)/yscreen
xx=tempx=xmin
yy=tempy=ymin
zz=tempz=zmax
if @local==true
xx=xx-origx
yy=yy-origy
zz=zz-origz
endif
xy=yy*cosx-zz*sinx
xz=yy*sinx+zz*cosx
yy=xy
zz=xz
yx=xx*cosy+zz*siny
yz=-xx*siny+zz*cosy
xx=yx
zz=yz
zx=xx*cosz-yy*sinz
zy=xx*sinz+yy*cosz
xx=zx
yy=zy
if @local==true
xx=xx+origx
yy=yy+origy
zz=zz+origz
endif
tempx=xx
tempy=yy
tempz=zz
dzx=(tempx-rminx)/zscreen
dzy=(tempy-rminy)/zscreen
dzz=(tempz-rminz)/zscreen
dzx■=dzx/@prec
dzy■=dzy/@prec
dzz■=dzz/@prec
; end rotation and creating unit-vectors 'puuh'
if @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■+yf^■+zf^■-@a*@c^■)^■-@b*((zf-@c)^■-■*xf^■)*((zf+@c)^■-■*yf^■)
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■+yf^■+zf^■-@a*@c^■)^■-@b*((zf-@c)^■-■*xf^■)*((zf+@c)^■-■*yf^■)
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■-■*xf^■+yf^■-■*yf^■+zf^■-■*zf^■+■■.■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■-■*xf^■+yf^■-■*yf^■+zf^■-■*zf^■+■■.■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■+yf^■+zf^■+■*yf-■)*((xf^■+yf^■+zf^■-■*yf-■)^■-■*zf^■)+ \
■■*xf*zf*(xf^■+yf^■+zf^■-■*yf-■) 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■+yf^■+zf^■+■*yf-■)*((xf^■+yf^■+zf^■-■*yf-■)^■-■*zf^■)+ \
■■*xf*zf*(xf^■+yf^■+zf^■-■*yf-■) 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■■*(■-zf)^■*zf^■-■■*(■-zf)^■*zf^■*(■*xf^■+■*yf^■+■*zf^■)+ \
■■*(■-zf)*zf*(■■*(xf^■+yf^■)^■-■■*zf^■*(xf^■+yf^■)+ \
■■*sqrt(■)*yf*zf*(yf^■-■*xf^■)+■*zf^■)+ \
(■*xf^■+■*yf^■-■*zf^■)*(-■■*(xf^■+yf^■)^■-■■*zf^■*(xf^■+yf^■)+ \
■■■*sqrt(■)*xf*zf*(xf^■-■*yf^■)+■*zf^■)
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■■*(■-zf)^■*zf^■-■■*(■-zf)^■*zf^■*(■*xf^■+■*yf^■+■*zf^■)+ \
■■*(■-zf)*zf*(■■*(xf^■+yf^■)^■-■■*zf^■*(xf^■+yf^■)+ \
■■*sqrt(■)*yf*zf*(yf^■-■*xf^■)+■*zf^■)+ \
(■*xf^■+■*yf^■-■*zf^■)*(-■■*(xf^■+yf^■)^■-■■*zf^■*(xf^■+yf^■)+ \
■■■*sqrt(■)*xf*zf*(xf^■-■*yf^■)+■*zf^■)
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
t = ■.■*(■ + sqrt(■)) 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(t^■*xf^■ - yf^■)*(t^■*yf^■ - zf^■)*(t^■*zf^■ - xf^■) - \
(■+■*t)*(xf^■ + yf^■ + zf^■ - ■)^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(t^■*xf^■ - yf^■)*(t^■*yf^■ - zf^■)*(t^■*zf^■ - xf^■) - \
(■+■*t)*(xf^■ + yf^■ + zf^■ - ■)^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
t = ■.■*(■ + sqrt(■)) 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=@fourthdim
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
wf = imag(zh) 
z = ■*(xf^■-t^■*yf^■)*(yf^■-t^■*zf^■)*(zf^■-t^■*xf^■)* \
(xf^■+yf^■+zf^■-■*xf^■*yf^■-■*xf^■*zf^■-■*yf^■*zf^■)+ \
+(■+■*t)*(xf^■+yf^■+zf^■-wf^■)^■*(xf^■+yf^■+zf^■-(■-t)*wf^■)^■*wf^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
wf = imag(zh)
z = ■*(xf^■-t^■*yf^■)*(yf^■-t^■*zf^■)*(zf^■-t^■*xf^■)* \
(xf^■+yf^■+zf^■-■*xf^■*yf^■-■*xf^■*zf^■-■*yf^■*zf^■)+ \
+(■+■*t)*(xf^■+yf^■+zf^■-wf^■)^■*(xf^■+yf^■+zf^■-(■-t)*wf^■)^■*wf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■*(@a^■ - (xf^■ + zf^■)) - (xf^■ + zf^■ + ■*@a*yf - @a^■)^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■*(@a^■ - (xf^■ + zf^■)) - (xf^■ + zf^■ + ■*@a*yf - @a^■)^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■ + yf^■ + zf^■)^■ - @a*(xf^■ + zf^■)*yf
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■ + yf^■ + zf^■)^■ - @a*(xf^■ + zf^■)*yf
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■ + yf^■ + zf^■ + @a^■)^■ - @c*@a^■*(xf^■ + zf^■) - @b^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (xf^■ + yf^■ + zf^■ + @a^■)^■ - @c*@a^■*(xf^■ + zf^■) - @b^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = -■*(xf^■*yf+xf^■*zf+yf^■*xf+yf^■*zf+zf^■*yf+zf^■*xf)+ \
■*(xf*yf+xf*zf+yf*zf)
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = -■*(xf^■*yf+xf^■*zf+yf^■*xf+yf^■*zf+zf^■*yf+zf^■*xf)+ \
■*(xf*yf+xf*zf+yf*zf)
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■■*(xf^■+yf^■+zf^■)-■■■*(xf^■*yf+xf^■*zf+yf^■*xf+yf^■*zf+zf^■*xf+zf^■*yf)+ \
■■*(xf*yf*zf)+■■■*(xf*yf+xf*zf+yf*zf)-■*(xf^■+yf^■+zf^■)-■*(xf+yf+zf)+■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■■*(xf^■+yf^■+zf^■)-■■■*(xf^■*yf+xf^■*zf+yf^■*xf+yf^■*zf+zf^■*xf+zf^■*yf)+ \
■■*(xf*yf*zf)+■■■*(xf*yf+xf*zf+yf*zf)-■*(xf^■+yf^■+zf^■)-■*(xf+yf+zf)+■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = zf^■*xf^■ - zf^■ - ■*zf*xf^■ + ■*zf^■ + xf^■ - zf^■ \
-(xf^■ - zf)^■ - yf^■ - ■*xf^■*yf^■ - yf^■*zf^■ + ■*yf^■*zf + yf^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = zf^■*xf^■ - zf^■ - ■*zf*xf^■ + ■*zf^■ + xf^■ - zf^■ \
-(xf^■ - zf)^■ - yf^■ - ■*xf^■*yf^■ - yf^■*zf^■ + ■*yf^■*zf + yf^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*zf^■ - ■.■■*xf^■ - yf^■ + ■.■■*yf^■ + zf^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*zf^■ - ■.■■*xf^■ - yf^■ + ■.■■*yf^■ + zf^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ((yf^■-xf^■)/(■*zf)+■*zf^■/■+■/■)^■- \
■*((yf^■-xf^■)/(■*zf)-(■/■)*(xf^■+yf^■+(■/■)*zf^■)+■/■)^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ((yf^■-xf^■)/(■*zf)+■*zf^■/■+■/■)^■- \
■*((yf^■-xf^■)/(■*zf)-(■/■)*(xf^■+yf^■+(■/■)*zf^■)+■/■)^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (yf^■ + zf^■) * (■ + (@b - ■*@a)*xf) + xf^■*(■ + @b)
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (yf^■ + zf^■) * (■ + (@b - ■*@a)*xf) + xf^■*(■ + @b)
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■.■*xf^■ + ■.■*xf^■ - (yf^■ + zf^■)
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■.■*xf^■ + ■.■*xf^■ - (yf^■ + zf^■)
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (■*xf^■+yf^■+zf^■-■)^■-(■/■■)*xf^■*zf^■-yf^■*zf^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (■*xf^■+yf^■+zf^■-■)^■-(■/■■)*xf^■*zf^■-yf^■*zf^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(xf^■+yf^■+zf^■-■■)^■ + ■■*(■*xf^■+yf^■-■*zf^■-■■)^■
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(xf^■+yf^■+zf^■-■■)^■ + ■■*(■*xf^■+yf^■-■*zf^■-■■)^■
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*yf^■ - ■*xf^■*zf^■ - ■*(@a^■+@b^■)*xf^■ + yf^■ - \
■*yf^■*zf^■ + ■*(@a^■-@b^■)*yf^■ + zf^■ + ■*(@a^■+@b^■)*zf^■ + \
(@a^■-@b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*yf^■ - ■*xf^■*zf^■ - ■*(@a^■+@b^■)*xf^■ + yf^■ - \
■*yf^■*zf^■ + ■*(@a^■-@b^■)*yf^■ + zf^■ + ■*(@a^■+@b^■)*zf^■ + \
(@a^■-@b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (yf^■ + zf^■) - @b^■ * xf^■ + @b^■ * @a^■ * xf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (yf^■ + zf^■) - @b^■ * xf^■ + @b^■ * @a^■ * xf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■+yf^■+zf^■+@a*(xf^■+yf^■+zf^■)+@b*(xf^■*yf^■+xf^■*zf^■+yf^■*zf^■)+ \
@c*xf*yf*zf-■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■+yf^■+zf^■+@a*(xf^■+yf^■+zf^■)+@b*(xf^■*yf^■+xf^■*zf^■+yf^■*zf^■)+ \
@c*xf*yf*zf-■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ - xf^■ + yf^■ + zf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ - xf^■ + yf^■ + zf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*xf^■*(xf^■ + yf^■ + zf^■) - yf^■*(■ - yf^■ - zf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*xf^■*(xf^■ + yf^■ + zf^■) - yf^■*(■ - yf^■ - zf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■ + zf^■ - ■*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■ + zf^■ - ■*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = zf^■*xf^■-zf^■-■*zf*xf^■+■*zf^■+xf^■-zf^■-(xf^■-zf)^■-yf^■ - \
■*yf^■*xf^■-yf^■*zf^■+■*yf^■*zf+yf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = zf^■*xf^■-zf^■-■*zf*xf^■+■*zf^■+xf^■-zf^■-(xf^■-zf)^■-yf^■ - \
■*yf^■*xf^■-yf^■*zf^■+■*yf^■*zf+yf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*yf^■-■*xf^■*zf-(@a^■+@b^■)*xf^■+yf^■-■*yf^■*zf+ \
(@a^■-@b^■)*yf^■+zf^■+(@a^■+@b^■)*zf+(@a^■-@b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + ■*xf^■*yf^■-■*xf^■*zf-(@a^■+@b^■)*xf^■+yf^■-■*yf^■*zf+ \
(@a^■-@b^■)*yf^■+zf^■+(@a^■+@b^■)*zf+(@a^■-@b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + yf^■ + zf^■ - (xf^■ + yf^■ + zf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + yf^■ + zf^■ - (xf^■ + yf^■ + zf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■*yf^■ + xf^■*zf^■ + yf^■*zf^■ + xf*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■*yf^■ + xf^■*zf^■ + yf^■*zf^■ + xf*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■*yf^■-xf^■*zf^■+yf^■*zf^■-xf*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■*yf^■-xf^■*zf^■+yf^■*zf^■-xf*yf*zf 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■-■*xf*yf^■-xf*zf^■+xf^■*yf^■+xf^■*zf^■-zf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = yf^■-■*xf*yf^■-xf*zf^■+xf^■*yf^■+xf^■*zf^■-zf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (@b - xf)*(yf^■ + zf^■) - @c^■*@a*xf^■ - @c^■*xf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (@b - xf)*(yf^■ + zf^■) - @c^■*@a*xf^■ - @c^■*xf^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + yf^■ + zf^■ + ■*xf^■*yf^■ + ■*xf^■*zf^■ + ■*yf^■*zf^■ \
-■*(@a^■ + @b^■)*xf^■ + ■*(@a^■ - @b^■)*yf^■ \
-■*(@a^■ + @b^■)*zf^■ + (@a^■ - @b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = xf^■ + yf^■ + zf^■ + ■*xf^■*yf^■ + ■*xf^■*zf^■ + ■*yf^■*zf^■ \
-■*(@a^■ + @b^■)*xf^■ + ■*(@a^■ - @b^■)*yf^■ \
-■*(@a^■ + @b^■)*zf^■ + (@a^■ - @b^■)^■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(xf^■ + (yf^■ + zf^■)^■) + ■■ * xf^■ * (yf^■ + zf^■) - \
■■ * (xf^■ + yf^■ + zf^■) + ■■ 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = ■*(xf^■ + (yf^■ + zf^■)^■) + ■■ * xf^■ * (yf^■ + zf^■) - \
■■ * (xf^■ + yf^■ + zf^■) + ■■ 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = @a * (yf - ■) + (xf^■ + zf^■) * yf 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = @a * (yf - ■) + (xf^■ + zf^■) * yf 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
elseif @formula==■■ 
count■=■
repeat
diffx=■
diffy=■
if count■==■
diffx=-@delta
elseif count■==■
diffx=@delta
elseif count■==■
diffy=@delta
elseif count■==■
diffy=-@delta
endif
tempx=rminx+(real(#screenpixel)+diffx)*dxx+(imag(#screenpixel)+diffy)*dyx
tempy=rminy+(real(#screenpixel)+diffx)*dxy+(imag(#screenpixel)+diffy)*dyy
tempz=rminz+(real(#screenpixel)+diffx)*dxz+(imag(#screenpixel)+diffy)*dyz
xx=tempx
yy=tempy
zz=tempz
ww=■.■
count=■.■
repeat
xx=xx+dzx
yy=yy+dzy
zz=zz+dzz
z■=xx+flip(yy)
zh=zz+flip(ww)
m=■
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (@b^■/@c^■*(@c^■-zf^■)+@a^■-xf^■-yf^■)^■ - \
■*@b^■/@c^■*(@c^■-fz^■)*(@a^■-xf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>=@bailout
count=count+■
until (count>=zscreen || length<@bailout)
if count==■
if m>=#maxiter&&@touchscreen==true
tflag=true
endif
endif
if (length<@bailout)&&(count>■)
count■=■
repeat
xx=xx-dzx■
yy=yy-dzy■
zz=zz-dzz■
m=■
z■=xx+flip(yy)
zh=zz+flip(ww)
z=z■
repeat
xf = real(z)
yf = imag(z)
zf = real(zh)
z = (@b^■/@c^■*(@c^■-zf^■)+@a^■-xf^■-yf^■)^■ - \
■*@b^■/@c^■*(@c^■-fz^■)*(@a^■-xf^■) 
length=|z|
m=m+■
until m>=#maxiter || length>@bailout
count■=count■+■
until length>=@bailout
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
elseif count==■
if count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
elseif count■==■
buff■=zmin+count*dz-(count■-■)*dz/@prec
endif
else
if count■==■
buff■=zmax+dz
count■=■
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
elseif count■==■
buff■=zmax+dz
endif
endif
count■=count■+■
until count■>=■
endif
; tracing
if buff■>zmax&&@background>■
setflag=false
else
lightdx=real(#screenpixel)*dx+xmin-@lightx
lightdy=imag(#screenpixel)*dy+ymin-@lighty
lightdz=buff■-@lightz
lightlength=sqrt(lightdx*lightdx+lightdy*lightdy+lightdz*lightdz)
fx=(buff■-buff■)*■*dy
fy=-■*dx*(buff■-buff■)
fz=-■*dx*dy
flength=sqrt(fx*fx+fy*fy+fz*fz)
tangle=(fx*lightdx+fy*lightdy+fz*lightdz)/(flength*lightlength)
endif
if tflag==true
setflag=false
endif
loop:
if buff■>zmax
if @background==■
z=tangle+flip(color■)
elseif @background==■
setflag=false
endif
elseif tflag==true
setflag=false
else
z=tangle+flip(color■)
endif
bailout:
setflag==false
default:
heading
caption="Requires Raytrace in spr.ucl"
endheading 
heading
caption="or Texture Raytrace in reb.ucl"
endheading 
heading
caption = "Based upon the formulas of"
endheading
heading
caption = "Stig Pettersson"
endheading
title = "Formula Tracer"
method=onepass
periodicity=■
maxiter=■
param version
caption = "Formula Version"
default = ■.■
hint = "You should never see this parameter; it's used internally to track \
which version of the formula was used to create your image, so that \
if a bug is found which breaks backwards-compatibility, the formula \
can adapt transparently."
visible = false
endparam
param formula
enum= "Chair" "Tangle Cube" "Klein Bottle" "Boy Surface" "Barth Sextic" \
"Barth Decic" "Bicorn" "Bifolium" "Cassini Ovals" "Cayley Cubic" \
"Clebsch Diagonal Cubic" "Cushion" "■D Devil's Curve" "Ennepers Surface" \
"Folium Surface" "Glob" "Heart" "Hunt Surface" "Hyperbolic Torus" \
"Kampyle of Eudoxus" "Kummer Surface" "Eight Curve" "Mitre surface" \
"Nodal Cubic" "Odd Surface" "Parabolic Torus" "Tooth" "Steiners Roman Surface" \
"Steiner Variant #■" "Steiner Variant #■" "Strophoid" "Torus" \
"Sorta Torus" "Witch of Agnesi" "Bohemian Dome"
default=■
endparam
param fourthdim
caption="■D value"
default=■.■
visible=@formula==■
endparam 
param zorig
caption="z-center"
default=■.■
hint="Center of z-axis."
endparam 
param a
caption = "Param a"
default = ■.■
visible=@formula==■ ||@formula==■ || @formula==■ || @formula==■ || @formula==■■ \
|| @formula==■■ || @formula==■■ || @formula==■■ || @formula==■■ \
|| @formula==■■ || @formula==■■ || @formula==■■ || @formula==■■
endparam 
param b
caption = "Param b"
default = ■.■
visible=@formula==■ ||@formula==■ || @formula==■■ || @formula==■■ || @formula==■■ \
|| @formula==■■ || @formula==■■ || @formula==■■ || @formula==■■ \
|| @formula==■■
endparam 
param c
caption = "Param c"
default = ■.■
visible=@formula==■ ||@formula==■ || @formula==■■ || @formula==■■ \
|| @formula==■■
endparam 
param background
enum="outside" "inside"
default=■
hint="What type of background-coloring you want. With inside only one colour or inside \
coloring filter"
endparam 
param touchscreen
caption="Screen-touch"
default=false
hint="Those structures that goes out of the screen, or touches it, is colored with \
inside colouring."
endparam
heading
caption = ""
endheading 
param xrot
caption="x-rotation"
default=■.■
hint="Rotates the system through the x-axis."
endparam 
param yrot
caption="y-rotation"
default=■.■
hint="Rotates the system through the y-axis."
endparam 
param zrot
caption="z-rotation"
default=■.■
hint="Rotates the system through the z-axis."
endparam 
param local
caption="Local rotation"
default=true
hint="Sets local rotation. Otherwise location around zero."
endparam 
param lightx
caption="Light-x"
default=■.■
hint="x-coord of lightsource"
endparam 
param lighty
caption="Light-y"
default=■.■
hint="y-coord of lightsource"
endparam 
param lightz
caption="Light-z"
default=-■.■
hint="z-coord of lightsource"
endparam 
param zscreen
caption="Screen-depth"
default=■■■.■
hint="Screendepth in virtual pixels."
min=■
endparam 
param zdist
caption="z-distance"
default=■.■
hint="Length of z-axis."
endparam 
param zmagn
caption="z-magnify"
default=false
hint="If set then the fractal will be magnified in the third dimension too."
endparam 
param autoscale
caption="Auto scaling"
default=false
hint="If set then the screendepth in virtual pixels will be set to hold the same scalar \
proportions as the x-axis. Take it easy with this as you don't have to \
magnify the screensurface very much to get a very long z-axis in pixels. If \
z-magnify is set too then there is no danger in overproportions."
endparam 
param prec
caption="Precision"
default=■■.■
min=■.■
hint="Precision for the fine tracing. The lower, the faster but with less precision. \
Smallest value allowed is ■.■"
endparam 
param delta
caption="Delta"
default=■.■
hint="The difference between the points that builds the normal-plane to the lightsource. \
Should normally be ■.■"
endparam 
param bailout
caption="Trace Width"
default=■.■
endparam
}