PS
# `GroundsDPV.m4'
cct_init(svg_font(sans-serif,11bp__))

sep = 0.65
Ground: ground
  move right sep
GT: ground(,T)
  move right sep
GF: ground(,,F)
sep = 0.55
  move right sep
GE: ground(,,E)
  move right sep

B: Here+(0,-0.5)
D: B+(0,11bp__)
{ "`ground'" wid 36bp__ at (Ground,B)
  "`ground'(,T)" at (GT,B)+(0,11bp__)
  "(,,F)" at (GF,B)
  "(,,E)" at (GE,D)}


GS: ground(,,S)
  move right sep
GS90: [ground(,,S,90) ] with .n at Here
  move right sep from GS90.n
GQ: ground(,,Q)
  move right sep
GL: ground(,,L)
  move right sep
GP: ground(,,P)
  move right sep
GPA: ground(,T,PA)

C: Here+(0,-0.5)
E: C+(0,11bp__)
  "(,,S)" at (GS,C)
  "(,,S,90)" at (GS90,E)
  "(,,Q)" at (GQ,C)
  "(,,L)" at (GL,E)
  "(,,P)" at (GP,C)
  "(,T,PA)" wid 32bp__ at (GPA,E)

command "</g>" # end font
PE