.PS
# `ConnDPV.m4'
cct_init(svg_font(sans-serif,10.5bp__))

Y: [
# move to P3.end+(0.3,0)
  P4: tconn(,<)
  {`"tconn(,&lt;)"' wid 44bp__ at last line.c+(0,-0.2)}
  move to P4.end+(0.35,0)
  P5: tconn(,<<)
  {`"...(,&lt;&lt;)"' at last line.c+(0,-0.2)}
  move to P5.end+(0.3,0)
  P6: tconn(,A)
  {`"...(,A)"' at last line.c+(0,-0.2)}
  move to P6.end+(0.3,0)
  P7: tconn(,M)
  {`"...(,M)"' at last line.c+(0,-0.2)}
  move to P4.start+(0,-0.5)
  P2: tconn(,>)
  {`"...(,>)"' at last line.c+(0,-0.2)}
  move to Here+(0.35,0)
  P3: tconn(,>>)
  {`"...(,>>)"' at last line.c+(0,-0.2)}
  move to P3.end+(0.3,0)
  P1: tconn(,O)
  {`"...(,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)
  `"Pconn(3)"' at A.s+(-0.2,-0.4)
  `"Pconn(-3,L,A)"' wid 65bp__ at (B.w,last "") ljust

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

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