1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
.PS
# `Pconn.m4'
cct_init
P1: [
C1: pconnex(,A)
thinlines_
arrow <- left 0.2 from C1.H.w; `"\sl H"' rjust
thicklines_
`"\tt pconnex(,A)"' at last [].s below
C2: pconnex(,AF) with .w at C1.e+(0.3,0)
thinlines_
arrow <- right 0.2 up 0.1 from C2.H.e; `"\sl H"' ljust
N: box invis wid (C2.w.x-C1.e.x)/2 ht C1.N.ht \
with .n at 0.5 between C1.ne and C2.nw "\sl N"
arrow from N.w to C1.N.e
arrow from N.e to C2.N.w
G: box invis wid N.wid ht N.ht with .n at (N,C1.N.s) "\sl G"
arrow from G.w to C1.G.e
arrow from G.e to C2.G.w
`"\tt (,AF)"' at last [].s below
C03: pconnex(,AC) with .w at C2.e+(0.25,0)
`"\tt (,AC)"' at last [].s below
C3: pconnex(,ACF) with .w at last [].e+(0.2,0)
`"\tt (,ACF)"' at last [].s below
C5: pconnex(U,D) with .w at last [].e+(0.25,0)
`"\tt (U,D)"' at last [].s below
C6: pconnex(U,DF) with .w at last [].e+(0.25,0)
`"\tt (U,DF)"' at last [].s below
C7: pconnex(U,J) with .w at last [].e+(0.25,0)
`"\tt (U,J)"' at last [].s below
C8: pconnex(U,JF) with .w at last [].e+(0.25,0)
`"\tt (U,JF)"' at last [].s below
]
P2: [
C9: pconnex(,G) #with .w at last [].e+(0.2,0)
`"\tt (,G)"' at last [].s below
C91: pconnex(,GF) with .w at last [].e+(0.2,0)
`"\tt (,GF)"' at last [].s below
C92: pconnex(L,GF) with .w at last [].e+(0.2,0)
`"\tt (L,GF)"' at last [].s below
C10: pconnex(,GC) with .w at last [].e + (0.2,0)
`"\tt (,GC)"' ht 11pt__ at last [].s below
C12: pconnex(,GCF) with .w at last [].e + (0.2,0)
`"\tt (,GCF)"' ht 11pt__ at last [].s below
] with .nw at P1.C1.sw + (0,-0.35)
P3: [
C4: pconnex(,P)
`"\tt (,P)"' at last [].s below
C11: pconnex(,PF) with .w at last [].e+(0.2,0)
`"\tt (,PF)"' at (C11,last "") below
] with .nw at P2.C9.sw + (0,-0.35)
.PE
|
