% Hex.m4
.PS
gen_init
  siz = linewid/2
  srad = siz/4/2
  linethick = srad*0.8/(1bp__)
  define hex {
   [ for i=0 to 5 do {C[i]: circle rad srad fill_(1) at Rect_(linewid/2,60*i)}
     for i=0 to 5 do { line from C[i] to C[pmod(i+1,6)] chop srad } ] }

  setrgb(0,0,1)
  H1: hex
  H2: hex with .C[3] at H1.C[0]

.PE