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
118
119
|
.PS
# SwitchesSVG.m4
cct_init(svg_font(sans-serif,11bp__,2bp__))
textoffset = 3bp__
movewid = 0.25
# Row 1
right_; {
lswitch; {S:"svg_tt(`lswitch')" at last [].s+(0,-10bp__)}
move right_
lswitch(,,O); {"svg_tt(`(,,O)')" at (last [],S)}
move right_
lswitch(,,C); {"svg_tt(`(,,C)')" at (last [],S)}
move right_
lswitch(,,DA); {"svg_tt(`(,,DA)')" at (last [],S)}
move right_
lswitch(,,dDO); {"svg_tt(`(,,dDO)')" at (last [],S)}
move right_
lswitch(,,uDC); {"svg_tt(`(,,uDC)')" at (last [],S)}
}
# Row 2
move down; right_; {
lswitch(,,K); {S:"svg_tt(`(,,K)')" at last [].s+(0,-10bp__)}
move right_
lswitch(,,KD); {"svg_tt(`(,,KD)')" at (last [],S)}
move right_
lswitch(,,KOD); {"svg_tt(`(,,KOD)')" at (last [],S)}
move right_
lswitch(,,KCD); {"svg_tt(`(,,KCD)')" at (last [],S)}
move right_
bswitch; {"svg_tt(``bswitch'')" at (last [],S)}
move right_
bswitch(,,C); {"svg_tt(`(,,C)')" at (last [],S)}
}
# Row 3
move down; right_; {
D: dswitch(,,); {S: "svg_tt(`dswitch(,,)')" at last [].s+(0,-10bp__)}
thinlines_
{ spline <- from 0.25 along_(D) up 0.1 then up 0.05 left 0.1
{"svg_tt(`W')" rjust}
spline <- from D.c+(0,m4sc*2) up 0.1 then up 0.05 left 0.1
{"svg_tt(`B')" rjust }}
thicklines_
move right_
D: dswitch(,,WdBK); {"svg_tt(`(,,WdBK)')" at (last [],S)+(0,-4bp__)}
thinlines_
{ spline <- from tr_xy(0,-2) up 0.1 then up 0.10 left 0.1
{"svg_tt(`dB')" rjust}
spline <- from tr_xy(4,-2) right 0.1 then right 0.05 up 0.15
{"svg_tt(`K')" above }}
thicklines_
move right_
dswitch(,,WBmdDK); {"svg_tt(`(,,WBmdDK)')" at (last [],S)}
move right_
dswitch(,,WBKTr); {"svg_tt(`(,,WBKTr)')" at (last [],S)}
move right_
dswitch(,,WdBL); {"svg_tt(`(,,WdBL)')" at (last [],S+(0,-4bp__))}
move right_
dswitch(,,WBCo); {"svg_tt(`(,,WBCo)')" at (last [],S)}
}
# Row 4
move down; right_; {
dswitch(,,WBKCo); {S: "svg_tt(`(,,WBKCo)')" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBCb); {"svg_tt(`(,,WBCb)')" at (last [],S)}
move right_
dswitch(,,WBDI); {"svg_tt(`(,,WBDI)')" at (last [],S)}
move right_
dswitch(,,WBSd); {"svg_tt(`(,,WBSd)')" at (last [],S)}
move right_
dswitch(,,WBFDI); {"svg_tt(`(,,WBFDI)')" at (last [],S)}
move right_
dswitch(,,WBFSd); {"svg_tt(`(,,WBFSd)')" at (last [],S)}
}
# Row 5
move down moveht*5/4; right_; {
dswitch(,,WBTh); {S: "svg_tt(`(,,WBTh)')" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBKC); {"svg_tt(`(,,WBKC)')" at (last [],S)}
move right_
dswitch(,,WBM); {"svg_tt(`(,,WBM)')" at (last [],S)}
move right_
dswitch(,,WBCO); {"svg_tt(`(,,WBCO)')" at (last [],S)}
move right_
dswitch(,,WBMP); {"svg_tt(`(,,WBMP)')" at (last [],S)}
move right_
dswitch(,,WBoKCP); {"svg_tt(`(,,WBoKCP)')" at (last [],S)}
}
# Row 6
move down moveht*5/4; right_; {
dswitch(,,WBCY); {S: "svg_tt(`(,,WBCY)')" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBCZ); {"svg_tt(`(,,WBCZ)')" at (last [],S)}
move right_
dswitch(,,WBCE); {"svg_tt(`(,,WBCE)')" at (last [],S)}
move right_
dswitch(,,WBRH); {"svg_tt(`(,,WBRH)')" at (last [],S)}
move right_
dswitch(,,WBRdH); {"svg_tt(`(,,WBRdH)')" at (last [],S)}
move right_
dswitch(,,WBRHH); {"svg_tt(`(,,WBRHH)')" at (last [],S)}
}
# Row 7
move down; right_; {
dswitch(,,WBMMR); {S: "svg_tt(`(,,WBMMR)')" at last [].s+(0,-10bp__)}
move right_
dswitch(,,WBMM); {"svg_tt(`(,,WBMM)')" at (last [],S)}
move right_
dswitch(,,WBMR); {"svg_tt(`(,,WBMR)')" at (last [],S)}
move right_
dswitch(,,WBEL); {"svg_tt(`(,,WBEL)')" at (last [],S)}
move right_
dswitch(,,WBLE); {"svg_tt(`(,,WBLE)')" at (last [],S)}
move right_
dswitch(,,WBoKEL); {"svg_tt(`(,,WBoKEL)')" at (last [],S)}
}
command "</g>')" # end font
.PE
|