.PS
# Grounds.m4
cct_init

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__)

 { "{\tt `ground'}" wid 32bp__ at (Ground,B)
   "{\tt `ground'(,T)}" at (GT,B)+(0,11bp__)
   "{\tt (,{,}F)}" at (GF,B)
   "{\tt (,{,}E)}" at (GE,D)}


GS: ground(,dimen_/2,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__)
   "{\tt (,dimen\_/2,S)}" at (GS,C)
   "{\tt (,{,}S,90)}" at (GS90,E)
   "{\tt (,{,}Q)}" at (GQ,C)
   "{\tt (,{,}L)}" at (GL,E)
   "{\tt (,{,}P)}" at (GP,C)
   "{\tt (,T,PA)}" at (GPA,E)

.PE