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
|
.PS
# ContactDPV
cct_init
svg_font(sans-serif,11bp__)
movw = 0.45
{
contact
{S:"svg_tt(`contact')" at last [].s+(0,-0.15)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O
"svg_it(`C')" ljust at last [].C }
move right_ movw; contact(R)
{"svg_tt(`(R)')" at (last [].s,S)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O
"svg_it(`C')" ljust at last [].C }
move right_ movw; contact(O); {"svg_tt(`(O)')" at (last [],S)}
move right_ movw; contact(C); {"svg_tt(`(C)')" at (last [],S)}
move right_ movw; contact(P)
{S: "svg_tt(`(P)')" at last [].s+(0,-0.15)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O
"svg_it(`C')" ljust at last [].C }
move right_ movw; contact(PR)
{S: "svg_tt(`(PR)')" at last [].s+(0,-0.15)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O
"svg_it(`C')" ljust at last [].C }
move right_ movw; contact(PO); {"svg_tt(`(PO)')" at (last [],S)}
{"svg_it(`O')" ljust at last [].O
"svg_it(`C')" ljust at last [].C }
move right_ movw; contact(PC); {"svg_tt(`(PC)')" at (last [],S)}
}
move down 0.75; right_ ; {
contact(I); {S: "svg_tt(`(I)')" at last [].s+(0,-12bp__)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O.e
"svg_it(`C')" ljust at last [].C.e }
move right_ movw; contact(RI)
{"svg_tt(`(RI)')" at (last [],S)
"svg_it(`P')" rjust at last [].P.w
"svg_it(`O')" ljust at last [].O.e
"svg_it(`C')" ljust at last [].C.e }
move right_ movw; contact(OI); {"svg_tt(`(OI)')" at (last [],S)}
move right_ movw; contact(CI); {"svg_tt(`(CI)')" at (last [],S)}
move right_ movw; contact(PI); {"svg_tt(`(PI)')" at (last [],S) }
{"svg_it(`O')" ljust at last [].O.e
"svg_it(`C')" ljust at last [].C.e }
move right_ movw; contact(PIO); {"svg_tt(`(PIO)')" at (last [],S) }
move right_ movw; contact(PIC); {"svg_tt(`(PIC)')" at (last [],S) }
}
movewid = movw
move down 0.65; right_; {
K: contact(T)
{S: "svg_tt(`(T)')" at last [].s+(0,-0.15)
thinlines_
spline <- right 0.09 then up 0.05 right 0.05 from K.C; "svg_it(`C')"
spline <- right 0.09 then down 0.05 right 0.05 from K.O; "svg_it(`O')"
thicklines_ }
move; K: contact(RT)
{"svg_tt(`(RT)')" at (last [],S)
thinlines_
spline <- right 0.09 then up 0.05 right 0.05 from K.O; "svg_it(`O')"
spline <- right 0.09 then down 0.05 right 0.05 from K.C; "svg_it(`C')"
thicklines_ }
move; contact(OT); {S: "svg_tt(`(OT)')" at (last [],S) }
move; contact(CT); {S: "svg_tt(`(CT)')" at (last [],S) }
move; contact(PT); {S: "svg_tt(`(PT)')" at (last [],S) }
move; contact(PTO); {S: "svg_tt(`(PTO)')" at (last [],S) }
move; contact(PTC); {S: "svg_tt(`(PTC)')" at (last [],S) }
}
move down 0.65; right_; {
K: contact(U)
{S: "svg_tt(`(U)')" at last [].s+(0,-0.15)
thinlines_
spline <- right 0.09 then up 0.05 right 0.05 from K.C; "svg_it(`C')"
spline <- right 0.09 then down 0.05 right 0.05 from K.O; "svg_it(`O')"
thicklines_ }
move; K: contact(RU)
{"svg_tt(`(RU)')" at (last [],S)
thinlines_
spline <- right 0.09 then up 0.05 right 0.05 from K.O; "svg_it(`O')"
spline <- right 0.09 then down 0.05 right 0.05 from K.C; "svg_it(`C')"
thicklines_ }
move; K: contact(OU); {S: "svg_tt(`(OU)')" at (last [],S)
"svg_it(`O')" ljust at K.O.e }
move; K: contact(CU); {S: "svg_tt(`(CU)')" at (last [],S)
"svg_it(`C')" ljust at K.C.e }
move; contact(PU); {S: "svg_tt(`(PU)')" at (last [],S) }
move; contact(PUO); {S: "svg_tt(`(PUO)')" at (last [],S) }
move; contact(PUC); {S: "svg_tt(`(PUC)')" at (last [],S) }
}
command "</g>" # end font
.PE
|
