.PS
# `ConnMan.m4'
cct_init

Y: [
# move to P3.end+(0.3,0)
  P4: tconn(,<)
  {`"\tt tconn(,<)"' at last line.c+(0,-0.2)}
  move to P4.end+(0.35,0)
  P5: tconn(,<<)
  {`"\tt $\ldots$(,<{}<)"' at last line.c+(0,-0.2)}
  move to P5.end+(0.3,0)
  P6: tconn(,A)
  {`"\tt $\ldots$(,A)"' at last line.c+(0,-0.2)}
  move to P6.end+(0.3,0)
  P7: tconn(,M)
  {`"\tt $\ldots$(,M)"' at last line.c+(0,-0.2)}
  move to P4.start+(0,-0.5)
  P2: tconn(,>)
  {`"\tt $\ldots$(,>)"' at last line.c+(0,-0.2)}
  move to Here+(0.35,0)
  P3: tconn(,>>)
  {`"\tt $\ldots$(,>{}>)"' at last line.c+(0,-0.2)}
  move to P3.end+(0.3,0)
  P1: tconn(,O)
  {`"\tt $\ldots$(,O)"' at last line.c+(0,-0.2) wid 43 pt__ }
  ]

P:[
A: Pconn( 3)
B: Pconn(-3,L,type=A) with .w at A.e+(0.15,0)
  `"\tt Pconn(3)"' at A.s+(-0.2,-0.4)
  `"\tt Pconn(-3,L,A)"' at (B.w,last "") ljust

  thinlines_
  line <- up_ 0.15 from A.T1.start; "{\sl T1}{\tt.start}" above 
  line <- down_ 0.15 from A.T3.start; "{\sl T3}{\tt.start}" below 
  line <- up_ 0.15 from B.T1.start; "{\sl T1}{\tt.start}" above 
  line <- down_ 0.15 from B.T3.start; "{\sl T3}{\tt.start}" below 
  thicklines_
  ] with .sw at Y.se+(0.4,0)

.PE
