organizing_principle {
fractal:
  title="organizing_principle" width=1024 height=768 author="Giuseppe Zito"
  created="July 14, 1999" numlayers=2
layer:
  caption="New Layer 2" opacity=100 visible=yes alpha=no mergemode=overlay
mapping:
  center=-0.14216947126705071/0.907649053458319976 magn=1.87861566145946411
  angle=0
formula:
  filename="zg.frm" entry="golden_flower" maxiter=100 percheck=normal
inside:
  filename="mt.ucl" entry="mt-martin-coloring" density=8 transfer=arctan
  repeat=yes p_a=2 p_znum=1 p_max_iterations=64 p_scale=0.3 p_threshold=-1
  f_fn1=abs f_fn2=sin
outside:
  filename="mt.ucl" entry="mt-martin-coloring" density=4 transfer=arctan
  repeat=yes p_a=0 p_znum=3 p_max_iterations=10 p_scale=0.05 p_threshold=0
  f_fn1=asinh f_fn2=ident
gradient:
  smooth=yes numnodes=6 index=88 color=0 index=157 color=0 index=169
  color=31202 index=210 color=11262207 index=242 color=131584 index=394
  color=170
layer:
  caption="Layer 1" visible=yes alpha=no
mapping:
  center=-0.14216947126705071/0.907649053458319976 magn=1.87861566145946411
  angle=0
formula:
  filename="zg.frm" entry="golden_flower" maxiter=100 percheck=normal
inside:
  filename="mt.ucl" entry="mt-martin-coloring" density=0.5 transfer=arctan
  repeat=yes p_a=3 p_znum=1 p_max_iterations=8 p_scale=0.5 p_threshold=-1
  f_fn1=tanh f_fn2=cosh
outside:
  filename="mt.ucl" entry="mt-martin-coloring" density=4 transfer=arctan
  repeat=yes p_a=0 p_znum=3 p_max_iterations=10 p_scale=0.05 p_threshold=-1
  f_fn1=asinh f_fn2=ident
gradient:
  smooth=yes numnodes=6 index=75 color=0 index=144 color=0 index=156
  color=31202 index=190 color=11262207 index=258 color=131586 index=381
  color=170
}

zg.frm:golden_flower {; Giuseppe Zito
 z = pixel ,

c0 = -0.99413198

c10 = 0.131421

c16 = 0.361141

c19 = -0.53331298

c22 = 0.557051

c36 = -0.761159

c38 = -0.54474097

c45 = -0.00643

c46 = 0.53099799

d0 = -0.63163298

d3 = -0.81187701

  : 
 x = real(z), y = imag(z)

s0 =c0

s0 = s0 *x

s0 = s0 +y

s1 = x

s0 = s0 +s1

s0 = s0 +x

s0 = s0 *y

s0 = s0 +y

s0 = s0 -c10

s0 = s0 /x

s1 = y

s1 = s1 *c16

s0 = s0 /s1

s0 = s0 -c19

s0 = s0 *y

s0 = s0 /c22

s1 = x

s1 = s1 /x

s1 = s1 /y

s2 = y

s2 = s2 *y

s2 = s2 -x

s2 = s2 -y

s1 = s1 -s2

s1 = s1 *y

s0 = s0 +s1

s0 = s0 *c36

s0 = s0 -y

s0 = s0 +c38

s0 = s0 +y

s0 = s0 *x

s0 = s0 -x

s0 = s0 *c45

s0 = s0 +c46

s0 = s0 -y

newx = s0 

s0 =d0

s0 = s0 -x

s0 = s0 -d3

newy = s0