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
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
|
.PS
# Switches.m4
cct_init
movewid = 0.25
# Row 1
right_; {
lswitch; {S:"\tt ls{}witch" at last [].s+(0,-10bp__)}
move right_
lswitch(,,O); {"\tt (,,O)" at (last [],S)}
move right_
lswitch(,,C); {"\tt (,,C)" at (last [],S)}
move right_
lswitch(,,DA); {"\tt (,,DA)" at (last [],S)}
move right_
lswitch(,,dDO); {"\tt (,,dDO)" at (last [],S)}
move right_
lswitch(,,uDC); {"\tt (,,uDC)" at (last [],S)}
}
# Row 2
move down; right_; {
lswitch(,,K); {S:"\tt (,,K)" at last [].s+(0,-10bp__)}
move right_
lswitch(,,KD); {"\tt (,,KD)" at (last [],S)}
move right_
lswitch(,,KOD); {"\tt (,,KOD)" at (last [],S)}
move right_
lswitch(,,KCD); {"\tt (,,KCD)" at (last [],S)}
move right_
bswitch; {"\tt `bswitch'" at (last [],S)}
move right_
bswitch(,,C); {"\tt (,,C)" at (last [],S)}
}
# Row 3
move down; right_; {
D: dswitch(,,); {S: "\tt ds{}witch(,{},)" at last [].s+(0,-10bp__)}
thinlines_
{ spline <- from 0.25 along_(D) up 0.1 then up 0.05 left 0.1
{"\tt W" rjust}
spline <- from D.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
{"\tt B" rjust }}
thicklines_
move right_
D: dswitch(,,WdBK); {"\tt (,,WdBK)" at (last [],S)+(0,-4bp__)}
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(,,WBmdDK); {"\tt (,,WBmdDK)" at (last [],S)}
move right_
dswitch(,,WBKTr); {"\tt (,,WBKTr)" at (last [],S)}
move right_
dswitch(,,WdBL); {"\tt (,,WdBL)" at (last [],S+(0,-4bp__))}
move right_
dswitch(,,WBCo); {"\tt (,,WBCo)" at (last [],S)}
}
# Row 4
move down; right_; {
dswitch(,,WBKCo); {S: "\tt (,,WBKCo)" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBCb); {"\tt (,,WBCb)" at (last [],S)}
move right_
dswitch(,,WBDI); {"\tt (,,WBDI)" at (last [],S)}
move right_
dswitch(,,WBSd); {"\tt (,,WBSd)" at (last [],S)}
move right_
dswitch(,,WBFDI); {"\tt (,,WBFDI)" at (last [],S)}
move right_
dswitch(,,WBFSd); {"\tt (,,WBFSd)" at (last [],S)}
}
# Row 5
move down moveht*5/4; right_; {
dswitch(,,WBTh); {S: "\tt (,,WBTh)" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBKC); {"\tt (,,WBKC)" at (last [],S)}
move right_
dswitch(,,WBM); {"\tt (,,WBM)" at (last [],S)}
move right_
dswitch(,,WBCO); {"\tt (,,WBCO)" at (last [],S)}
move right_
dswitch(,,WBMP); {"\tt (,,WBMP)" at (last [],S)}
move right_
dswitch(,,WBoKCP); {"\tt (,,WBoKCP)" at (last [],S)}
}
# Row 6
move down moveht*5/4; right_; {
dswitch(,,WBCY); {S: "\tt (,,WBCY)" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBCZ); {"\tt (,,WBCZ)" at (last [],S)}
move right_
dswitch(,,WBCE); {"\tt (,,WBCE)" at (last [],S)}
move right_
dswitch(,,WBRH); {"\tt (,,WBRH)" at (last [],S)}
move right_
dswitch(,,WBRdH); {"\tt (,,WBRdH)" at (last [],S)}
move right_
dswitch(,,WBRHH); {"\tt (,,WBRHH)" at (last [],S)}
}
# Row 7
move down; right_; {
dswitch(,,WBMMR); {S: "\tt (,,WBMMR)" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBMM); {"\tt (,,WBMM)" at (last [],S)}
move right_
dswitch(,,WBMR); {"\tt (,,WBMR)" at (last [],S)}
move right_
dswitch(,,WBEL); {"\tt (,,WBEL)" at (last [],S)}
move right_
dswitch(,,WBLE); {"\tt (,,WBLE)" at (last [],S)}
move right_
dswitch(,,WBoKEL); {"\tt (,,WBoKEL)" at (last [],S)}
}
.PE
|