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
|
% TW -- conductors (C)1991 Thomas Weinmann
% e-
beginchar(oct"020",17.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,(18-17.7*8/9)*ut);
z2=(17.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% i-
beginchar(oct"021",15.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,2.3ut);
z2=(15.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% a- d- h- x-
beginchar(oct"022",13.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,((18-13.7*8/7)-0.3)*ut);
z2=(13.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% u-
beginchar(oct"023",14.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,(18-14.7*16/15)*ut);
z2=(14.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% k-
beginchar(oct"024",12.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,(18-12.7*16/13)*ut);
z2=(12.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% n-
beginchar(oct"025",15.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,(18-15.7*17/16)*ut);
z2=(15.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% p-
beginchar(oct"026",14.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(0ut,(18-14.7*17/15)*ut);
z2=(14.7ut,18ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
% Start fuer verschiedene Kleinbuchstaben
beginchar(oct"027",13.7 ut#,19 ut#, 0ut#);
pickup va_pen;
%
z1=(((8-(18-15.7*17/16))*16/17)*ut,8ut)-(2ut,0ut);
z2=(15.7ut,18ut)-(2ut,0ut);
%
draw z1..z2;
%
%
labels(range 1 thru 2);
endchar;
|
