.PS
gen_init

define Dark {rgbstring(12/255,81/255,122/255)}
define(`LIGHT',`244/255,244/255,30/255')
define Light {rgbstring(LIGHT)}
define(`RED',`217/255,30/255,30/255')
define Red {rgbstring(RED)}

scale = 2/3
  sk = 2
  boxwid = 8.2/sk
  boxht = boxwid/2
  nlines = 115
  lw = boxwid/nlines
  spl_tens = ctension_

 Box: box invis
 BL: box invis ht Box.ht wid Box.wid/2-lw/2 shaded Light with .sw at Box.sw
 BR: box invis ht Box.ht wid Box.wid/2+lw/2 shaded Dark with .sw at BL.se

define coord { Box.nw+($`'1)/sk }
define mirror { (Box.nw.x+2.28-$`'1.x/sk,Box.nw.y+$`'1.y/sk) }

D1[m4inx]: 2.28,-0.43
D1[m4inx]: 2.71,-0.49
D1[m4inx]: 3.14,-0.63
D1[m4inx]: 3.56,-0.89
D1[m4inx]: 3.85,-1.33
D1[m4inx]: 3.88,-1.65
D1[m4inx]: 3.85,-1.96
D1[m4inx]: 3.82,-2.11
D1[m4inx]: 3.77,-2.09
D1[m4inx]: 3.64,-1.80
D1[m4inx]: 3.61,-1.70
D1[m4inx]: 3.58,-1.58
D1[m4inx]: 3.57,-1.57
D1[m4inx]: 3.57,-1.56
D1[m4inx]: 3.52,-1.44
D1[m4inx]: 3.57,-1.99
D1[m4inx]: 3.70,-2.29
D1[m4inx]: 3.85,-2.55
D1[m4inx]: 3.94,-2.80
D1[m4inx]: 3.95,-2.92
D1[m4inx]: 3.95,-2.97
D1[m4inx]: 3.86,-3.21
D1[m4inx]: 3.35,-3.51
D1[m4inx]: 3.21,-3.60
D1[m4inx]: 3.16,-3.71
D1[m4inx]: 3.16,-4.10
n1 = m4x

define(`m4x',0)
D2[m4inx]: 2.88,-4.10
D2[m4inx]: 2.80,-4.02
D2[m4inx]: 2.78,-4.02
D2[m4inx]: 2.70,-4.03
D2[m4inx]: 2.68,-4.10
n2 = m4x

define(`m4x',0)
D3[m4inx]: 2.36,-4.10
D3[m4inx]: 2.34,-4.04
D3[m4inx]: 2.28,-4.04
n3 = m4x

define(`m4x',0)
D4[m4inx]: 2.40,-2.46
D4[m4inx]: 2.45,-2.72
D4[m4inx]: 2.60,-2.82
D4[m4inx]: 2.78,-3.01
D4[m4inx]: 2.99,-3.21
D4[m4inx]: 3.20,-3.28
D4[m4inx]: 3.43,-3.24
D4[m4inx]: 3.63,-3.08
D4[m4inx]: 3.72,-2.86
D4[m4inx]: 3.73,-2.74
D4[m4inx]: 3.70,-2.62
D4[m4inx]: 3.55,-2.43
D4[m4inx]: 3.35,-2.30
D4[m4inx]: 3.00,-2.22
D4[m4inx]: 2.64,-2.24
D4[m4inx]: 2.43,-2.36
D4[m4inx]: 2.40,-2.45
n4 = m4x

define(`m4x',0)
D5[m4inx]: 2.28,-3.17
D5[m4inx]: 2.47,-3.49
D5[m4inx]: 2.57,-3.52
D5[m4inx]: 2.66,-3.45
D5[m4inx]: 2.63,-3.30
D5[m4inx]: 2.38,-2.95
D5[m4inx]: 2.33,-2.89
D5[m4inx]: 2.28,-2.90
n5 = m4x

define(`skull',`[
  setrgb(RED)
  rgbfill(RED,`
  spline spl_tens  from coord(D1[1]) to coord(D1[2]) 
  for i=3 to n1 do { continue to coord(D1[i]) }
  line to coord(D2[1]) 
  spline spl_tens to coord(D2[2]) then to coord(D2[3]) \
    then to coord(D2[4]) then to coord(D2[5])
  line  to coord(D3[1])
  spline spl_tens  to coord(D3[1]) to coord(D3[2]) then to coord(D3[3]) \
    then to mirror(D3[2]) then to mirror(D3[1])
  line  to mirror(D2[5])
  spline spl_tens to mirror(D2[4]) then to mirror(D2[3]) \
    then to mirror(D2[2]) then to mirror(D2[1])
  line  to mirror(D1[n1])
  spline spl_tens to mirror(D1[n1-1])
  for i=n1-2 to 1 by -1 do { continue to mirror(D1[i]) }
')
#
  spline spl_tens outlined Red shaded `$1' from coord(D4[1]) to coord(D4[1])
  for i=2 to n4 do { continue to coord(D4[i]) }
  continue to coord(D4[1])

  spline spl_tens outlined Red shaded `$1' from mirror(D4[1]) to mirror(D4[1])
  for i=2 to n4 do { continue to mirror(D4[i]) }
  continue to mirror(D4[1])
#
  spline spl_tens outlined Red shaded `$1' from coord(D5[1]) to coord(D5[1])
  for i=2 to n5 do { continue to coord(D5[i]) }
  for i=n5-1 to 2 by -1 do { continue to mirror(D5[i]) }
  continue to mirror(D5[1])
  resetrgb
 ]')

  skull(`Light') with .n at coord(D1[1])
  D: coord(D1[1])-Box.nw
  skull(`Dark') with .n at Box.ne + (-D.x+lw,D.y)

  for i=0 to (nlines-1)/2 by 2 do {
    line thick lw/(1bp__) outlined Dark from BL.sw+(lw*(i+0.5),0) up boxht
    line thick lw/(1bp__) outlined Light from BR.sw+(lw*(i+0.5),0) up boxht
 }

.PE
