summaryrefslogtreecommitdiff
path: root/language/aramaic/serto/mf/test.mf
blob: 88f4f593e73d206f17a53eea69630db13a2f1515 (plain)
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
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198

u#:=16/36pt#;         % unit width Change ONLY this
                     % parameter to change the size of the fonts.
boxx#:=4u#;          % Asyyrian font basic size boxx. 
huassyr#:=u#;
vuassyr#:=u#;
%ht#:=5boxx#;          % height of the character
font_size 10pt#;
%font_size 7boxx#;     % the design size of the fonts
%xgap#:=0.6pt#;       % horizontal adjustment

% For vowels taken from sertofont.mf
stu#:= 2.5u#;                % the unit, used in serto10.mf
hu#:=stu#;                    % the horizontal unit
vu#:=stu#;                    % the vertical unit
basestroke# := stu#;

%s#:=0#;              % extra space at the left and the right
%o#:=2boxx#;           % overshoot
%px#:=2/3pt#;         % horizontal thickness of the pen;
px#:=3/2u#;
slant :=0;           % This parameter controls the slantness of the
                     % fonts. Change it to for example 1/4 or -1/4 to 
                     % produce italic fonts.
mode_setup;
if unknown slant: slant :=0 
else: currenttransform:= identity slanted slant yscaled aspect_ratio 
fi;

%ygap#:=(ht#/13.5u#)*xgap#;   % vertical adjustment
%ho#:=0#;                     % horizontal overshoot
%leftstemloc#:=2.5u#+s#;      % position of left stem
%barheight#:=0.45ht#;         % height of bar lines
py#:=0.9px#;                 % vertical pen thickness

%% Font-Parameter for TeX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Added by Johannes Heinecke
font_quad 5u#;                 % 1 em
font_x_height 4u#;           % 1 ex (used by syriac.sty to define accent position)
font_normal_space 6u#;           % word gap
font_normal_stretch 4u#;         % word gap may stretch by ...
font_normal_shrink 2u#;          % word gap my shrink by ...
font_slant slant;


define_pixels(hu, vu, basestroke);
%%% Taken from sertobase.mf (for vowels)
  pickup pencircle xscaled .5basestroke yscaled .3basestroke; 
  vowel_pen:=savepen;

  pickup pencircle xscaled .5basestroke yscaled .2basestroke  rotated 30;
  vowelII_pen:=savepen;

  pickup pencircle xscaled .3basestroke yscaled .2basestroke  rotated 30;
  vowelIII_pen:=savepen;
let sertochar=\;


define_pixels(u,huassyr,vuassyr);
%define_whole_pixels(xgap);
%define_whole_vertical_pixels(ygap);
define_blacker_pixels(px,py);
pickup pencircle xscaled px yscaled py;
logo_pen:=savepen;
%define_good_x_pixels(leftstemloc);
%define_good_y_pixels(barheight);
%define_corrected_pixels(o);
%define_horizontal_corrected_pixels(ho);

 def makebox(text r) =

   for y=0 step u until h:
         r((0, y), (w, y));
   endfor 

   for y=0, -d, h:
         r((0, y), (w, y));
   endfor 

   % vertical lines on x-values:
   for x=0 step u until w:
           r((x, -d), (x, h)); 
   endfor
enddef;


