% `Connectors.m4'
.PS
cct_init

T:[
 ifelse(ifmpost(T)`'ifpostscript(T),,`command "{\sf"')
 S1: tstrip(U)
  thinlines_
  arrow <- left 0.15 from S1.L1; "L1" rjust
  arrow <- left 0.15 from S1.L4; "L4" wid 0.2 rjust
  "$\vdots$" at (0.5 between last "" and 2nd last "")+(-0.15,0.02)
  arrow <- right 0.25 from S1.R1; "R1" ljust
  arrow <- right 0.25 from S1.R4; "R4" ljust
  "$\vdots$" at (0.5 between last "" and 2nd last "")+(0.15,0.02)
  arrow <- right 0.15 up 0.10 from S1.T1; "T1" ljust
  arrow <- right 0.15 up 0.10 from S1.T4; "T4" ht 11 pt__ ljust
  "$\vdots$" at (0.5 between last "" and 2nd last "")+(0.15,0.02)
  thicklines_
  "`\tt tstrip(U)'" at S1.s+(0,-0.15)
 S2: tstrip(R,5,DO;wid=1.0;ht=0.25) with .sw at S1.se+(0.75,0)
  thinlines_
  arrow <- up 0.2 right 0.1 from S2.T1; "T1" above 
  arrow <- up 0.2 right 0.1 from S2.T5; "T5" above 
  "$\cdots$" at 0.5 between last "" and 2nd last "" above
 `"\tt tstrip(R,5,DO;wid=1.0;ht=0.25)"' wid 2.4 ht 0.1 at S2.se+(0,-0.15)
 ifelse(ifmpost(T)`'ifpostscript(T),,`command "}"')
]

C: [
  C1: ccoax
    `"\tt ccoax\vphantom{(}"' ht 11 pt__ at C1.s below
    thinlines_
    arrow <- up 0.15 right 0.15 from C1.C.ne; "C" ljust
    arrow <- up 0.15 left 0.15 from C1.S.nw; "S" wid 0.1 ht 11pt__ rjust
    thicklines_
  C2: ccoax(at C1+(0.75,0),F)
    `"\tt ccoax(,F)"' ht 11 pt__ wid 0.65 at C2.s below
  ] with .C1.sw at T.S2.se+(1.5,0)

P1: [ 
  C1: pconnex(,A)
   thinlines_
   arrow <- up 0.2 from C1.H.t; `"\sl H"' above
   arrow <- up 0.2 from C1.N.t; `"\sl N"' ht 11pt__ above
   arrow <- left 0.3 from C1.G.w; `"\sl G"' wid 0.1 rjust
   thicklines_
   `"\tt pconnex(,A)"' at C1.s below
  C2: pconnex(,AF) with .w at C1.e+(0.3,0)
   thinlines_
   arrow <- up 0.2 from C2.H.t; `"\sl H"' above
   arrow <- up 0.2 from C2.N.t; `"\sl N"' above
   arrow <- left 0.3 from C2.G.w; `"\sl G"' rjust
   `"\tt (,AF)"' at C2.s below
  C3: pconnex(,ACRF) with .w at C2.e+(0.2,0)
   `"\tt (,ACRF)"' at C3.s below
  C4: pconnex(,P) with .w at C3.e+(0.2,0)
   `"\tt (,P)"' at (C4,last "") below
  C5: pconnex(U,D) with .w at C4.e+(0.2,0)
   `"\tt (U,D)"' at C5.s below
  C6: pconnex(U,DF) with .w at C5.e+(0.2,0)
   `"\tt (U,DF)"' at C6.s below
  C7: pconnex(U,J) with .w at C6.e+(0.2,0)
   `"\tt (U,J)"' at C7.s below
  C8: pconnex(U,JF) with .w at C7.e+(0.2,0)
   `"\tt (U,JF)"' at C8.s below
  ] with .nw at T.sw+(0,-0.15)

P2: [ 
  C9: pconnex(R,G)
   `"\tt (,G)"' at C9.s below
  C10: pconnex(,GCF) with .w at C9.e + (0.2,0)
   `"\tt (,GCF)"' ht 11pt__ at C10.s below
 ] with .nw at P1.C1.sw + (0,-0.3)

.PE