popcorn_vortex {
fractal:
  title="popcorn_vortex" width=1024 height=512 author="Giuseppe Zito"
  created="June 23, 1999" numlayers=4
layer:
  caption="New Layer 4" opacity=100 visible=yes alpha=yes
  mergemode=subtraction
mapping:
  center=-0.138519448321278147/-0.0407386689248741939
  magn=0.522045776761016187 angle=0
formula:
  filename="zg.frm" entry="worms" maxiter=100 percheck=normal
inside:
  filename="mt.ucl" entry="mt-popcorn-trap" transfer=none repeat=yes
  p_trap_mode="Smallest trap" p_color_mode="Martin" p_start=0/0 p_skip=0
  p_no_of_iters=0 p_a=0.05 p_max_iterations=10 p_scale=0.5 p_a2=3.14159
  p_m_iterations=2 p_mscale=0.05 p_randomness=0 f_fn1=ident f_fn2=acos
  f_fn3=cosh
outside:
  filename="mt.ucl" entry="mt-popcorn-trap" transfer=cuberoot repeat=yes
  p_trap_mode="Smallest trap" p_color_mode="Martin" p_start=0/0 p_skip=0
  p_no_of_iters=0 p_a=0.05 p_max_iterations=10 p_scale=0.5 p_a2=3.14159
  p_m_iterations=2 p_mscale=0.05 p_randomness=0 f_fn1=ident f_fn2=acos
  f_fn3=cosh
gradient:
  smooth=yes numnodes=4 index=37 color=6526046 index=96 color=13318076
  index=251 color=15216621 index=358 color=7915842
alpha:
  smooth=yes numnodes=5 index=49 alpha=32 index=59 alpha=252 index=81
  alpha=28 index=173 alpha=0 index=390 alpha=252
layer:
  caption="New Layer 3" opacity=100 visible=yes alpha=yes
  mergemode=addition
mapping:
  center=-0.138519448321278147/-0.0407386689248741939
  magn=0.522045776761016187 angle=0
formula:
  filename="zg.frm" entry="worms" maxiter=100 percheck=normal
inside:
  transfer=none repeat=yes
outside:
  filename="mt.ucl" entry="mt-popcorn-trap" transfer=cuberoot repeat=yes
  p_trap_mode="Smallest trap" p_color_mode="Martin" p_start=0/0 p_skip=0
  p_no_of_iters=0 p_a=0.05 p_max_iterations=10 p_scale=0.5 p_a2=3.14159
  p_m_iterations=2 p_mscale=0.05 p_randomness=0 f_fn1=ident f_fn2=acos
  f_fn3=cosh
gradient:
  smooth=yes numnodes=5 index=2 color=10657206 index=95 color=14934136
  index=164 color=12203937 index=212 color=4689178 index=396 color=5824450
alpha:
  smooth=yes numnodes=5 index=10 alpha=28 index=102 alpha=0 index=319
  alpha=252 index=378 alpha=32 index=388 alpha=252
layer:
  caption="Layer 1" opacity=100 visible=yes alpha=no mergemode=hardlight
mapping:
  center=-0.138519448321278147/-0.0407386689248741939
  magn=0.522045776761016187 angle=0
formula:
  filename="zg.frm" entry="worms" maxiter=100 percheck=normal
inside:
  transfer=none repeat=yes
outside:
  filename="mt.ucl" entry="mt-popcorn-trap" transfer=cuberoot repeat=yes
  p_trap_mode="Smallest trap" p_color_mode="Trap magnitude" p_start=0/0
  p_skip=0 p_no_of_iters=0 p_a=0.05 p_max_iterations=10 p_scale=0.5
  p_a2=3.14159 p_m_iterations=10 p_mscale=1 p_randomness=0 f_fn1=ident
  f_fn2=ident f_fn3=cosh
gradient:
  smooth=yes numnodes=5 index=22 color=15245605 index=90 color=9170248
  index=252 color=15471944 index=332 color=9912166 index=391 color=1304189
layer:
  caption="New Layer 2" opacity=100 visible=yes alpha=no mergemode=color
mapping:
  center=-0.138519448321278147/-0.0407386689248741939
  magn=0.522045776761016187 angle=0
formula:
  filename="zg.frm" entry="worms" maxiter=100 percheck=normal
inside:
  transfer=none repeat=yes
outside:
  filename="mt.ucl" entry="mt-popcorn-trap" density=2 transfer=cuberoot
  repeat=yes p_trap_mode="Smallest trap" p_color_mode="Martin" p_start=0/0
  p_skip=0 p_no_of_iters=0 p_a=0.05 p_max_iterations=10 p_scale=0.5
  p_a2=3.14159 p_m_iterations=5 p_mscale=0.1 p_randomness=0 f_fn1=ident
  f_fn2=ident f_fn3=cosh
gradient:
  smooth=yes numnodes=3 index=18 color=5777015 index=178 color=3514282
  index=259 color=4219052
}

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

c2 = 0.68162298

d1 = -0.95945197

d5 = -0.458745

d12 = -0.425805

d15 = -0.27162501

d19 = 0.74061501

d22 = -0.85935098

d28 = 0.80472797

d29 = 0.45210201

d36 = 0.101955

d37 = -0.24247

d41 = 0.54387999

d43 = 0.887016

d44 = 0.12659401

d46 = -0.72129899

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

s0 = y

s0 = s0 /c2

newx = s0 

s0 = y

s0 = s0 /d1

s0 = s0 +y

s0 = s0 *y

s0 = s0 -d5

s0 = s0 -y

s0 = s0 +y

s1 =d12

s1 = s1 *x

s1 = s1 /x

s1 = s1 -d15

s0 = s0 *s1

s0 = s0 /x

s0 = s0 +d19

s1 = y

s1 = s1 -d22

s1 = s1 +x

s1 = s1 *y

s1 = s1 *y

s0 = s0 *s1

s1 =d28

s2 =d29

s1 = s1 -s2

s0 = s0 *s1

s0 = s0 /y

s0 = s0 /x

s0 = s0 *d36

s1 =d37

s0 = s0 *s1

s1 =d41

s1 = s1 -y

s1 = s1 /d43

s1 = s1 -d44

s0 = s0 -s1

s0 = s0 *d46

s0 = s0 -x

newy = s0 

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