beginchar("S",14huassyr#,12vuassyr#,0);"The letter Simkat";
z1=(0,0);
z2=(5.5huassyr,0);
z3=(5.5huassyr,1vuassyr);
z5=(7huassyr,0.3vuassyr);
z7=(8huassyr,0);
z11=(13huassyr,0);
z13=(14huassyr,1vuassyr);
z15=(14huassyr,4vuassyr);
z17=(12huassyr,10.6vuassyr);
z19=(11huassyr,11vuassyr);
z21=(9huassyr,10vuassyr);
z22=(8.52huassyr,9.32vuassyr);
z23=(8.5huassyr,9.3vuassyr);
z24=(8.48huassyr,9.32vuassyr);
z25=(6huassyr,11.7vuassyr);

z27=(5huassyr,12vuassyr);
%z29=(3huassyr,10.3vuassyr);
z31=(2huassyr,7vuassyr);
z33=(2.8huassyr,4vuassyr);
z35=(0,4vuassyr);

z37=(7.8huassyr,4vuassyr);
z39=(11huassyr,4vuassyr);
z41=(11huassyr,6vuassyr);
z43=(10huassyr,7vuassyr);
z45=(8.7huassyr,6vuassyr);
z46=(7.82huassyr,4.02vuassyr);

z47=(7huassyr,4vuassyr);
z49=(6huassyr,7.7vuassyr);
z51=(5huassyr,8vuassyr);
z53=(4.3huassyr,7vuassyr);
z55=(6huassyr,4.5vuassyr);
z57=(6.98huassyr,4.02vuassyr);

pickup logo_pen;
fill z1--z2--z3..z5..{right}z7--z11{right}..{up}z13{up}
..z15{up}..z17..{left}z19..z21..z22--z23--z24..z25..{left}z27{left}..{down}z31{down}..z33--z35--cycle;

unfill z37{right}..{right}z39{up}..{up}z41{up}..{left}z43{left}..z45..z46--cycle;
unfill z47{up}..z49..{left}z51{left}..{down}z53{down}..z55..z57--cycle;
labels(range 1 thru 57);
endchar;

beginchar("Y",12huassyr#,12vuassyr#,3vuassyr#);"The letter Chap";
z1=(0,0);
z2=(11huassyr,0);
z3=(12huassyr,1vuassyr);
z5=(12huassyr,4vuassyr);
z7=(8.7huassyr,10vuassyr);
z11=(5.5huassyr,12vuassyr);
z13=(3huassyr,10.2vuassyr);
z15=(2huassyr,7vuassyr);
z17=(2.6huassyr,7.3vuassyr);
z19=(4.5huassyr,8vuassyr);
z21=(7huassyr,6.5vuassyr);
z23=(8.5huassyr,4vuassyr);
z25=(0,4vuassyr);

z27=(4.2huassyr, -3.4vuassyr);
z29=(5huassyr, -2.6vuassyr);
z31=(6.3huassyr, -3.2vuassyr);
z33=(7huassyr, -2vuassyr);
z35=(6.8huassyr, -1.4vuassyr);
z37=(6huassyr, -2.3vuassyr);
z39=(4.6huassyr, -1.8vuassyr);
z41=(4huassyr, -2.8vuassyr);

pickup logo_pen;
fill z1--z2{right}..{up}z3{up}..{up}z5..z7..{left}z11{left}..z13
..{down}z15{right}..z17..{right}z19{right}..z21..z23--z25--cycle;

fill z27{right}..{right}z29{right}..{right}z31{right}..{up}z33{up}..{left}z35{left}
..{left}z37{left}..{left}z39{left}..{down}z41{down}..{right}cycle;
endchar;




beginchar("T",13huassyr#,12vuassyr#,0);"The letter Tau";
z1=(11huassyr,0);
z2=(12huassyr,0);
z3=(13huassyr,1vuassyr);
z5=(13huassyr,4vuassyr);
z6=(6huassyr,11.5vuassyr);
z66=(5.9huassyr,11.6vuassyr);
z7=(5.4huassyr,12vuassyr);
z77=(5.1huassyr,11.7vuassyr);
z9=(5huassyr,11.5vuassyr);
z11=(1.3huassyr,3vuassyr);
z13=(1.1huassyr,1.9vuassyr);
z15=(3huassyr,0);
z17=(5.7huassyr,1vuassyr);
z19=(7.7huassyr,0.2vuassyr);
z21=(8huassyr,0);
z23=(8.3huassyr,0.2vuassyr);
z24=(8huassyr,1vuassyr);
z25=(3.5huassyr,4.2vuassyr);
z27=(2.4huassyr,4vuassyr);
z29=(4.2huassyr,8vuassyr);
pickup logo_pen;
fill z1--z2{right}..{up}z3--z5--z6..z66..{left}z7{left}..z77..z9--z11
..{down}z13{down}..{right}z15{right}..{right}z17{right}..z19..{right}z21..{up}z23{up}
..z24..{left}z25{left}..z27--z29--cycle;
labels(range 1 thru 29);
endchar;


end;