.PS
# HeadersDPV.m4
log_init(svg_font(sans-serif,10bp__))

  Header
  {"svg_it(P1)" wid 15bp__ at last [].P1 rjust
  `"Header"' wid 45bp__ at last [].s+(0,-10pt__)
   "svg_it(P2)" at last [].P2 rjust
   thinlines_
   arrow <- from last [].Block.ne-(0,0.1) up 0.15 right 0.15
   "svg_it(Block)" ljust
   thicklines_ }

  Header(2,3,8mm__,10mm__) with .nw at last [].ne+(0.75,-0.05)
  {"svg_it(P1)" at last [].P1 rjust
  "`Header(2,3,8mm__,10mm__)'" at last [].s+(0,-10pt__)
   "svg_it(P2)" at last [].P2 ljust
   "svg_it(P5)" at last [].P5 rjust
   "svg_it(P6)" at last [].P6 ljust}

  left_
  Header(2,4,,,fill_(0.9)) with .sw at last [].se+(0.75,0)
  {"svg_it(P1)" at last [].P1 rjust_
   "`left_; Header(2,4,,,fill_(0.9))'" at last [].s+(0,-23pt__)
   "svg_it(P8)" at last [].P8 ljust_}

  down_
  Header(2,8) with .nw at last [].ne+(0.75,0)
  {"svg_it(P1)" at last [].P1 ljust
   "svg_it(P2)" at last [].P2 ljust
   "`down_; Header'(2,8)" at last [].s+(0,-10pt__)
   "svg_it(P15)" at last [].P15 rjust
   "svg_it(P16)" at last [].P16 rjust}
  {thinlines_
   arrow <- right 0.15 from last [].PinP1.e ; {move right 0.45}
   "svg_it(PinP1)" ljust
   arrow <- right 0.15 from last [].PinP2.e
   "svg_it(PinP2)" ljust
   thicklines_ }

 command "</g>" # end font
.PE