kissing_insects {
fractal:
  title="kissing_insects" width=320 height=240 numlayers=1
layer:
  caption="Layer 1" visible=yes alpha=no
mapping:
  center=0.146998962080630897/0.0966697587294424633
  magn=19.8856824915647286 angle=0
formula:
  filename="zg.frm" entry="worms" maxiter=1000 percheck=normal
inside:
  transfer=none repeat=yes
outside:
  filename="dmj.ucl" entry="dmj-Trap" transfer=linear repeat=yes
  p_trapshape="egg" p_trapcolor="distance" 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"
gradient:
  smooth=yes numnodes=7 index=80 color=1521403 index=120 color=1628661
  index=137 color=1762294 index=156 color=1585711 index=191 color=13467879
  index=207 color=6092957 index=217 color=2172823
}

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 
}