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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
|
.PS
# Switches.m4
cct_init
movewid = 0.25
moveht = moveht*1.25
right_; {
lswitch; rlabel(,`\hbox{\tt `lswitch'}')
move right_
lswitch(,,O); rlabel(,`\hbox{\tt (,{,}O)}')
move right_
lswitch(,,C); rlabel(,`\hbox{\tt (,{,}C)}')
move right_
lswitch(,,DA); rlabel(,`\hbox{\tt (,{,}DA)}')
move right_
lswitch(,,DO); rlabel(,`\hbox{\tt (,{,}DO)}')
move right_
lswitch(,,DC); rlabel(,`\hbox{\tt (,{,}DC)}')
}
move down; right_; {
lswitch(,,K); rlabel(,`\hbox{\tt (,{,}K)}')
move right_
lswitch(,,KD); rlabel(,`\hbox{\tt (,{,}KD)}')
move right_
lswitch(,,KOD); rlabel(,`\hbox{\tt (,{,}KOD)}')
move right_
lswitch(,,KCD); rlabel(,`\hbox{\tt (,{,}KCD)}')
move right_
bswitch; rlabel(,`\hbox{\tt `bswitch'}')
move right_
bswitch(,,C); rlabel(,`\hbox{\tt (,{,}C)}')
}
move down; right_; {
S: dswitch(,,)
ifgpic(`{[line invis] at S.c+(0,-0.2)}')
rlabel(,`\hbox{\tt \shortstack{`dswitch'=\\`switch'(,{,},D)}}')
thinlines_
{ spline <- from 0.25 along_(S) up 0.1 then up 0.05 left 0.1
"\tt W" rjust
spline <- from S.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
"\tt B" rjust }
thicklines_
move right_
S: dswitch(,,WdBK); rlabel(,`\hbox{\tt (,{,}WdBK)}')
thinlines_
{ spline <- from tr_xy(0,-2) up 0.1 then up 0.10 left 0.1
"\tt dB" rjust
spline <- from tr_xy(4,-2) right 0.1 then right 0.05 up 0.15
"\tt K" above }
thicklines_
move right_
dswitch(,,WBuD); rlabel(,`\hbox{\tt (,{,}WBuD)}')
move right_
dswitch(,,WdBKF); rlabel(,`\hbox{\tt (,{,}WdBKF)}')
move right_
dswitch(,,WBL); rlabel(,`\hbox{\tt (,{,}WBL)}')
move right_
dswitch(,,WdBKL); rlabel(,`\hbox{\tt (,{,}WdBKL)}')
}
move down; right_; {
dswitch(,,WBT); rlabel(,`\hbox{\tt (,{,}WBT)}')
move right_
dswitch(,,WdBKC); rlabel(,`\hbox{\tt (,{,}WdBKC)}')
move right_
dswitch(,,WBM); rlabel(,`\hbox{\tt (,{,}WBM)}')
move right_
dswitch(,,WBCO); rlabel(,`\hbox{\tt (,{,}WBCO)}')
move right_
dswitch(,,WBMP); rlabel(,`\hbox{\tt (,{,}WBMP)}')
move right_
dswitch(,,WBoKCP); rlabel(,`\hbox{\tt (,{,}WBoKCP)}')
}
move down; right_; {
dswitch(,,WBCY); rlabel(,`\hbox{\tt (,{,}WBCY)}')
move right_
dswitch(,,WBCZ); rlabel(,`\hbox{\tt (,{,}WBCZ)}')
move right_
dswitch(,,WBCE); rlabel(,`\hbox{\tt (,{,}WBCE)}')
move right_
dswitch(,,WBRH); rlabel(,`\hbox{\tt (,{,}WBRH)}')
move right_
dswitch(,,WBRdH); rlabel(,`\hbox{\tt (,{,}WBRdH)}')
move right_
dswitch(,,WBRHH); rlabel(,`\hbox{\tt (,{,}WBRHH)}')
}
move down; right_; {
dswitch(,,WBMMR); rlabel(,`\hbox{\tt (,{,}WBMMR)}')
move right_
dswitch(,,WBMM); rlabel(,`\hbox{\tt (,{,}WBMM)}')
move right_
dswitch(,,WBMR); rlabel(,`\hbox{\tt (,{,}WBMR)}')
move right_
dswitch(,,WBEL); rlabel(,`\hbox{\tt (,{,}WBEL)}')
move right_
dswitch(,,WBLE); rlabel(,`\hbox{\tt (,{,}WBLE)}')
move right_
dswitch(,,WdBoKEL); rlabel(,`\hbox{\tt (,{,}WdBoKEL)}')
}
.PE
|