wax_spiral {
fractal:
  title="wax_spiral" width=1024 height=768 author="Giuseppe Zito"
  created="June 4, 1999" numlayers=1
layer:
  caption="Layer 1" opacity=100 visible=yes alpha=yes
mapping:
  center=0.0926534893988082488/0.0576679633059149713
  magn=3.46457067705611379 angle=125.682919727585158
formula:
  filename="zg.frm" entry="wspiral" maxiter=100 percheck=normal
inside:
  filename="dmj.ucl" entry="dmj-Trap" density=8 transfer=none repeat=yes
  p_trapshape="lines" p_trapcolor="angle to trap" p_traptype="closest"
  p_traporder=4 p_trapfreq=1 p_trapcenter=0/0 p_trapdrift=0/0
  p_traporbit=0/0 p_movetrap=no p_aspect=1 p_threshold=0.25 p_diameter=1
  p_angle=0 p_anglestep=0 p_skew=0 p_skewstep=0 p_trapstart=0
  p_trapiter=10000 p_trapskip=0 p_gauss=0 p_gaussr=0 p_gausss=0
  p_gausscenter=0/0 p_radialmode="kaleidoscope"
outside:
  filename="Fractint.ucl" entry="outside" transfer=linear repeat=yes
  p_outside="iter" p_n=1 p_logmap=0 p_biomorph=-1 p_bailout=100
  p_smooth=yes
gradient:
  smooth=yes numnodes=3 index=17 color=3026262 index=136 color=13944573
  index=243 color=2191115
alpha:
  smooth=yes position=179 numnodes=5 index=179 alpha=255 index=284
  alpha=255 index=293 alpha=4 index=307 alpha=0 index=308 alpha=255
}

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

c0 = 0.085466

c2 = -0.97347701

c9 = 0.44871801

c15 = -0.33126301

c17 = -0.19959199

d2 = 0.155949

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

s0 =c0

s1 =c2

s2 = x

s3 = y

s4 = x

s3 = s3 *s4

s3 = s3 *x

s3 = s3 -y

s3 = s3 *c9

s3 = s3 +x

s3 = s3 *x

s2 = s2 *s3

s2 = s2 -y

s2 = s2 +c15

s1 = s1 *s2

s1 = s1 *c17

s1 = s1 +x

s1 = s1 +y

s0 = s0 +s1

newx = s0 

s0 = y

s0 = s0 +y

s0 = s0 *d2

s1 = y

s1 = s1 +x

s1 = s1 *y

s0 = s0 +s1

s0 = s0 -x

newy = s0 

z = newx + flip(newy)
 newx < 4 && newx > -4 && newy < 4 && newy > -4 
}