summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-19 18:26:38 +0000
committerKarl Berry <karl@freefriends.org>2013-04-19 18:26:38 +0000
commit826eb267e9c472caa33e610f897b43485bb8b7bb (patch)
tree487f77e9d3a9f172cab0ea25e1e3b070566dbf55 /Master/texmf-dist/fonts/source
parenta922f4993d5ce75584e05a345cf4ad0d98993f3c (diff)
aramaic-serto
git-svn-id: svn://tug.org/texlive/trunk@30042 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/fonts/source')
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf104
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/assyrb10.mf103
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/assyrfont.mf2015
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/serto.mf51
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/serto10.mf126
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/sertob10.mf125
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/sertobase.mf115
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/sertofont.mf1700
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf44
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/syriacvowels.mf248
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/test.mf198
11 files changed, 4829 insertions, 0 deletions
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf
new file mode 100644
index 00000000000..2fd8f5a6813
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf
@@ -0,0 +1,104 @@
+
+
+% This is a free program written by TONY KHOSHABA, May 1995.
+% Modifications to be used with serto - LaTeX-package by Johannes Heinecke
+% 8 November 2003
+
+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;
+
+
+input assyrfont;
+input syriacvowels;
+
+end;
+
+
+
+
+
+
+
+
+
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrb10.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrb10.mf
new file mode 100644
index 00000000000..a2645cea4a7
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrb10.mf
@@ -0,0 +1,103 @@
+
+% This is a free program written by TONY KHOSHABA, May 1995.
+% Modifications to be used with serto - LaTeX-package by Johannes Heinecke
+% 8 November 2003
+
+u#:=16/36pt#; % unit width Change ONLY this
+ % parameter to change the size of the fonts.
+boxx#:=4u#; % Asyyrian font basic size boxx.
+huassyr#:=1.5u#; % 'bold' means larger here
+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.9u#; % 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;
+
+
+input assyrfont;
+input syriacvowels;
+
+end;
+
+
+
+
+
+
+
+
+
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrfont.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrfont.mf
new file mode 100644
index 00000000000..9bef2c80668
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/assyrfont.mf
@@ -0,0 +1,2015 @@
+% Taken from `assy.mf' by TONY KHOSHABA, May 1995.
+
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+dwidth#:=2boxx#;
+dheight#:=5boxx#;
+ddepth#:=2boxx#;
+dleft#:=1/4*boxx#;
+
+%beginchar("D",dwidth#+dleft#,12vuassyr#,4vuassyr#);
+beginchar("D",9huassyr#,12vuassyr#,4vuassyr#);
+"The letter Dallat";
+z1=(1huassyr,0);
+z2=(8huassyr,0);
+z3=(9huassyr,1vuassyr);
+z5=(9huassyr,4vuassyr);
+z6=(8huassyr,10vuassyr);
+z7=(5huassyr,12vuassyr);
+z9=(2huassyr,11vuassyr);
+z10=(2huassyr,7vuassyr);
+z11=(2.02huassyr,7vuassyr);
+z15=(4huassyr,8vuassyr);
+z17=(6huassyr,4vuassyr);
+z18=(2huassyr,4vuassyr);
+
+z19=(3huassyr,-1vuassyr);
+z21=(6huassyr,-1vuassyr);
+z23=(6huassyr,-4vuassyr);
+z25=(3huassyr,-4vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z6..{left}z7{left}..z9
+--z10{right}..z11..{right}z15{right}..{down}z17--z18--cycle;
+fill z19--z21--z23--z25--cycle;
+labels(range 1 thru 25);
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+rwidth#:=2boxx#;
+rheight#:=5boxx#;
+rdepth#:=2boxx#;
+rleft#:=1/4*boxx#;
+
+beginchar("R",9huassyr#,16vuassyr#,0);"The letter Resh";
+z1=(1huassyr,0);
+z2=(8huassyr,0);
+z3=(9huassyr,1vuassyr);
+z5=(9huassyr,4vuassyr);
+z6=(8huassyr,10vuassyr);
+z7=(5huassyr,12vuassyr);
+z9=(2huassyr,11vuassyr);
+z10=(2huassyr,7vuassyr);
+z11=(2.02huassyr,7vuassyr);
+z15=(4huassyr,8vuassyr);
+z17=(6huassyr,4vuassyr);
+z18=(2huassyr,4vuassyr);
+
+z19=(3huassyr,13vuassyr);
+z21=(6huassyr,13vuassyr);
+z23=(6huassyr,16vuassyr);
+z25=(3huassyr,16vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z6..{left}z7{left}..z9
+--z10{right}..z11..{right}z15{right}..{down}z17--z18--cycle;
+fill z19--z21--z23--z25--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("r",9huassyr#,16vuassyr#,0);"The letter Resh with siami";
+z1=(1huassyr,0);
+z2=(8huassyr,0);
+z3=(9huassyr,1vuassyr);
+z5=(9huassyr,4vuassyr);
+z6=(8huassyr,10vuassyr);
+z7=(5huassyr,12vuassyr);
+z9=(2huassyr,11vuassyr);
+z10=(2huassyr,7vuassyr);
+z11=(2.02huassyr,7vuassyr);
+z15=(4huassyr,8vuassyr);
+z17=(6huassyr,4vuassyr);
+z18=(2huassyr,4vuassyr);
+
+z19=(2huassyr,13vuassyr);
+z21=(5huassyr,13vuassyr);
+z23=(5huassyr,16vuassyr);
+z25=(2huassyr,16vuassyr);
+
+z29=(6huassyr,13vuassyr);
+z31=(9huassyr,13vuassyr);
+z33=(9huassyr,16vuassyr);
+z35=(6huassyr,16vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z6..{left}z7{left}..z9
+--z10{right}..z11..{right}z15{right}..{down}z17--z18--cycle;
+fill z19--z21--z23--z25--cycle;
+fill z29--z31--z33--z35--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("d",9huassyr#,20vuassyr#,0);"The letter Resh with siami and talghana";
+z1=(1huassyr,0);
+z2=(8huassyr,0);
+z3=(9huassyr,1vuassyr);
+z5=(9huassyr,4vuassyr);
+z6=(8huassyr,10vuassyr);
+z7=(5huassyr,12vuassyr);
+z9=(2huassyr,11vuassyr);
+z10=(2huassyr,7vuassyr);
+z11=(2.02huassyr,7vuassyr);
+z15=(4huassyr,8vuassyr);
+z17=(6huassyr,4vuassyr);
+z18=(2huassyr,4vuassyr);
+
+z19=(2huassyr,13vuassyr);
+z21=(5huassyr,13vuassyr);
+z23=(5huassyr,16vuassyr);
+z25=(2huassyr,16vuassyr);
+
+z29=(6huassyr,13vuassyr);
+z31=(9huassyr,13vuassyr);
+z33=(9huassyr,16vuassyr);
+z35=(6huassyr,16vuassyr);
+
+z39=(4huassyr,16.9vuassyr);
+z41=(9huassyr,18.9vuassyr);
+z43=(9huassyr,19.9vuassyr);
+z45=(4huassyr,17.9vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z6..{left}z7{left}..z9
+--z10{right}..z11..{right}z15{right}..{down}z17--z18--cycle;
+fill z19--z21--z23--z25--cycle;
+fill z29--z31--z33--z35--cycle;
+fill z39--z41--z43--z45--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+rwidth#:=2.5boxx#;
+rheight#:=5boxx#;
+rdepth#:=2boxx#;
+rleft#:=0#;
+
+beginchar("-",10huassyr#,4vuassyr#,0);"Big Dash";
+z1=(0,0);
+z2=(9huassyr,0);
+z3=(10huassyr,1vuassyr);
+z5=(10huassyr,4vuassyr);
+z6=(0,4vuassyr);
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5{up}--z6--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+rwidth#:=2boxx#;
+rheight#:=5boxx#;
+rdepth#:=2boxx#;
+rleft#:=0#;
+
+beginchar("=",8huassyr#,12vuassyr#,0);"Siami";
+z1=(0,0);
+z2=(7huassyr,0);
+z3=(8huassyr,1vuassyr);
+z5=(8huassyr,4vuassyr);
+z6=(0,4vuassyr);
+
+z7=(1huassyr,9vuassyr);
+z8=(4huassyr,9vuassyr);
+z9=(4huassyr,12vuassyr);
+z10=(1huassyr,12vuassyr);
+
+z11=(5huassyr,9vuassyr);
+z12=(8huassyr,9vuassyr);
+z13=(8huassyr,12vuassyr);
+z14=(5huassyr,12vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5{up}--z6--cycle;
+fill z7--z8--z9--z10--cycle;
+fill z11--z12--z13--z14--cycle;
+
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+rwidth#:=2boxx#;
+rheight#:=5boxx#;
+rdepth#:=2boxx#;
+rleft#:=0#;
+
+beginchar("N",8huassyr#,12vuassyr#,0);"Non";
+z1=(0,0);
+z2=(7huassyr,0);
+z3=(8huassyr,1vuassyr);
+z4=(8huassyr,3vuassyr);
+z5=(8huassyr,4vuassyr);
+z6=(6.6huassyr,9vuassyr);
+
+z7=(7huassyr,11.8vuassyr);
+z8=(6.9huassyr,12vuassyr);
+z9=(5.2huassyr,11vuassyr);
+z10=(3.1huassyr,11vuassyr);
+
+z11=(2.4huassyr,10vuassyr);
+z12=(2huassyr,7.4vuassyr);
+z13=(3.5huassyr,6vuassyr);
+z14=(4.8huassyr,4vuassyr);
+z15=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z4{up}..z5..{up}z6..{up}z7..{left}z8..{left}z9..{left}z10..
+z11..{down}z12..z13..{down}z14--z15--cycle;
+
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+rwidth#:=boxx#;
+rheight#:=5boxx#;
+rdepth#:=2boxx#;
+rleft#:=1/4boxx#;
+
+beginchar("|",5huassyr#,8vuassyr#,0);"Tail";
+z1=(5huassyr,0);
+z2=(5huassyr,4vuassyr);
+z3=(1.8huassyr,7vuassyr);
+z5=(1.8huassyr,7.3vuassyr);
+z6=(1.4huassyr,8vuassyr);
+z8=(1huassyr,7.3vuassyr);
+z9=(1huassyr,3vuassyr);
+z10=(4huassyr,0);
+pickup logo_pen;
+fill z1--z2{left}..z3..{up}z5{up}..{left}z6{left}..{down}z8{down}..
+{down}z9{down}..{right}z10--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("K",12huassyr#,12vuassyr#,0);"The letter Kap";
+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);
+
+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;
+endchar;
+
+beginchar("X",12huassyr#,12vuassyr#,4.3vuassyr#);"The letter Khap";
+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=(6huassyr, -1.2vuassyr);
+z29=(6.3huassyr, -1.5vuassyr);
+z31=(6.5huassyr, -2.5vuassyr);
+z33=(6.3huassyr, -4vuassyr);
+z35=(6huassyr, -4.3vuassyr);
+z37=(5.7huassyr, -4vuassyr);
+z39=(5.5huassyr, -2.5vuassyr);
+z41=(5.7huassyr, -1.5vuassyr);
+
+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}..z29..{down}z31{down}..z33..{left}z35{left}..z37..
+{up}z39{up}..z41..{right}cycle;
+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;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+swidth#:=3.5boxx#;
+sheight#:=5boxx#;
+sdepth#:=2boxx#;
+sleft#:=0#;
+
+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;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("L",12huassyr#,20vuassyr#,0);"The letter Lammad";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,1vuassyr);
+z5=(12huassyr,4vuassyr);
+z7=(6.6huassyr,14.9vuassyr);
+z11=(5.7huassyr,18vuassyr);
+
+z13=(5.7huassyr,19.6vuassyr);
+z15=(5.6huassyr,19.8vuassyr);
+z17=(5.5huassyr,19.76vuassyr);
+z18=(2.3huassyr,16.5vuassyr);
+z19=(2huassyr,16vuassyr);
+z20=(2.3huassyr,15vuassyr);
+z21=(4huassyr,12vuassyr);
+z23=(8.4huassyr,4vuassyr);
+z25=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5--z7..z11{up}..{up}z13{up}
+..{left}z15{left}..z17--z18..{down}z19{down}..z20--z23--z25--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+unit_width#:=2boxx#;
+unit_height#:=5boxx#;
+unit_depth#:=boxx#;
+extra_left#:=1/4*boxx#;
+
+beginchar("A",9huassyr#,16vuassyr#,0);"The letter Allab end";
+z1=(1huassyr,0);
+z2=(3huassyr,-1.1vuassyr);
+z3=(3.9huassyr,-2.4vuassyr);
+z5=(3.9huassyr,-2.6vuassyr);
+z6=(4.3huassyr,-1.5vuassyr);
+z7=(3.9huassyr,0);
+z8=(8huassyr,0);
+z9=(9huassyr,1vuassyr);
+z10=(9huassyr,4vuassyr);
+z11=(5.8huassyr,4vuassyr);
+z15=(7huassyr,12vuassyr);
+z17=(5huassyr,16vuassyr);
+z18=(3huassyr,13.2vuassyr);
+z19=(4.5huassyr,12vuassyr);
+z21=(5.8huassyr,11.8vuassyr);
+z23=(6huassyr,11vuassyr);
+z25=(1huassyr,4vuassyr);
+pickup logo_pen;
+fill z1..z2..z3{down}..z5..{up}z6{up}..z7--z8{right}..{up}z9--z10--
+z11..{up}z15{up}..{left}z17{left}..{down}z18{down}..{right}z19{right}..z21..{down}z23{down}..z25--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("a",9huassyr#,16vuassyr#,0);"The letter Allab start";
+z1=(1huassyr,0);
+z8=(8huassyr,0);
+z9=(9huassyr,1vuassyr);
+z10=(9huassyr,4vuassyr);
+z11=(5.8huassyr,4vuassyr);
+z15=(7huassyr,12vuassyr);
+z17=(5huassyr,16vuassyr);
+z18=(3huassyr,13.2vuassyr);
+z19=(4.5huassyr,12vuassyr);
+z21=(5.8huassyr,11.8vuassyr);
+z23=(6huassyr,11vuassyr);
+z25=(1huassyr,4vuassyr);
+pickup logo_pen;
+fill z1--z8{right}..{up}z9--z10--
+z11..{up}z15{up}..{left}z17{left}..{down}z18{down}..{right}z19{right}..z21..{down}z23{down}..z25--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+bwidth#:=3.5boxx#;
+%bheight#:=5boxx#;
+bdepth#:=2boxx#;
+bleft#:=0#;
+
+beginchar("B",14huassyr#,12vuassyr#,0);"The letter Bit";
+z1=(0,0);
+z2=(13huassyr,0);
+z3=(14huassyr,1vuassyr);
+z4=(14huassyr,3vuassyr);
+z5=(14huassyr,4vuassyr);
+z7=(13huassyr,9vuassyr);
+z8=(13huassyr,11.5vuassyr);
+z9=(13huassyr,11.95vuassyr);
+z11=(13huassyr,12vuassyr);
+z13=(11huassyr,11vuassyr);
+z15=(4.5huassyr,11vuassyr);
+z17=(2huassyr,12vuassyr);
+z19=(2huassyr,11vuassyr);
+z21=(2huassyr,9.5vuassyr);
+z23=(5huassyr,7vuassyr);
+z25=(10huassyr,7vuassyr);
+z27=(10huassyr,4vuassyr);
+z29=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z4{up}..z5..z7{up}..z8{up}..z9..{up}z11{left}..{left}z13{left}
+..{left}z15{left}..z17--z19..{down}z21{down}..{right}z23{right}..{right}z25--z27--z29--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("b",14huassyr#,12vuassyr#,4.5vuassyr#);"The letter vit";
+z1=(0,0);
+z2=(13huassyr,0);
+z3=(14huassyr,1vuassyr);
+z4=(14huassyr,3vuassyr);
+z5=(14huassyr,4vuassyr);
+z7=(13huassyr,9vuassyr);
+z8=(13huassyr,11.5vuassyr);
+z9=(13huassyr,11.95vuassyr);
+z11=(13huassyr,12vuassyr);
+z13=(11huassyr,11vuassyr);
+z15=(4.5huassyr,11vuassyr);
+z17=(2huassyr,12vuassyr);
+z19=(2huassyr,11vuassyr);
+z21=(2huassyr,9.5vuassyr);
+z23=(5huassyr,7vuassyr);
+z25=(10huassyr,7vuassyr);
+z27=(10huassyr,4vuassyr);
+z29=(0,4vuassyr);
+
+z47=(8.1huassyr,-1.1vuassyr);
+z49=(8.4huassyr,-1.4vuassyr);
+z51=(8.6huassyr,-2.8vuassyr);
+z53=(8.4huassyr,-4.1vuassyr);
+z55=(8.1huassyr,-4.4vuassyr);
+z57=(7.8huassyr,-4.1vuassyr);
+z59=(7.6huassyr,-2.8vuassyr);
+z61=(7.8huassyr,-1.4vuassyr);
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z4{up}..z5..z7{up}..z8{up}..z9..{up}z11{left}..{left}z13{left}
+..{left}z15{left}..z17--z19..{down}z21{down}..{right}z23{right}..{right}z25--z27--z29--cycle;
+
+fill z47{right}..z49..{down}z51{down}..z53..{left}z55{left}..z57..
+{up}z59{up}..z61..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+beginchar("H",13huassyr#,12vuassyr#,0);"The letter Hi";
+z1=(12huassyr,0);
+z2=(13huassyr,1vuassyr);
+z3=(13huassyr,12vuassyr);
+z5=(11huassyr,11vuassyr);
+z6=(7huassyr,11vuassyr);
+z7=(1huassyr,5.5vuassyr);
+z9=(5.5huassyr,0);
+z11=(9huassyr,4vuassyr);
+z13=(9huassyr,7vuassyr);
+z15=(12huassyr,7vuassyr);
+
+z17=(8huassyr,7vuassyr);
+z19=(6huassyr,7vuassyr);
+z21=(4huassyr,5.5vuassyr);
+z23=(6huassyr,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3{left}..{left}z5..z6{left}..z7{down}..z9{right}..{up}z11
+--z13--z15--cycle;
+unfill z17{left}..z19{left}..{down}z21..{right}z23..{up}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("h",13huassyr#,15vuassyr#,0);"The letter Hi with dot";
+z1=(12huassyr,0);
+z2=(13huassyr,1vuassyr);
+z3=(13huassyr,12vuassyr);
+z5=(11huassyr,11vuassyr);
+z6=(7huassyr,11vuassyr);
+z7=(1huassyr,5.5vuassyr);
+z9=(5.5huassyr,0);
+z11=(9huassyr,4vuassyr);
+z13=(9huassyr,7vuassyr);
+z15=(12huassyr,7vuassyr);
+
+z17=(8huassyr,7vuassyr);
+z19=(6huassyr,7vuassyr);
+z21=(4huassyr,5.5vuassyr);
+z23=(6huassyr,4vuassyr);
+
+z27=(6huassyr,13vuassyr);
+z29=(8huassyr,13vuassyr);
+z31=(8huassyr,15vuassyr);
+z33=(6huassyr,15vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3{left}..{left}z5..z6{left}..z7{down}..z9{right}..{up}z11
+--z13--z15--cycle;
+unfill z17{left}..z19{left}..{down}z21..{right}z23..{up}cycle;
+fill z27--z29--z31--z33--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("o",13huassyr#,16vuassyr#,0);"The letter Hi with dot";
+z1=(12huassyr,0);
+z2=(13huassyr,1vuassyr);
+z3=(13huassyr,12vuassyr);
+z5=(11huassyr,11vuassyr);
+z6=(7huassyr,11vuassyr);
+z7=(1huassyr,5.5vuassyr);
+z9=(5.5huassyr,0);
+z11=(9huassyr,4vuassyr);
+z13=(9huassyr,7vuassyr);
+z15=(12huassyr,7vuassyr);
+
+z17=(8huassyr,7vuassyr);
+z19=(6huassyr,7vuassyr);
+z21=(4huassyr,5.5vuassyr);
+z23=(6huassyr,4vuassyr);
+
+z27=(5huassyr,12.2vuassyr);
+z29=(9huassyr,15vuassyr);
+z31=(9huassyr,16vuassyr);
+z33=(5huassyr,13.2vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3{left}..{left}z5..z6{left}..z7{down}..z9{right}..{up}z11
+--z13--z15--cycle;
+unfill z17{left}..z19{left}..{down}z21..{right}z23..{up}cycle;
+fill z27--z29--z31--z33--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+owidth#:=2.5boxx#;
+oheight#:=5boxx#;
+odepth#:=2boxx#;
+oleft#:=1/4*boxx#;
+
+beginchar("O",11huassyr#,12vuassyr#,0);"The letter vav";
+z1=(4huassyr,0);
+z2=(10huassyr,0);
+z3=(11huassyr,1vuassyr);
+z5=(11huassyr,4vuassyr);
+z6=(10huassyr,8.5vuassyr);
+z7=(6huassyr,12vuassyr);
+z11=(2huassyr,8.5vuassyr);
+z13=(1huassyr,4.5vuassyr);
+z15=(1.5huassyr,1vuassyr);
+
+z17=(7.9huassyr,4vuassyr);
+z19=(7.2huassyr,7.2vuassyr);
+z21=(5.5huassyr,8vuassyr);
+z25=(3.6huassyr,5.5vuassyr);
+z27=(5huassyr,4vuassyr);
+
+pickup logo_pen;
+fill z1{right}..z2{right}..z3{up}..z5{up}..z6..z7{left}..z11
+..z13{down}..z15..{right}cycle;
+unfill z17{up}..z19..{left}z21..z25{down}..{right}z27..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+zwidth#:=1.5boxx#;
+zheight#:=5boxx#;
+zdepth#:=2boxx#;
+zleft#:=1/4*boxx#;
+
+beginchar("Z",7huassyr#,12vuassyr#,1vuassyr#);"The letter zen";
+z1=(4huassyr,-1vuassyr);
+z2=(6.3huassyr,3vuassyr);
+z3=(7huassyr,7vuassyr);
+z5=(4huassyr,12vuassyr);
+z6=(1huassyr,8vuassyr);
+z7=(3huassyr,4vuassyr);
+z11=(4huassyr,1.5vuassyr);
+z13=(3huassyr,-1vuassyr);
+
+pickup logo_pen;
+fill z1..z2..z3{up}..z5{left}..z6{down}..z7..z11{down}
+..z13--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("z",7huassyr#,16vuassyr#,1vuassyr#);"The letter zen with dot above";
+z1=(4huassyr,-1vuassyr);
+z2=(6.3huassyr,3vuassyr);
+z3=(7huassyr,7vuassyr);
+z5=(4huassyr,12vuassyr);
+z6=(1huassyr,8vuassyr);
+z7=(3huassyr,4vuassyr);
+z11=(4huassyr,1.5vuassyr);
+z13=(3huassyr,-1vuassyr);
+
+z27=(2.8huassyr, 13.4vuassyr);
+z29=(3.6huassyr, 14.2vuassyr);
+z31=(4.9huassyr, 13.6vuassyr);
+z33=(5.6huassyr, 14.8vuassyr);
+z35=(5.4huassyr, 15.4vuassyr);
+z37=(4.6huassyr, 14.5vuassyr);
+z39=(3.2huassyr, 15vuassyr);
+z41=(2.6huassyr, 14vuassyr);
+
+pickup logo_pen;
+fill z1..z2..z3{up}..z5{left}..z6{down}..z7..z11{down}
+..z13--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;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("P",12huassyr#,16vuassyr#,0);"The letter Pi";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,1vuassyr);
+z5=(12huassyr,4vuassyr);
+z7=(11huassyr,7.5vuassyr);
+z11=(10.2huassyr,13vuassyr);
+z13=(10.8huassyr,16vuassyr);
+z15=(10.75huassyr,15.95vuassyr);
+z17=(9huassyr,14.2vuassyr);
+z19=(8.95huassyr,14.25vuassyr);
+z21=(6huassyr,15vuassyr);
+z23=(2huassyr,11vuassyr);
+z25=(5huassyr,6vuassyr);
+z27=(8.6huassyr,4.7vuassyr);
+z29=(8.7huassyr,4vuassyr);
+z31=(0,4vuassyr);
+
+z49=(8.4huassyr,5.7vuassyr);
+z51=(8.32huassyr,5.72vuassyr);
+z52=(8huassyr,8.5vuassyr);
+z53=(7.6huassyr,10vuassyr);
+z55=(5.7huassyr,11.1vuassyr);
+z57=(4.3huassyr,9.7vuassyr);
+z59=(6huassyr,6.8vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z7..{up}z11{up}..z13
+..z15..z17--z19..{left}z21{left}..{down}z23{down}..z25..z27--z29--z31--cycle;
+
+unfill z49--z51..z52..z53..{left}z55{left}..{down}z57{down}..z59..cycle;
+endchar;
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("p",12huassyr#,16vuassyr#,3vuassyr#);"The letter Pi";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,1vuassyr);
+z5=(12huassyr,4vuassyr);
+z7=(11huassyr,7.5vuassyr);
+z11=(10.2huassyr,13vuassyr);
+z13=(10.8huassyr,16vuassyr);
+z15=(10.75huassyr,15.95vuassyr);
+z17=(9huassyr,14.2vuassyr);
+z19=(8.95huassyr,14.25vuassyr);
+z21=(6huassyr,15vuassyr);
+z23=(2huassyr,11vuassyr);
+z25=(5huassyr,6vuassyr);
+z27=(8.6huassyr,4.7vuassyr);
+z29=(8.7huassyr,4vuassyr);
+z31=(0,4vuassyr);
+
+z49=(8.4huassyr,5.7vuassyr);
+z51=(8.32huassyr,5.72vuassyr);
+z52=(8huassyr,8.5vuassyr);
+z53=(7.6huassyr,10vuassyr);
+z55=(5.7huassyr,11.1vuassyr);
+z57=(4.3huassyr,9.7vuassyr);
+z59=(6huassyr,6.8vuassyr);
+
+z33=(6huassyr,-2vuassyr);
+z35=(7huassyr,-1.6vuassyr);
+z37=(7.8huassyr,-1vuassyr);
+z39=(8huassyr,-1.2vuassyr);
+z41=(6huassyr,-3vuassyr);
+z43=(4huassyr,-1.2vuassyr);
+z45=(4.2huassyr,-1vuassyr);
+z47=(5huassyr,-1.6vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3{up}..{up}z5{up}..z7..{up}z11{up}..z13
+..z15..z17--z19..{left}z21{left}..{down}z23{down}..z25..z27--z29--z31--cycle;
+
+fill z33{right}..z35..{right}z37{right}..{down}z39{down}..{left}z41{left}..{up}z43{up}..
+{right}z45{right}..z47..{right}cycle;
+
+unfill z49--z51..z52..z53..{left}z55{left}..{down}z57{down}..z59..cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+owidth#:=2.5boxx#;
+oheight#:=5boxx#;
+odepth#:=2boxx#;
+oleft#:=1/4*boxx#;
+
+beginchar("s",11huassyr#,7vuassyr#,odepth#);"The letter Cad";
+z1=(4huassyr,0);
+z2=(8huassyr,0);
+z3=(8huassyr,1vuassyr);
+%z5=(9huassyr,0.5vuassyr);
+z6=(10huassyr,0);
+z7=(11huassyr,1vuassyr);
+z11=(11huassyr,4vuassyr);
+z13=(9huassyr,6vuassyr);
+z15=(8.3huassyr,7vuassyr);
+z16=(8.1huassyr,6.9vuassyr);
+z17=(8huassyr,6vuassyr);
+z19=(6.5huassyr,4vuassyr);
+z21=(5huassyr,4vuassyr);
+z25=(2.5huassyr,6.5vuassyr);
+z27=(2huassyr,7vuassyr);
+z28=(1.6huassyr,6.5vuassyr);
+z29=(1.1huassyr,4vuassyr);
+z30=(1huassyr,2vuassyr);
+z31=(2huassyr,-2vuassyr);
+z35=(6.9huassyr,-5.9vuassyr);
+z37=(6.82huassyr,-5.92vuassyr);
+z39=(3huassyr,-6.7vuassyr);
+z41=(1huassyr,-7vuassyr);
+z45=(1huassyr,-7.9vuassyr);
+z47=(11huassyr,-7.9vuassyr);
+z49=(11huassyr,-4vuassyr);
+z51=(5.5huassyr,-2vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3..{right}z6{right}..{up}z7--z11{left}
+..z13..{left}z15{left}..z16..{down}z17{down}..{left}z19{left}..{left}z21{left}..z25..
+{left}z27..z28..z29..{down}z30{down}..z31..z35--z37..z39..z41--z45--z47--z49{left}..z51..cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+beginchar(">",13huassyr#,6vuassyr#,hdepth#);"The letter end separate Non";
+
+z23=(3.5huassyr,0.1vuassyr);
+z22=(5huassyr,1vuassyr);
+z2=(5.6huassyr,1.1vuassyr);
+z3=(7.1huassyr,0);
+z4=(9huassyr,-3vuassyr);
+z5=(12huassyr,-7.9vuassyr);
+z6=(13huassyr,-7.9vuassyr);
+z77=(5huassyr,5.1vuassyr);
+z8=(4.3huassyr,5.5vuassyr);
+z88=(4huassyr,5.4vuassyr);
+z9=(1.2huassyr,3.8vuassyr);
+z11=(1huassyr,3.4vuassyr);
+z12=(1.1huassyr,3vuassyr);
+z13=(2.1huassyr,1.6vuassyr);
+z15=(2.85huassyr,0.2vuassyr);
+z17=(3.15huassyr,0);
+
+pickup logo_pen;
+fill z23--z22..{right}z2{right}..z3..z4..z5--z6--z77..{left}z8{left}..z88--z9..
+{down}z11{down}..z12--z15..{right}z17{right}..cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+%beginchar("/",huassyr#,hheight#,hdepth#);"Blank";
+%z1=(0,0);
+%z2=(w,0);
+%z3=(w,h);
+%z4=(0,h);
+%pickup logo_pen;
+
+%fill z1--z2--z3-z4--cycle;
+%unfill z1--z2--z3-z4--cycle;
+%endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=1.5boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+beginchar("n",7huassyr#,8vuassyr#,hdepth#);"The letter end not separate Non";
+
+z1=(4huassyr,0);
+z3=(6huassyr,0);
+z5=(7huassyr,1vuassyr);
+z7=(7huassyr,4vuassyr);
+z9=(3.5huassyr,6vuassyr);
+z11=(2.2huassyr,7.8vuassyr);
+z13=(2huassyr,8vuassyr);
+z15=(1.8huassyr,7.8vuassyr);
+z17=(1huassyr,4vuassyr);
+z19=(3huassyr,-3vuassyr);
+z21=(6huassyr,-7.9vuassyr);
+z23=(7huassyr,-7.9vuassyr);
+z25=(4.5huassyr,-3vuassyr);
+
+pickup logo_pen;
+fill z1--z3{right}..{up}z5--z7{left}..z9..z11..{left}z13{left}..z15..{down}z17{down}..z19..
+z21--z23..z25..{up}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=4boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=0#;
+
+beginchar("W",16huassyr#,16vuassyr#,6vuassyr#);"The letter Dtet";
+
+z1=(0,0);
+z3=(8.2huassyr,0);
+z5=(10.9huassyr,-5.9vuassyr);
+z7=(11.1huassyr,-6vuassyr);
+z9=(11.3huassyr,-5.9vuassyr);
+z11=(16huassyr,0);
+z13=(16huassyr,4vuassyr);
+z15=(9.8huassyr,4vuassyr);
+z17=(6.2huassyr,12vuassyr);
+z19=(6huassyr,12.5vuassyr);
+z21=(6huassyr,15.9vuassyr);
+z23=(5.9huassyr,16vuassyr);
+z25=(5.5huassyr,15.8vuassyr);
+z26=(2.5huassyr,13vuassyr);
+z27=(2.1huassyr,12.2vuassyr);
+z29=(2.3huassyr,11.7vuassyr);
+z30=(3.15huassyr,10.1vuassyr);
+z31=(6.3huassyr,4vuassyr);
+z33=(0,4vuassyr);
+
+z35=(15.1huassyr,0);
+z37=(11.7huassyr,0);
+z39=(12.9huassyr,-2.7vuassyr);
+
+pickup logo_pen;
+fill z1--z3--z5..{right}z7{right}..z9--z11--z13--z15--z17..z19..{up}z21{up}..
+{left}z23{left}..z25..z26..{down}z27{down}..z29..z30--z31--z33--cycle;
+unfill z35--z37--z39--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=4boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=0#;
+
+beginchar("M",16huassyr#,12vuassyr#,0);"The letter Mim";
+
+z1=(0,0);
+z3=(8huassyr,0);
+z5=(8huassyr,1vuassyr);
+z7=(9huassyr,0.4vuassyr);
+z9=(10huassyr,0);
+z11=(15huassyr,0);
+z13=(16huassyr,1vuassyr);
+z15=(16huassyr,4vuassyr);
+z16=(14huassyr,11vuassyr);
+z17=(11.5huassyr,12vuassyr);
+z19=(9huassyr,11vuassyr);
+z21=(7.6huassyr,8vuassyr);
+z23=(7.58huassyr,8.02vuassyr);
+
+z25=(5huassyr,10vuassyr);
+z26=(3.9huassyr,11.8vuassyr);
+z27=(3.7huassyr,12vuassyr);
+z29=(3.5huassyr,11.8vuassyr);
+z30=(2huassyr,8vuassyr);
+z100=(2.5huassyr,7vuassyr);
+z31=(4huassyr,6vuassyr);
+z33=(6.5huassyr,4.5vuassyr);
+z35=(6.8huassyr,4vuassyr);
+z37=(0,4vuassyr);
+
+z39=(13huassyr,4vuassyr);
+z40=(13huassyr,5vuassyr);
+z41=(11huassyr,8vuassyr);
+z43=(9huassyr,5.6vuassyr);
+z45=(10huassyr,4vuassyr);
+
+pickup logo_pen;
+fill z1--z3--z5..z7..{right}z9--z11{right}..{up}z13..{up}z15
+..z16..{left}z17..z19..
+{down}z21--z23..z25..z26..{left}z27..z29..{down}z30..z100..z31..z33..{down}z35--z37--cycle;
+unfill z39{up}..{up}z40..{left}z41{left}..{down}z43{down}..{right}z45--cycle;
+endchar;
+beginchar("$",16huassyr#,12vuassyr#,4vuassyr#);"The letter Mim dot under";
+
+z1=(0,0);
+z3=(8huassyr,0);
+z5=(8huassyr,1vuassyr);
+z7=(9huassyr,0.4vuassyr);
+z9=(10huassyr,0);
+z11=(15huassyr,0);
+z13=(16huassyr,1vuassyr);
+z15=(16huassyr,4vuassyr);
+z16=(14huassyr,11vuassyr);
+z17=(11.5huassyr,12vuassyr);
+z19=(9huassyr,11vuassyr);
+z21=(7.6huassyr,8vuassyr);
+z23=(7.58huassyr,8.02vuassyr);
+
+z25=(5huassyr,10vuassyr);
+z26=(3.9huassyr,11.8vuassyr);
+z27=(3.7huassyr,12vuassyr);
+z29=(3.5huassyr,11.8vuassyr);
+z30=(2huassyr,8vuassyr);
+z100=(2.5huassyr,7vuassyr);
+z31=(4huassyr,6vuassyr);
+z33=(6.5huassyr,4.5vuassyr);
+z35=(6.8huassyr,4vuassyr);
+z37=(0,4vuassyr);
+
+z39=(13huassyr,4vuassyr);
+z40=(13huassyr,5vuassyr);
+z41=(11huassyr,8vuassyr);
+z43=(9huassyr,5.6vuassyr);
+z45=(10huassyr,4vuassyr);
+
+z47=(10huassyr,-2vuassyr);
+z49=(12huassyr,-2vuassyr);
+z50=(12huassyr,-4vuassyr);
+z51=(10huassyr,-4vuassyr);
+
+pickup logo_pen;
+fill z1--z3--z5..z7..{right}z9--z11{right}..{up}z13..{up}z15
+..z16..{left}z17..z19..
+{down}z21--z23..z25..z26..{left}z27..z29..{down}z30..z100..z31..z33..{down}z35--z37--cycle;
+unfill z39{up}..{up}z40..{left}z41{left}..{down}z43{down}..{right}z45--cycle;
+fill z47--z49--z50--z51--cycle;
+endchar;
+beginchar("*",16huassyr#,16vuassyr#,0);"The letter Mim dot up";
+
+z1=(0,0);
+z3=(8huassyr,0);
+z5=(8huassyr,1vuassyr);
+z7=(9huassyr,0.4vuassyr);
+z9=(10huassyr,0);
+z11=(15huassyr,0);
+z13=(16huassyr,1vuassyr);
+z15=(16huassyr,4vuassyr);
+z16=(14huassyr,11vuassyr);
+z17=(11.5huassyr,12vuassyr);
+z19=(9huassyr,11vuassyr);
+z21=(7.6huassyr,8vuassyr);
+z23=(7.58huassyr,8.02vuassyr);
+
+z25=(5huassyr,10vuassyr);
+z26=(3.9huassyr,11.8vuassyr);
+z27=(3.7huassyr,12vuassyr);
+z29=(3.5huassyr,11.8vuassyr);
+z30=(2huassyr,8vuassyr);
+z100=(2.5huassyr,7vuassyr);
+z31=(4huassyr,6vuassyr);
+z33=(6.5huassyr,4.5vuassyr);
+z35=(6.8huassyr,4vuassyr);
+z37=(0,4vuassyr);
+
+z39=(13huassyr,4vuassyr);
+z40=(13huassyr,5vuassyr);
+z41=(11huassyr,8vuassyr);
+z43=(9huassyr,5.6vuassyr);
+z45=(10huassyr,4vuassyr);
+
+z47=(10huassyr,14vuassyr);
+z49=(12huassyr,14vuassyr);
+z50=(12huassyr,16vuassyr);
+z51=(10huassyr,16vuassyr);
+pickup logo_pen;
+fill z1--z3--z5..z7..{right}z9--z11{right}..{up}z13..{up}z15
+..z16..{left}z17..z19..
+{down}z21--z23..z25..z26..{left}z27..z29..{down}z30..z100..z31..z33..{down}z35--z37--cycle;
+unfill z39{up}..{up}z40..{left}z41{left}..{down}z43{down}..{right}z45--cycle;
+fill z47--z49--z50--z51--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+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;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("m",13huassyr#,12vuassyr#,0);"The letter mim end";
+z1=(1.6huassyr,-1vuassyr);
+z2=(2.6huassyr,-1vuassyr);
+z3=(3.3huassyr,0);
+z5=(12huassyr,0);
+z6=(13huassyr,1vuassyr);
+z66=(13huassyr,3vuassyr);
+z67=(13huassyr,4vuassyr);
+z7=(12huassyr,10vuassyr);
+z77=(12huassyr,11.8vuassyr);
+z9=(11.8huassyr,12vuassyr);
+z10=(11.6huassyr,11.9vuassyr);
+z11=(10huassyr,11vuassyr);
+z13=(3huassyr,11vuassyr);
+z14=(1.4huassyr,11.9vuassyr);
+z15=(1.2huassyr,12vuassyr);
+z17=(1huassyr,11.8vuassyr);
+z19=(1huassyr,9vuassyr);
+z21=(3huassyr,7vuassyr);
+z23=(7huassyr,7vuassyr);
+
+z24=(8huassyr,7vuassyr);
+z25=(10huassyr,7vuassyr);
+z27=(10huassyr,4vuassyr);
+z29=(6huassyr,4vuassyr);
+pickup logo_pen;
+fill z1--z2--z3--z5{right}..{up}z6..{up}z66..z67..{up}z7{up}..{up}z77..{left}z9{left}..z10..{left}z11{left}
+..{left}z13{left}..z14..{left}z15{left}..{down}z17{down}..{down}z19..{right}z21--z23--cycle;
+unfill z24--z25--z27--z29--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3.5boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4boxx#;
+
+beginchar("t",15huassyr#,20vuassyr#,0);"The letter end Tau";
+
+z1=(5huassyr,0);
+z3=(9huassyr,0);
+z5=(9huassyr,4vuassyr);
+z7=(8huassyr,4vuassyr);
+z8=(8huassyr,6vuassyr);
+z9=(9.5huassyr,8vuassyr);
+z11=(11huassyr,6vuassyr);
+z13=(11huassyr,0);
+z15=(14huassyr,0);
+z17=(15huassyr,1vuassyr);
+z19=(15huassyr,4vuassyr);
+z21=(14huassyr,4vuassyr);
+z23=(14huassyr,7vuassyr);
+z25=(10.5huassyr,12vuassyr);
+z26=(7.6huassyr,11vuassyr);
+z27=(7.5huassyr,10.9vuassyr);
+z29=(7.4huassyr,11vuassyr);
+z30=(6huassyr,14vuassyr);
+z31=(4.8huassyr,18vuassyr);
+z33=(5huassyr,19.7vuassyr);
+z35=(4.8huassyr,19.9vuassyr);
+z36=(4.3huassyr,19.7vuassyr);
+z37=(2huassyr,17.7vuassyr);
+z39=(1huassyr,16vuassyr);
+z40=(1.4huassyr,15vuassyr);
+z41=(5huassyr,10vuassyr);
+z43=(6huassyr,7vuassyr);
+z45=(6huassyr,4vuassyr);
+z47=(5huassyr,4vuassyr);
+
+pickup logo_pen;
+fill z1--z3--z5--z7--z8{up}..{right}z9{right}..{down}z11--z13..z15{right}..{up}z17--z19--z21{up}..
+{up}z23{up}..{left}z25{left}..z27--z29..z30..z31{up}..z33{up}..{left}z35{left}..z36..z37..{down}z39{down}
+..z40..z41..{down}z43{down}..z45--z47--cycle;
+
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+beginchar("@",13huassyr#,16vuassyr#,4vuassyr#);"The letter Tau Alap";
+z1=(12huassyr,0);
+z3=(13huassyr,1vuassyr);
+z5=(13huassyr,4vuassyr);
+z7=(9huassyr,6.4vuassyr);
+z9=(7.8huassyr,8.5vuassyr);
+z11=(8huassyr,9.8vuassyr);
+z13=(7.8huassyr,10vuassyr);
+z15=(6.9huassyr,9vuassyr);
+z17=(6huassyr,5.5vuassyr);
+z18=(6.7huassyr,4vuassyr);
+z19=(7.8huassyr,2.8vuassyr);
+%z21=(7.75huassyr,2.75vuassyr);
+z23=(7huassyr,1vuassyr);
+%z25=(6.95huassyr,1.25vuassyr);
+z27=(5.7huassyr,3vuassyr);
+z29=(4.1huassyr,4.5vuassyr);
+z31=(4.12huassyr,4.52vuassyr);
+z33=(5huassyr,7vuassyr);
+z35=(6huassyr,13vuassyr);
+z37=(4huassyr,16vuassyr);
+z39=(2.5huassyr,15vuassyr);
+z41=(2huassyr,13vuassyr);
+z43=(3huassyr,12vuassyr);
+z45=(4huassyr,12vuassyr);
+z47=(5.1huassyr,11vuassyr);
+z49=(4huassyr,6vuassyr);
+z51=(1.5huassyr,1vuassyr);
+z53=(1.3huassyr,0.4vuassyr);
+z55=(1.5huassyr,0);
+z57=(2huassyr,0.4vuassyr);
+z59=(2.6huassyr,1.2vuassyr);
+z61=(2.62huassyr,1.12vuassyr);
+z63=(4huassyr,0);
+z65=(6.6huassyr,-3.8vuassyr);
+z67=(6.8huassyr,-4vuassyr);
+z69=(7huassyr,-3.8vuassyr);
+z70=(7.1huassyr,-3vuassyr);
+z71=(8huassyr,0);
+z73=(9.3huassyr,1.4vuassyr);
+z75=(9.32huassyr,1.42vuassyr);
+z77=(11huassyr,0.4vuassyr);
+
+pickup logo_pen;
+fill z1{right}..{up}z3--z5{left}..z7..{up}z9{up}..{up}z11{up}..{left}z13{left}..z15..
+{down}z17{down}..z18..z19--
+z23..z27..z29--z31
+..z33..{up}z35{up}..{left}z37{left}..z39..{down}z41{down}..{right}z43{right}..{right}z45{right}..
+{down}z47{down}..z49..z51..{down}z53{down}..{right}z55{right}..z57..z59--z61..z63..z65..{right}z67{right}..
+z69..z70..z71..z73--z75..z77..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=4boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4boxx#;
+
+beginchar("&",17huassyr#,20vuassyr#,0);"The letter end Tau Alap";
+
+z1=(1huassyr,0);
+z3=(11huassyr,0);
+z5=(11huassyr,4vuassyr);
+z7=(10huassyr,4vuassyr);
+z8=(10huassyr,6vuassyr);
+z9=(11.5huassyr,8vuassyr);
+z11=(13huassyr,6vuassyr);
+z13=(13huassyr,0);
+z15=(16huassyr,0);
+z17=(17huassyr,1vuassyr);
+z19=(17huassyr,4vuassyr);
+z21=(16huassyr,4vuassyr);
+z23=(16huassyr,8vuassyr);
+z25=(12.5huassyr,12vuassyr);
+z26=(10.1huassyr,11vuassyr);
+z27=(9.7huassyr,11.5vuassyr);
+z29=(12huassyr,14.7vuassyr);
+z30=(13huassyr,17.5vuassyr);
+z31=(10.7huassyr,19.9vuassyr);
+z33=(9.1huassyr,18vuassyr);
+z35=(9huassyr,17vuassyr);
+z36=(10huassyr,16vuassyr);
+z37=(11.3huassyr,15.4vuassyr);
+z100=(11huassyr,14.5vuassyr);
+z38=(9.4huassyr,12.1vuassyr);
+z39=(9.3huassyr,12vuassyr);
+z40=(7.6huassyr,18vuassyr);
+z41=(8huassyr,19.7vuassyr);
+z43=(7.8huassyr,19.8vuassyr);
+z44=(7.5huassyr,19.7vuassyr);
+z45=(5huassyr,18vuassyr);
+z47=(4huassyr,16.3vuassyr);
+z48=(4.3huassyr,15vuassyr);
+z49=(6huassyr,12vuassyr);
+z51=(7.6huassyr,9.6vuassyr);
+
+z53=(4.4huassyr,4vuassyr);
+z55=(8huassyr,4vuassyr);
+z57=(8huassyr,8vuassyr);
+z59=(7.8huassyr,8.9vuassyr);
+
+pickup logo_pen;
+fill z1--z3--z5--z7--z8{up}..{right}z9{right}..{down}z11--z13..z15{right}..{up}z17--z19--z21--z23{up}..
+{left}z25{left}..z26--z27--z29..{up}z30{up}..{left}z31{left}..z33..{down}z35{down}..{right}z36{right}..
+{down}z37{down}..z100..z38--z39..{up}z40{up}..{up}z41{up}..{left}z43{left}..z44..
+z45..{down}z47{down}..z48..z49..z51--cycle;
+
+unfill z53--z55{up}..{up}z57..z59--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+hwidth#:=3boxx#;
+hheight#:=5boxx#;
+hdepth#:=2boxx#;
+hleft#:=1/4*boxx#;
+
+beginchar("k",13huassyr#,12vuassyr#,hdepth#);"The letter not separate end Kap";
+
+z1=(10huassyr,0);
+z3=(12huassyr,0);
+z5=(13huassyr,1vuassyr);
+z7=(13huassyr,4vuassyr);
+z8=(12huassyr,4vuassyr);
+z9=(10huassyr,6.5vuassyr);
+z11=(10huassyr,11.8vuassyr);
+z13=(9.8huassyr,12vuassyr);
+z15=(9.6huassyr,11.8vuassyr);
+z17=(8huassyr,11vuassyr);
+z19=(3huassyr,11vuassyr);
+z21=(2huassyr,10vuassyr);
+z23=(2huassyr,7.5vuassyr);
+z25=(1huassyr,4vuassyr);
+z29=(8.9huassyr,-6.9vuassyr);
+z31=(10.6huassyr,-7.9vuassyr);
+z33=(12.3huassyr,-7vuassyr);
+z34=(13huassyr,-4vuassyr);
+z35=(12.9huassyr,-3.4vuassyr);
+z37=(12.8huassyr,-3.3vuassyr);
+z39=(12.7huassyr,-3.4vuassyr);
+z41=(12huassyr,-4vuassyr);
+z43=(11.2huassyr,-3.6vuassyr);
+z45=(4.6huassyr,5vuassyr);
+z47=(4.65huassyr,5.1vuassyr);
+z49=(5huassyr,7vuassyr);
+z51=(8huassyr,7vuassyr);
+z53=(8huassyr,3vuassyr);
+
+pickup logo_pen;
+fill z1--z3{right}..{up}z5--z7--z8{left}..{up}z9--z11{up}..z13{left}..z15..{left}z17--z19{left}..{down}z21{down}..
+{down}z23{down}..z25--z29..z31{right}..z33..z34{up}..z35..{left}z37{left}..z39..{left}z41..
+z43--z45--z47..{up}z49--z51--z53{down}..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("x",13huassyr#,12vuassyr#,hdepth#);"The letter not separate end Khap";
+
+z1=(10huassyr,0);
+z3=(12huassyr,0);
+z5=(13huassyr,1vuassyr);
+z7=(13huassyr,4vuassyr);
+z8=(12huassyr,4vuassyr);
+z9=(10huassyr,6.5vuassyr);
+z11=(10huassyr,11.8vuassyr);
+z13=(9.8huassyr,12vuassyr);
+z15=(9.6huassyr,11.8vuassyr);
+z17=(8huassyr,11vuassyr);
+z19=(3huassyr,11vuassyr);
+z21=(2huassyr,10vuassyr);
+z23=(2huassyr,7.5vuassyr);
+z25=(1huassyr,4vuassyr);
+z29=(8.9huassyr,-6.9vuassyr);
+z31=(10.6huassyr,-7.9vuassyr);
+z33=(12.3huassyr,-7vuassyr);
+z34=(13huassyr,-4vuassyr);
+z35=(12.9huassyr,-3.4vuassyr);
+z37=(12.8huassyr,-3.3vuassyr);
+z39=(12.7huassyr,-3.4vuassyr);
+z41=(12huassyr,-4vuassyr);
+z43=(11.2huassyr,-3.6vuassyr);
+z45=(4.6huassyr,5vuassyr);
+z47=(4.65huassyr,5.1vuassyr);
+z49=(5huassyr,7vuassyr);
+z51=(8huassyr,7vuassyr);
+z53=(8huassyr,3vuassyr);
+
+z57=(2.5huassyr,-1vuassyr);
+z59=(2.8huassyr,-1.3vuassyr);
+z61=(3huassyr,-2.5vuassyr);
+z63=(2.8huassyr,-3.7vuassyr);
+z65=(2.5huassyr,-4vuassyr);
+z67=(2.2huassyr,-3.7vuassyr);
+z69=(2huassyr,-2.5vuassyr);
+z71=(2.2huassyr,-1.3vuassyr);
+
+pickup logo_pen;
+fill z1--z3{right}..{up}z5--z7--z8{left}..{up}z9--z11{up}..z13{left}..z15..{left}z17--z19{left}..{down}z21{down}..
+{down}z23{down}..z25--z29..z31{right}..z33..z34{up}..z35..{left}z37{left}..z39..{left}z41..
+z43--z45--z47..{up}z49--z51--z53{down}..{right}cycle;
+
+fill z57{right}..z59..{down}z61{down}..z63..{left}z65{left}..z67..
+{up}z69{up}..z71..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("y",13huassyr#,12vuassyr#,hdepth#);"The letter not separate end Chap";
+
+z1=(10huassyr,0);
+z3=(12huassyr,0);
+z5=(13huassyr,1vuassyr);
+z7=(13huassyr,4vuassyr);
+z8=(12huassyr,4vuassyr);
+z9=(10huassyr,6.5vuassyr);
+z11=(10huassyr,11.8vuassyr);
+z13=(9.8huassyr,12vuassyr);
+z15=(9.6huassyr,11.8vuassyr);
+z17=(8huassyr,11vuassyr);
+z19=(3huassyr,11vuassyr);
+z21=(2huassyr,10vuassyr);
+z23=(2huassyr,7.5vuassyr);
+z25=(1huassyr,4vuassyr);
+z29=(8.9huassyr,-6.9vuassyr);
+z31=(10.6huassyr,-7.9vuassyr);
+z33=(12.3huassyr,-7vuassyr);
+z34=(13huassyr,-4vuassyr);
+z35=(12.9huassyr,-3.4vuassyr);
+z37=(12.8huassyr,-3.3vuassyr);
+z39=(12.7huassyr,-3.4vuassyr);
+z41=(12huassyr,-4vuassyr);
+z43=(11.2huassyr,-3.6vuassyr);
+z45=(4.6huassyr,5vuassyr);
+z47=(4.65huassyr,5.1vuassyr);
+z49=(5huassyr,7vuassyr);
+z51=(8huassyr,7vuassyr);
+z53=(8huassyr,3vuassyr);
+
+z67=(5.3huassyr,12.5vuassyr);
+z69=(6.1huassyr,13.3vuassyr);
+z71=(7.4huassyr,12.7vuassyr);
+z73=(8.1huassyr,13.9vuassyr);
+z75=(7.9huassyr,14.5vuassyr);
+z77=(7.1huassyr,13.6vuassyr);
+z79=(5.7huassyr,14.1vuassyr);
+z81=(5.1huassyr,13.1vuassyr);
+
+pickup logo_pen;
+fill z1--z3{right}..{up}z5--z7--z8{left}..{up}z9--z11{up}..z13{left}..z15..{left}z17--z19{left}..{down}z21{down}..
+{down}z23{down}..z25--z29..z31{right}..z33..z34{up}..z35..{left}z37{left}..z39..{left}z41..
+z43--z45--z47..{up}z49--z51--z53{down}..{right}cycle;
+fill z67{right}..{right}z69{right}..{right}z71{right}..{up}z73{up}..{left}z75{left}..{left}z77{left}..
+{left}z79{left}..{down}z81{down}..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+owidth#:=2.5boxx#;
+oheight#:=5boxx#;
+odepth#:=2boxx#;
+oleft#:=1/4*boxx#;
+
+beginchar("Q",11huassyr#,12vuassyr#,odepth#);"The letter separate end Kap";
+z1=(4.7huassyr,7vuassyr);
+z2=(7huassyr, 7vuassyr);
+z3=(10huassyr,10vuassyr);
+z5=(10huassyr,11.8vuassyr);
+z6=(9.8huassyr,12vuassyr);
+z7=(9.6huassyr,11.8vuassyr);
+z11=(7huassyr,11vuassyr);
+z13=(3huassyr,11vuassyr);
+z15=(2huassyr,9vuassyr);
+z16=(2huassyr,8vuassyr);
+z17=(1huassyr,5vuassyr);
+z19=(0.9huassyr,4.8vuassyr);
+z21=(1huassyr,4.6vuassyr);
+
+z25=(3huassyr,1vuassyr);
+z27=(3.9huassyr,-1.5vuassyr);
+z28=(4huassyr,-1.6vuassyr);
+z29=(4.1huassyr,-1.5vuassyr);
+z30=(5.3huassyr,1vuassyr);
+z31=(6.8huassyr,2vuassyr);
+z35=(8huassyr,0.5vuassyr);
+z37=(7.6huassyr,-1vuassyr);
+z38=(3.5huassyr,-5vuassyr);
+z39=(1huassyr,-6.9vuassyr);
+z41=(1huassyr,-7.9vuassyr);
+z43=(6huassyr,-4.1vuassyr);
+z45=(10huassyr,-0.3vuassyr);
+z47=(11huassyr,2vuassyr);
+z48=(11huassyr,3.5vuassyr);
+z49=(8.5huassyr,6vuassyr);
+z50=(6huassyr,4.6vuassyr);
+z51=(4.8huassyr,3.3vuassyr);
+z53=(4.79huassyr,3.32vuassyr);
+z55=(4.5huassyr,4vuassyr);
+z57=(4huassyr,5vuassyr);
+z59=(4.02huassyr,5.02vuassyr);
+z61=(4.4huassyr,6vuassyr);
+
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5{up}..{left}z6{left}..z7..{left}z11{left}..{left}z13{left}..z15..
+z16..z17..{down}z19{down}..z21
+..z27..{right}z28{right}..z29..z30..{right}z31{right}..
+{down}z35{down}..z37..z38..z39--z41..z43..z45..z47..
+z48..{left}z49{left}..z50..z51--z53..z55..z57--z59..z61..cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+beginchar("q",11huassyr#,12vuassyr#,odepth#);"The letter separate end Khap";
+z1=(4.7huassyr,7vuassyr);
+z2=(7huassyr, 7vuassyr);
+z3=(10huassyr,10vuassyr);
+z5=(10huassyr,11.8vuassyr);
+z6=(9.8huassyr,12vuassyr);
+z7=(9.6huassyr,11.8vuassyr);
+z11=(7huassyr,11vuassyr);
+z13=(3huassyr,11vuassyr);
+z15=(2huassyr,9vuassyr);
+z16=(2huassyr,8vuassyr);
+z17=(1huassyr,5vuassyr);
+z19=(0.9huassyr,4.8vuassyr);
+z21=(1huassyr,4.6vuassyr);
+
+z25=(3huassyr,1vuassyr);
+z27=(3.9huassyr,-1.5vuassyr);
+z28=(4huassyr,-1.6vuassyr);
+z29=(4.1huassyr,-1.5vuassyr);
+z30=(5.3huassyr,1vuassyr);
+z31=(6.8huassyr,2vuassyr);
+z35=(8huassyr,0.5vuassyr);
+z37=(7.6huassyr,-1vuassyr);
+z38=(3.5huassyr,-5vuassyr);
+z39=(1huassyr,-6.9vuassyr);
+z41=(1huassyr,-7.9vuassyr);
+z43=(6huassyr,-4.1vuassyr);
+z45=(10huassyr,-0.3vuassyr);
+z47=(11huassyr,2vuassyr);
+z48=(11huassyr,3.5vuassyr);
+z49=(8.5huassyr,6vuassyr);
+z50=(6huassyr,4.6vuassyr);
+z51=(4.8huassyr,3.3vuassyr);
+z53=(4.79huassyr,3.32vuassyr);
+z55=(4.5huassyr,4vuassyr);
+z57=(4huassyr,5vuassyr);
+z59=(4.02huassyr,5.02vuassyr);
+z61=(4.4huassyr,6vuassyr);
+
+z67=(1.5huassyr,1vuassyr);
+z69=(1.8huassyr,0.7vuassyr);
+z71=(2huassyr,-0.5vuassyr);
+z73=(1.8huassyr,-1.7vuassyr);
+z75=(1.5huassyr,-2vuassyr);
+z77=(1.2huassyr,-1.7vuassyr);
+z79=(1huassyr,-0.5vuassyr);
+z81=(1.2huassyr,0.7vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5{up}..{left}z6{left}..z7..{left}z11{left}..{left}z13{left}..z15..
+z16..z17..{down}z19{down}..z21
+..z27..{right}z28{right}..z29..z30..{right}z31{right}..
+{down}z35{down}..z37..z38..z39--z41..z43..z45..z47..
+z48..{left}z49{left}..z50..z51--z53..z55..z57--z59..z61..cycle;
+fill z67{right}..z69..{down}z71{down}..z73..{left}z75{left}..z77..
+{up}z79{up}..z81..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("<",11huassyr#,12vuassyr#,odepth#);"The letter separate end Chap";
+z1=(4.7huassyr,7vuassyr);
+z2=(7huassyr, 7vuassyr);
+z3=(10huassyr,10vuassyr);
+z5=(10huassyr,11.8vuassyr);
+z6=(9.8huassyr,12vuassyr);
+z7=(9.6huassyr,11.8vuassyr);
+z11=(7huassyr,11vuassyr);
+z13=(3huassyr,11vuassyr);
+z15=(2huassyr,9vuassyr);
+z16=(2huassyr,8vuassyr);
+z17=(1huassyr,5vuassyr);
+z19=(0.9huassyr,4.8vuassyr);
+z21=(1huassyr,4.6vuassyr);
+
+z25=(3huassyr,1vuassyr);
+z27=(3.9huassyr,-1.5vuassyr);
+z28=(4huassyr,-1.6vuassyr);
+z29=(4.1huassyr,-1.5vuassyr);
+z30=(5.3huassyr,1vuassyr);
+z31=(6.8huassyr,2vuassyr);
+z35=(8huassyr,0.5vuassyr);
+z37=(7.6huassyr,-1vuassyr);
+z38=(3.5huassyr,-5vuassyr);
+z39=(1huassyr,-6.9vuassyr);
+z41=(1huassyr,-7.9vuassyr);
+z43=(6huassyr,-4.1vuassyr);
+z45=(10huassyr,-0.3vuassyr);
+z47=(11huassyr,2vuassyr);
+z48=(11huassyr,3.5vuassyr);
+z49=(8.5huassyr,6vuassyr);
+z50=(6huassyr,4.6vuassyr);
+z51=(4.8huassyr,3.3vuassyr);
+z53=(4.79huassyr,3.32vuassyr);
+z55=(4.5huassyr,4vuassyr);
+z57=(4huassyr,5vuassyr);
+z59=(4.02huassyr,5.02vuassyr);
+z61=(4.4huassyr,6vuassyr);
+
+z67=(4.7huassyr,12.5vuassyr);
+z69=(5.5huassyr,13.3vuassyr);
+z71=(6.7huassyr,12.7vuassyr);
+z73=(7.4huassyr,13.9vuassyr);
+z75=(7.2huassyr,14.5vuassyr);
+z77=(6.4huassyr,13.6vuassyr);
+z79=(5huassyr,14.1vuassyr);
+z81=(4.4huassyr,13.1vuassyr);
+
+pickup logo_pen;
+fill z1--z2{right}..{up}z3--z5{up}..{left}z6{left}..z7..{left}z11{left}..{left}z13{left}..z15..
+z16..z17..{down}z19{down}..z21
+..z27..{right}z28{right}..z29..z30..{right}z31{right}..
+{down}z35{down}..z37..z38..z39--z41..z43..z45..z47..
+z48..{left}z49{left}..z50..z51--z53..z55..z57--z59..z61..cycle;
+fill z67{right}..{right}z69{right}..{right}z71{right}..{up}z73{up}..{left}z75{left}..{left}z77{left}..
+{left}z79{left}..{down}z81{down}..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("V",12huassyr#,12vuassyr#,0);"The letter Ghop";
+z1=(0,0);
+z2=(3huassyr,0);
+z3=(3huassyr,1vuassyr);
+z5=(4huassyr,0.4vuassyr);
+z7=(5huassyr,0);
+z11=(11huassyr,0);
+z13=(12huassyr,1vuassyr);
+z15=(12huassyr,4vuassyr);
+z17=(11huassyr,8.5vuassyr);
+z19=(11huassyr,11.9vuassyr);
+z21=(10.8huassyr,12vuassyr);
+z22=(10.6huassyr,11.9vuassyr);
+z23=(9huassyr,11vuassyr);
+z25=(4huassyr,11vuassyr);
+z26=(2.4huassyr,11.9vuassyr);
+z27=(2.2huassyr,12vuassyr);
+z29=(2huassyr,11.9vuassyr);
+z31=(2huassyr,4vuassyr);
+z33=(0,4vuassyr);
+
+z35=(8.5huassyr,4vuassyr);
+z37=(8.5huassyr,7vuassyr);
+z39=(4.5huassyr,7vuassyr);
+z40=(4.5huassyr,6vuassyr);
+z41=(6.5huassyr,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3..z5..{right}z7..z11{right}..{up}z13--
+z15..z17{up}..{up}z19..{left}z21..z22..{left}z23--z25{left}..z26..{left}z27..{down}z29..{down}z31--z33--cycle;
+unfill z35--z37--z39--z40{down}..{right}z41--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("v",12huassyr#,12vuassyr#,0);"The letter Shin";
+z1=(0,0);
+z2=(6huassyr,0);
+z3=(6huassyr,1vuassyr);
+z5=(7huassyr,0.4vuassyr);
+z7=(8huassyr,0);
+z11=(11huassyr,0);
+z13=(12huassyr,1vuassyr);
+z15=(12huassyr,4vuassyr);
+z17=(10huassyr,4vuassyr);
+z21=(8.4huassyr,7vuassyr);
+z22=(10huassyr,7vuassyr);
+z23=(12huassyr,9vuassyr);
+z25=(12huassyr,11.8vuassyr);
+z26=(11.8huassyr,12vuassyr);
+z27=(11.6huassyr,11.9vuassyr);
+z29=(10huassyr,11vuassyr);
+z31=(4huassyr,11vuassyr);
+z33=(2.4huassyr,11.9vuassyr);
+
+z35=(2.2huassyr,12vuassyr);
+z37=(2huassyr,11.8vuassyr);
+z39=(2huassyr,9vuassyr);
+z40=(4huassyr,7vuassyr);
+z41=(5.5huassyr,7vuassyr);
+z43=(5.5huassyr,4vuassyr);
+z45=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3..z5..{right}z7--z11{right}..{up}z13--
+z15--z17{left}..{up}z21--z22{right}..{up}z23{up}..{up}z25..{left}z26{left}..z27..{left}z29..
+{left}z31..z33..{left}z35{left}..{down}z37{down}..{down}z39{down}..{right}z40--z41--z43--z45--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=5boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("G",20huassyr#,16vuassyr#,6vuassyr#);"The letter Gammal first";
+z1=(0,0);
+z2=(14.1huassyr,0);
+z3=(15huassyr,-1vuassyr);
+z5=(16.4huassyr,-3.7vuassyr);
+z7=(16huassyr,-6vuassyr);
+z11=(18huassyr,-7.8vuassyr);
+z13=(19.8huassyr,-6.2vuassyr);
+z14=(19.3huassyr,-5vuassyr);
+z15=(18huassyr,-3.4vuassyr);
+z17=(6.4huassyr,11.6vuassyr);
+z19=(5.6huassyr,14vuassyr);
+z21=(5.6huassyr,15.8vuassyr);
+z22=(5.5huassyr,16vuassyr);
+z23=(5.35huassyr,15.9vuassyr);
+z24=(2.1huassyr,12vuassyr);
+z25=(2huassyr,11.6vuassyr);
+z50=(2.5huassyr,10.6vuassyr);
+z51=(3huassyr,10vuassyr);
+z27=(8huassyr,4vuassyr);
+z29=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..{up}z19{up}..{up}z21..{left}z22{left}..z23--z24..z25{down}..z50..z51--z27--z29--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("J",20huassyr#,16vuassyr#,6vuassyr#);"The letter Jammal first";
+z1=(0,0);
+z2=(14.1huassyr,0);
+z3=(15huassyr,-1vuassyr);
+z5=(16.4huassyr,-3.7vuassyr);
+z7=(16huassyr,-6vuassyr);
+z11=(18huassyr,-7.8vuassyr);
+z13=(19.8huassyr,-6.2vuassyr);
+z14=(19.3huassyr,-5vuassyr);
+z15=(18huassyr,-3.4vuassyr);
+z17=(6.4huassyr,11.6vuassyr);
+z19=(5.6huassyr,14vuassyr);
+z21=(5.6huassyr,15.8vuassyr);
+z22=(5.5huassyr,16vuassyr);
+z23=(5.35huassyr,15.9vuassyr);
+z24=(2.1huassyr,12vuassyr);
+z25=(2huassyr,11.6vuassyr);
+z50=(2.5huassyr,10.6vuassyr);
+z51=(3huassyr,10vuassyr);
+z27=(8huassyr,4vuassyr);
+z29=(0,4vuassyr);
+
+z67=(9.9huassyr,-3.8vuassyr);
+z69=(10.7huassyr,-3vuassyr);
+z71=(12huassyr,-3.6vuassyr);
+z73=(12.7huassyr,-2.4vuassyr);
+z75=(12.5huassyr,-1.8vuassyr);
+z77=(11.7huassyr,-2.7vuassyr);
+z79=(10.3huassyr,-2.2vuassyr);
+z81=(9.7huassyr,-3.2vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..{up}z19{up}..{up}z21..{left}z22{left}..z23--z24..z25{down}..z50..z51--z27--z29--cycle;
+fill z67{right}..{right}z69{right}..{right}z71{right}..{up}z73{up}..{left}z75{left}..{left}z77{left}..
+{left}z79{left}..{down}z81{down}..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("U",20huassyr#,16vuassyr#,6vuassyr#);"The letter Gammal first with dot";
+z1=(0,0);
+z2=(14.1huassyr,0);
+z3=(15huassyr,-1vuassyr);
+z5=(16.4huassyr,-3.7vuassyr);
+z7=(16huassyr,-6vuassyr);
+z11=(18huassyr,-7.8vuassyr);
+z13=(19.8huassyr,-6.2vuassyr);
+z14=(19.3huassyr,-5vuassyr);
+z15=(18huassyr,-3.4vuassyr);
+z17=(6.4huassyr,11.6vuassyr);
+z19=(5.6huassyr,14vuassyr);
+z21=(5.6huassyr,15.8vuassyr);
+z22=(5.5huassyr,16vuassyr);
+z23=(5.35huassyr,15.9vuassyr);
+z24=(2.1huassyr,12vuassyr);
+z25=(2huassyr,11.6vuassyr);
+z50=(2.5huassyr,10.6vuassyr);
+z51=(3huassyr,10vuassyr);
+z27=(8huassyr,4vuassyr);
+z29=(0,4vuassyr);
+
+z67=(10.9huassyr,-2.8vuassyr);
+z69=(11.2huassyr,-3.1vuassyr);
+z71=(11.4huassyr,-4.5vuassyr);
+z73=(11.2huassyr,-5.5vuassyr);
+z75=(10.9huassyr,-5.8vuassyr);
+z77=(10.6huassyr,-5.5vuassyr);
+z79=(10.4huassyr,-4.5vuassyr);
+z81=(10.6huassyr,-3.1vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..{up}z19{up}..{up}z21..{left}z22{left}..z23--z24..z25{down}..z50..z51--z27--z29--cycle;
+fill z67{right}..z69..{down}z71{down}..z73..{left}z75{left}..z77..
+{up}z79{up}..z81..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=4boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("g",16huassyr#,16vuassyr#,6vuassyr#);"The letter Gammal middle";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,-1.1vuassyr);
+z5=(12.6huassyr,-2.5vuassyr);
+z7=(12huassyr,-6vuassyr);
+z11=(13.8huassyr,-7.8vuassyr);
+z13=(15.9huassyr,-5.5vuassyr);
+z14=(14.7huassyr,-3vuassyr);
+z15=(12huassyr,0);
+z17=(12huassyr,1vuassyr);
+z19=(13huassyr,0.4vuassyr);
+z21=(14huassyr,0);
+z22=(15huassyr,0);
+z23=(16huassyr,1vuassyr);
+z24=(16huassyr,4vuassyr);
+z25=(13huassyr,4vuassyr);
+z50=(12huassyr,4.6vuassyr);
+z51=(6.5huassyr,12vuassyr);
+z27=(5.6huassyr,14.5vuassyr);
+z29=(5.6huassyr,15.9vuassyr);
+z31=(5.5huassyr,16vuassyr);
+z33=(5.3huassyr,15.9vuassyr);
+z35=(2.2huassyr,12vuassyr);
+z37=(2huassyr,11.4vuassyr);
+z39=(2.2huassyr,11vuassyr);
+z41=(3huassyr,10vuassyr);
+z43=(8.4huassyr,4vuassyr);
+z45=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..z19..{right}z21--z22{right}..{up}z23--z24--z25{left}..z50--z51..{up}z27{up}..{up}z29{up}..
+{left}z31{left}..z33--z35..{down}z37{down}..z39..z41--z43--z45--cycle;
+
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("u",16huassyr#,16vuassyr#,6vuassyr#);"The letter Gammal middle with dot";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,-1.1vuassyr);
+z5=(12.6huassyr,-2.5vuassyr);
+z7=(12huassyr,-6vuassyr);
+z11=(13.8huassyr,-7.8vuassyr);
+z13=(15.9huassyr,-5.5vuassyr);
+z14=(14.7huassyr,-3vuassyr);
+z15=(12huassyr,0);
+z17=(12huassyr,1vuassyr);
+z19=(13huassyr,0.4vuassyr);
+z21=(14huassyr,0);
+z22=(15huassyr,0);
+z23=(16huassyr,1vuassyr);
+z24=(16huassyr,4vuassyr);
+z25=(13huassyr,4vuassyr);
+z50=(12huassyr,4.6vuassyr);
+z51=(6.5huassyr,12vuassyr);
+z27=(5.6huassyr,14.5vuassyr);
+z29=(5.6huassyr,15.9vuassyr);
+z31=(5.5huassyr,16vuassyr);
+z33=(5.3huassyr,15.9vuassyr);
+z35=(2.2huassyr,12vuassyr);
+z37=(2huassyr,11.4vuassyr);
+z39=(2.2huassyr,11vuassyr);
+z41=(3huassyr,10vuassyr);
+z43=(8.4huassyr,4vuassyr);
+z45=(0,4vuassyr);
+
+
+z67=(7.9huassyr,-1.5vuassyr);
+z69=(8.2huassyr,-1.8vuassyr);
+z71=(8.4huassyr,-3vuassyr);
+z73=(8.2huassyr,-4.2vuassyr);
+z75=(7.9huassyr,-4.5vuassyr);
+z77=(7.6huassyr,-4.2vuassyr);
+z79=(7.4huassyr,-3vuassyr);
+z81=(7.6huassyr,-1.8vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..z19..{right}z21--z22{right}..{up}z23--z24--z25{left}..z50--z51..{up}z27{up}..{up}z29{up}..
+{left}z31{left}..z33--z35..{down}z37{down}..z39..z41--z43--z45--cycle;
+fill z67{right}..z69..{down}z71{down}..z73..{left}z75{left}..z77..
+{up}z79{up}..z81..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+beginchar("j",16huassyr#,16vuassyr#,6vuassyr#);"The letter jammal middle";
+z1=(0,0);
+z2=(11huassyr,0);
+z3=(12huassyr,-1.1vuassyr);
+z5=(12.6huassyr,-2.5vuassyr);
+z7=(12huassyr,-6vuassyr);
+z11=(13.8huassyr,-7.8vuassyr);
+z13=(15.9huassyr,-5.5vuassyr);
+z14=(14.7huassyr,-3vuassyr);
+z15=(12huassyr,0);
+z17=(12huassyr,1vuassyr);
+z19=(13huassyr,0.4vuassyr);
+z21=(14huassyr,0);
+z22=(15huassyr,0);
+z23=(16huassyr,1vuassyr);
+z24=(16huassyr,4vuassyr);
+z25=(13huassyr,4vuassyr);
+z50=(12huassyr,4.6vuassyr);
+z51=(6.5huassyr,12vuassyr);
+z27=(5.6huassyr,14.5vuassyr);
+z29=(5.6huassyr,15.9vuassyr);
+z31=(5.5huassyr,16vuassyr);
+z33=(5.3huassyr,15.9vuassyr);
+z35=(2.2huassyr,12vuassyr);
+z37=(2huassyr,11.4vuassyr);
+z39=(2.2huassyr,11vuassyr);
+z41=(3huassyr,10vuassyr);
+z43=(8.4huassyr,4vuassyr);
+z45=(0,4vuassyr);
+
+z67=(6.9huassyr,-3.8vuassyr);
+z69=(7.7huassyr,-3vuassyr);
+z71=(9huassyr,-3.6vuassyr);
+z73=(9.7huassyr,-2.4vuassyr);
+z75=(9.5huassyr,-1.8vuassyr);
+z77=(8.7huassyr,-2.7vuassyr);
+z79=(7.3huassyr,-2.2vuassyr);
+z81=(6.7huassyr,-3.2vuassyr);
+
+pickup logo_pen;
+fill z1--z2..z3..{down}z5{down}..{down}z7{down}..{right}z11{right}..{up}z13{up}..
+z14..z15--z17..z19..{right}z21--z22{right}..{up}z23--z24--z25{left}..z50--z51..{up}z27{up}..{up}z29{up}..
+{left}z31{left}..z33--z35..{down}z37{down}..z39..z41--z43--z45--cycle;
+fill z67{right}..{right}z69{right}..{right}z71{right}..{up}z73{up}..{left}z75{left}..{left}z77{left}..
+{left}z79{left}..{down}z81{down}..{right}cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+kwidth#:=1.5boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("I",6huassyr#,8vuassyr#,0);"The letter Ioot first";
+z1=(0,0);
+z2=(2huassyr,0);
+z3=(2huassyr,1vuassyr);
+z5=(3huassyr,0.4vuassyr);
+z7=(4huassyr,0);
+z11=(5huassyr,0);
+z13=(6huassyr,1vuassyr);
+z14=(6huassyr,4vuassyr);
+z15=(2.8huassyr,7.5vuassyr);
+z17=(2.3huassyr,8vuassyr);
+z19=(2huassyr,7vuassyr);
+z21=(1huassyr,4vuassyr);
+z22=(0,4vuassyr);
+pickup logo_pen;
+fill z1--z2--z3..z5..z7{right}..z11{right}..{up}z13--
+z14{left}..z15..{left}z17..{down}z19{down}..{left}z21..{left}z22--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("i",12huassyr#,8vuassyr#,0);"The letter Khet first";
+z1=(0,0);
+z2=(2huassyr,0);
+z3=(2huassyr,1vuassyr);
+z5=(3huassyr,0.4vuassyr);
+z7=(4huassyr,0);
+z11=(8huassyr,0);
+z13=(8huassyr,1vuassyr);
+z14=(9huassyr,0.4vuassyr);
+z15=(10huassyr,0);
+z17=(11huassyr,0);
+z19=(12huassyr,1vuassyr);
+z21=(12huassyr,4vuassyr);
+z22=(8.8huassyr,7.5vuassyr);
+
+z23=(8.3huassyr,8vuassyr);
+z25=(8huassyr,7vuassyr);
+z27=(7huassyr,4vuassyr);
+z29=(6huassyr,4vuassyr);
+z31=(2.8huassyr,7.5vuassyr);
+z33=(2.3huassyr,8vuassyr);
+z35=(2huassyr,7vuassyr);
+z37=(1huassyr,4vuassyr);
+z39=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3..z5..{right}z7--z11--z13..
+z14..{right}z15--z17{right}..{up}z19--z21{left}..z22..{left}z23..{down}z25{down}..
+{left}z27..{left}z29..z31..{left}z33..{down}z35{down}..{left}z37..{left}z39--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3.5boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("E",14huassyr#,16vuassyr#,0);"The letter Ee first";
+z1=(0,0);
+z2=(10huassyr,0);
+z3=(10huassyr,1vuassyr);
+z5=(11huassyr,0.4vuassyr);
+z7=(12huassyr,0);
+z11=(12.5huassyr,0);
+z13=(14huassyr,2.5vuassyr);
+z14=(14huassyr,5.2vuassyr);
+z15=(13.8huassyr,5.4vuassyr);
+z17=(13.6huassyr,5.2vuassyr);
+z19=(12.5huassyr,4vuassyr);
+z21=(11huassyr,4.9vuassyr);
+z22=(10huassyr,6vuassyr);
+
+z23=(6huassyr,12.1vuassyr);
+z25=(5huassyr,15vuassyr);
+z27=(5huassyr,15.8vuassyr);
+z29=(4.9huassyr,16vuassyr);
+z31=(4.7huassyr,15.85vuassyr);
+z33=(2.3huassyr,13vuassyr);
+z35=(2huassyr,12.2vuassyr);
+z37=(2.5huassyr,11vuassyr);
+z39=(7.4huassyr,4vuassyr);
+z41=(0,4vuassyr);
+
+pickup logo_pen;
+fill z1--z2--z3..z5..{right}z7--z11{right}..{up}z13{up}..
+{up}z14{up}..{left}z15..z17..{left}z19{left}..z21..z22--z23..{up}z25{up}..
+{up}z27{up}..{left}z29..z31--z33..{down}z35{down}..z37--z39--z41--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+kwidth#:=3boxx#;
+kheight#:=5boxx#;
+kdepth#:=2boxx#;
+kleft#:=0#;
+
+beginchar("e",12huassyr#,16vuassyr#,0);"The letter Ee middle";
+z1=(0,0);
+z2=(10huassyr,0);
+z3=(10huassyr,1vuassyr);
+z5=(11huassyr,0.4vuassyr);
+z7=(12huassyr,0);
+z11=(12huassyr,4vuassyr);
+z12=(11huassyr,4.4vuassyr);
+z101=(10huassyr,5.5vuassyr);
+z100=(9.6huassyr,6vuassyr);
+z13=(5.9huassyr,12vuassyr);
+z14=(5.1huassyr,15vuassyr);
+z15=(5.1huassyr,15.8vuassyr);
+z17=(5huassyr,16vuassyr);
+z19=(4.8huassyr,15.85vuassyr);
+z21=(2.25huassyr,12.5vuassyr);
+z22=(2huassyr,11.85vuassyr);
+
+z23=(2.4huassyr,10.9vuassyr);
+z25=(7.2huassyr,4vuassyr);
+z27=(0,4vuassyr);
+pickup logo_pen;
+fill z1--z2--z3..z5..{right}z7--z11{left}..z12..z101..z100--z13..
+z14{up}..{up}z15..{left}z17..z19--z21..{down}z22..z23--z25--z27--cycle;
+endchar;
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/serto.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/serto.mf
new file mode 100644
index 00000000000..88e2f0b9865
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/serto.mf
@@ -0,0 +1,51 @@
+% Driver file for Serto font `serto.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke %
+% <johannes(dot)heinecke(at)wanadoo(dot)fr> %
+% Please send any improvements, corrections, suggestions, enhancements etc %
+% to the Author! %
+% %
+% Version 0.1 as of 1st November 2001 %
+% %
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+font_coding_scheme:="Serto - Syriac";
+mode_setup;
+if known cmbase: font_setup; fi % If used with cmbase
+font_serto_setup;
+let sertochar=\;
+
+% fontmaking:=1; % to generate a TFM File during proof-ing
+
+%% Zeichendefinitionsdateien %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+input sertofont; % the serto alphabet
+%if unknown cmbase: input sertod; else: input romand; fi % digits: if cmbase is
+ % used this font will
+ % load cm-digits, for
+ % they are finer tuned.
+%if unknown cmbase: input sertop; else: input punct; fi % The same for punctuation
+%input sertovoc; % vowels
+
+%% Font-Parameter fuer TeX %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+font_quad 2.5stu#; % 1 em
+font_x_height 2stu#; % 1 ex (used by syriac.sty to define accent position)
+font_normal_space 3stu#; % word gap
+font_normal_stretch 2stu#; % word gap may stretch by ...
+font_normal_shrink 1stu#; % word gap my shrink by ...
+font_slant slant;
+
+% special "grayfont graylj"; % Only for GFtoDVI on emTeXs METAFONT
+
+%% Ligature-Tables %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% olaf-lamad
+ligtable 65 : 116 =: 171;
+
+%lamad-olaf initial
+ligtable 116 : 66 =: 172;
+
+%lamad-olaf final
+ligtable 115 : 66 =: 173;
+
+endinput;
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/serto10.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/serto10.mf
new file mode 100644
index 00000000000..16d7dd48f36
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/serto10.mf
@@ -0,0 +1,126 @@
+% Syriac Font 10 point Normal Face `serto10.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.2 as of 17thNovember 2001
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+% Based on the parameters as in CMR10
+
+% if unknown cmbase: input cmbase fi
+if unknown sertobase: input sertobase fi
+
+font_identifier:="SERTO"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width (was 20/36 until version 0.4)
+if known cmbase:
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+fi
+
+% These are the real serto Parameters
+boolean mxcap;
+mxcap:=false; % No capitals
+%stu#:= 2.5u#; % the unit, which where used to design this fonts
+stu#:= 2u#; % the unit, which where used to design this fonts
+hu#:=stu#; % the horizontal unit
+vu#:=stu#; % the vertical unit
+
+%mxlittle#:= 3mxu#; % height of letters without ascenders
+%mxtop#:= 2mxu#; % the height of the ascenders
+%mxheight#:=mxtop#+mxlittle#;
+%mxhalf#:=mxu#; % Half width of the letter 'a'
+%mxone#:=2mxhalf#;
+%mxmiddle#:=2/3mxlittle#; % strokes not reaching the baseline, as in 'o'
+%mxthird#:=1/3mxlittle#;
+%mxfeet#:= .4mxhalf#; % The feet of 'i' and 'o' etc are slightly
+% % bent to the middle
+%mxlow#:= 1.8mxu#; %war 2mxu# % max depth below the baseline
+%mxzw#:= .65mxu#; % Seperation of two letters
+
+
+basestroke# := stu#;
+px1#:=.18stu#; % pen 1 xscaling
+py1#:=.60stu#; % pen 1 yscaling
+
+dpx1#:=px1#; % digitpen xscaling
+dpy1#:=py1#; % digitpen yscaling
+pdot#:=.74stu#; % pen for dots
+pdash#:=.40stu#; % pen for dashes
+
+
+slant:=0;
+
+input serto; % switch to the driver file
+bye.
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/sertob10.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertob10.mf
new file mode 100644
index 00000000000..8b6261ad1e8
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertob10.mf
@@ -0,0 +1,125 @@
+% Syriac Font 10 point Normal Face `serto10.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.2 as of 17thNovember 2001
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+%
+% Based on the parameters as in CMR10
+
+% if unknown cmbase: input cmbase fi
+if unknown sertobase: input sertobase fi
+
+font_identifier:="SERTO"; font_size 10pt#;
+
+u#:=20/36pt#; % unit width
+if known cmbase:
+width_adj#:=0pt#; % width adjustment for certain characters
+serif_fit#:=0pt#; % extra sidebar near lowercase serifs
+cap_serif_fit#:=5/36pt#; % extra sidebar near uppercase serifs
+letter_fit#:=0pt#; % extra space added to all sidebars
+
+body_height#:=270/36pt#; % height of tallest characters
+asc_height#:=250/36pt#; % height of lowercase ascenders
+cap_height#:=246/36pt#; % height of caps
+fig_height#:=232/36pt#; % height of numerals
+x_height#:=155/36pt#; % height of lowercase without ascenders
+math_axis#:=90/36pt#; % axis of symmetry for math symbols
+bar_height#:=87/36pt#; % height of crossbar in lowercase e
+comma_depth#:=70/36pt#; % depth of comma below baseline
+desc_depth#:=70/36pt#; % depth of lowercase descenders
+
+crisp#:=0pt#; % diameter of serif corners
+tiny#:=8/36pt#; % diameter of rounded corners
+fine#:=7/36pt#; % diameter of sharply rounded corners
+thin_join#:=7/36pt#; % width of extrafine details
+hair#:=9/36pt#; % lowercase hairline breadth
+stem#:=25/36pt#; % lowercase stem breadth
+curve#:=30/36pt#; % lowercase curve breadth
+ess#:=27/36pt#; % breadth in middle of lowercase s
+flare#:=33/36pt#; % diameter of bulbs or breadth of terminals
+dot_size#:=38/36pt#; % diameter of dots
+cap_hair#:=11/36pt#; % uppercase hairline breadth
+cap_stem#:=32/36pt#; % uppercase stem breadth
+cap_curve#:=37/36pt#; % uppercase curve breadth
+cap_ess#:=35/36pt#; % breadth in middle of uppercase s
+rule_thickness#:=.4pt#; % thickness of lines in math symbols
+
+dish#:=1/36pt#; % amount erased at top or bottom of serifs
+bracket#:=20/36pt#; % vertical distance from serif base to tangent
+jut#:=28/36pt#; % protrusion of lowercase serifs
+cap_jut#:=37/36pt#; % protrusion of uppercase serifs
+beak_jut#:=10/36pt#; % horizontal protrusion of beak serifs
+beak#:=70/36pt#; % vertical protrusion of beak serifs
+vair#:=8/36pt#; % vertical diameter of hairlines
+notch_cut#:=10pt#; % maximum breadth above or below notches
+bar#:=11/36pt#; % lowercase bar thickness
+slab#:=11/36pt#; % serif and arm thickness
+cap_bar#:=11/36pt#; % uppercase bar thickness
+cap_band#:=11/36pt#; % uppercase thickness above/below lobes
+cap_notch_cut#:=10pt#; % max breadth above/below uppercase notches
+serif_drop#:=4/36pt#; % vertical drop of sloped serifs
+stem_corr#:=1/36pt#; % for small refinements of stem breadth
+vair_corr#:=1/36pt#; % for small refinements of hairline height
+apex_corr#:=0pt#; % extra width at diagonal junctions
+
+o#:=8/36pt#; % amount of overshoot for curves
+apex_o#:=8/36pt#; % amount of overshoot for diagonal junctions
+
+slant:=0; % tilt ratio $(\Delta x/\Delta y)$
+fudge:=1; % factor applied to weights of heavy characters
+math_spread:=0; % extra openness of math symbols
+superness:=1/sqrt2; % parameter for superellipses
+superpull:=1/6; % extra openness inside bowls
+beak_darkness:=11/30; % fraction of triangle inside beak serifs
+ligs:=2; % level of ligatures to be included
+
+square_dots:=false; % should dots be square?
+hefty:=false; % should we try hard not to be overweight?
+serifs:=true; % should serifs and bulbs be attached?
+monospace:=false; % should all characters have the same width?
+variant_g:=false; % should an italic-style g be used?
+low_asterisk:=false; % should the asterisk be centered at the axis?
+math_fitting:=false; % should math-mode spacing be used?
+fi
+
+% These are the real serto Parameters
+boolean mxcap;
+mxcap:=false; % No capitals
+stu#:= 2.5u#; % was 2.7u# % the unit, which where used to design this fonts
+hu#:=stu#; % the horizontal unit
+vu#:=stu#; % the vertical unit
+
+%mxlittle#:= 3mxu#; % height of letters without ascenders
+%mxtop#:= 2mxu#; % the height of the ascenders
+%mxheight#:=mxtop#+mxlittle#;
+%mxhalf#:=mxu#; % Half width of the letter 'a'
+%mxone#:=2mxhalf#;
+%mxmiddle#:=2/3mxlittle#; % strokes not reaching the baseline, as in 'o'
+%mxthird#:=1/3mxlittle#;
+%mxfeet#:= .4mxhalf#; % The feet of 'i' and 'o' etc are slightly
+% % bent to the middle
+%mxlow#:= 1.8mxu#; %war 2mxu# % max depth below the baseline
+%mxzw#:= .65mxu#; % Seperation of two letters
+
+
+basestroke# := 1.3stu#;
+px1#:=.18stu#; % pen 1 xscaling
+py1#:=.60stu#; % pen 1 yscaling
+
+dpx1#:=px1#; % digitpen xscaling
+dpy1#:=py1#; % digitpen yscaling
+pdot#:=.74stu#; % pen for dots
+pdash#:=.40stu#; % pen for dashes
+
+
+slant:=0;
+
+input serto; % switch to the driver file
+bye.
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/sertobase.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertobase.mf
new file mode 100644
index 00000000000..d8e9a492fff
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertobase.mf
@@ -0,0 +1,115 @@
+% Serto Base File `sertobase.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.2 as of 17thNovember 2001
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+sertobase:=1; % Es soll nur einmal geladen werden.
+
+newinternal slant;
+
+def font_serto_setup = % Eigenes Macro
+ define_pixels(stu, hu, vu, basestroke);
+ % mxmiddle, mxtop, mxfeet, mxlow, mxzw);
+ define_blacker_pixels(px1, py1, dpx1, dpy1, pdot, pdash);
+
+ pickup pencircle xscaled .4basestroke yscaled basestroke rotated -45;
+ serto_pen:=savepen;
+
+ pickup pencircle xscaled .2basestroke yscaled basestroke;
+ pe_pen:=savepen;
+
+ pickup pencircle xscaled .3basestroke yscaled .4basestroke;
+ punct_pen:=savepen;
+
+% pickup pencircle xscaled .8basestroke yscaled 2basestroke rotated 20;
+% chaldeanvowels_pen:=savepen;
+%
+% pickup pencircle xscaled .9basestroke yscaled 1.3basestroke rotated 10;
+% chaldeanvowels2_pen:=savepen;
+
+ pickup pencircle xscaled basestroke yscaled basestroke;
+ para_pen:=savepen;
+
+
+ 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;
+
+
+% pickup pencircle xscaled dpx1 yscaled dpy1 rotated -10;
+% mxed_digitpen:=savepen; % Pen for digits and punctuation
+%
+% pickup pencircle scaled pdot;
+% mxed_dot:=savepen; % Pen for dots
+%
+% pickup pencircle scaled pdash;
+% mxed_dash:=savepen; % Pen for lines
+%
+%
+% pickup pensquare scaled pdash;
+% mxed_square:=savepen;
+%
+% pickup pencircle xscaled px1 yscaled py1;
+% mxed_pencc:=savepen;
+
+ currenttransform:=identity slanted slant yscaled aspect_ratio;
+enddef;
+
+
+
+if known cmbase:
+ def makebox(text rule) =
+ for y=0,h,mxlittle, -d, mxthird:
+ rule((0,y)t_,(r,y)t_); endfor % horizontals
+ for x=0,r,r-mxzw,mxhalf,mxone:
+ rule((x,-d)t_,(x,h)t_); endfor % verticals
+ % for x=u*(1+floor(l/u)) step u until r-1:
+ % rule((x,-body_depth)t_,(x,body_height)t_); endfor % more verticals
+ % if charic<>0:
+ % rule((r+charic*pt,h.o_),(r+charic*pt,.5h.o_)); fi % italic correction
+ enddef;
+
+else:
+ def makebox(text r) =
+ % horizontal lines on y-values:
+% for y=0, h.o_, -d.o_:
+% r((0, y), (w, y));
+% endfor
+
+ for y=0 step vu until h:
+ r((0, y), (w, y));
+ endfor
+
+% for y=0 step -vu until -d:
+% 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 hu until w:
+ r((x, -d), (x, h));
+ endfor
+ r((w, -d), (w, h));
+ if charic<>0: r((w+charic*hppp,h.o_),(w+charic*hppp,.5h.o_)); fi
+ enddef;
+fi
+
+
+endinput;
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/sertofont.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertofont.mf
new file mode 100644
index 00000000000..e468b4b3f49
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertofont.mf
@@ -0,0 +1,1700 @@
+% Syriac Serto FONT `sertofont.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.7 as of 29th September 2007
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+input sertomacros;
+
+%% Endarabeske für beth etc
+%def arabesque (suffix $)(expr length) =
+% z$aa = (x$, y$-.5basestroke);
+% z$ac = (x$, y$+.5basestroke);
+% z$ab = (x$-length*hu, y$aa);
+% z$ad = (x$-(length-.2)*hu, y$ac);
+% z$ae = (x$ab-hu, y$ad+vu);
+% fill z$aa--z$ab{left}..{up}z$ae{dir -45}..{right}z$ad--z$ac--cycle;
+% labels($aa, $ab, $ac, $ad, $ae);
+%enddef;
+%
+%% baseline, if needed
+%def baseline (suffix $)(expr length) =
+% z$bz = z$; % to allow several baselines from one point
+% z$ba = (x$, y$-.5basestroke);
+% z$bc = (x$, y$+.5basestroke);
+% z$bb = (x$-length*hu, y$ba);
+% z$bd = (x$-length*hu, y$bc);
+% fill z$ba--z$bb--z$bd--z$bc--cycle;
+% labels($ba, $bb, $bc, $bd);
+%enddef;
+%
+%% dalath/resh dot
+%def sertodot (suffix $) (expr size) =
+% z$ca = (x$-.3hu, y$+.4vu); penpos$ca(size*basestroke, 45);
+% z$cb = (x$+.3hu, y$-.4vu); penpos$cb(size*basestroke, 45);
+% penstroke z$ca.e..z$cb.e;
+% labels($ca, $cb)
+%enddef;
+%
+
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%% Character Definitions: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% Order: alphabetically, isolated-final-medial-initial
+
+% olaf - isolated
+sertochar "olaf - isolated '";
+beginchar(65, 2hu#, 8vu#, 0);
+ z1 = (.5hu, 0); penpos1(basestroke, 0);
+ z2 = (.4hu, 2vu); penpos2(.9basestroke, 0);
+ z3 = (hu, 5vu); penpos3(.5basestroke, 10);
+ %z4 = (.4hu, 7.5vu); penpos4(basestroke, 45);
+ z4 = (.4hu, 7.5vu); penpos4(1.2basestroke, 45);
+ penstroke z1e..z2e..z3e..z4e;
+ penlabels(range 1 thru 4);
+endchar;
+
+% olaf - final
+sertochar "olaf - final '";
+beginchar(66, 2hu#, 8vu#, 0);
+ %z1 = (2hu, .5vu); penpos1(basestroke, 90);
+ %z2 = (1.1hu, 1.1vu); penpos2(.9basestroke, 40);
+ %z3 = (.5hu, 4vu); penpos3(.7basestroke, 0);
+ %z4 = (.5hu, 8vu); penpos4(.7basestroke, 0);
+ %z5r = z2l;
+ %z5l = (0, y2l);
+ %z6 = (-.3hu, -vu); penpos6(.4basestroke, -45);
+ %penstroke z1e{left}..z2e..z3e..z4e;
+ %penstroke z4e..z3e..z5e..z6e;
+
+ z1 = (2hu, .5vu); penpos1(basestroke, 90);
+ z2 = (x1-1.5hu, 2.5vu); penpos2(basestroke, 0);
+ z3 = (x2, 4.5vu); penpos3(basestroke, 0);
+ z4l = z3l + (0, 3.2vu);
+ z4r = z3r + (0, 3.8vu);
+ z14l = z13l + (0, 3.8vu);
+ z14r = z13r + (0, 3.2vu);
+
+
+ z6 = (-.8hu, -1.5vu); penpos6(.2basestroke, -45);
+
+ penstroke z4e..z3e..z2e{down}..{right}z1e;
+ penstroke z2e{down}..z6e;
+ %penstroke z4e..z3e..z5e..z6e;
+ penlabels(range 1 thru 6);
+endchar;
+
+
+def bethcommon =
+ z1 = (6hu, .5vu); penpos1(basestroke, -90);
+ %z2 = (x1+.5hu, 4vu/3); penpos2(basestroke, 30);
+ z2 = (x1+.5basestroke, 4basestroke/3); penpos2(basestroke, 30);
+ z4 = (3hu, 3.4vu); penpos4(basestroke, 90);
+ z5 = (.7hu, 2.5vu); penpos5(.45basestroke, 135);
+ penstroke z1e{right}..z2e..z4e..z5e;
+ penlabels(range 1 thru 5);
+enddef;
+
+% beth - isolated
+sertochar "beth - isolated b";
+beginchar(67, 8hu#, 4vu#, 0);
+ bethcommon;
+ arabesque(1, 5);
+endchar;
+
+% beth - final
+sertochar "beth - final b";
+beginchar(68, 8hu#, 4vu#, 0);
+ bethcommon;
+ baseline(1, -2);
+ arabesque(1, 5);
+endchar;
+
+% beth - medial
+sertochar "beth - medial b";
+beginchar(69, 8hu#, 4vu#, 0);
+ bethcommon;
+ z6 = z1;
+ baseline(1, 6);
+ baseline(6, -2);
+ penlabels(6);
+endchar;
+
+% beth - initial
+sertochar "beth - initial b";
+beginchar(70, 8hu#, 4vu#, 0);
+ bethcommon;
+ baseline(1, 6);
+endchar;
+
+
+
+def gammalcommon =
+ z1 = (2.5hu, 1.25vu); penpos1(basestroke, -135);
+ z3 = (7.25hu, -2.25vu); penpos3(.6basestroke, -120);
+ %z4r = z3r;
+ z5r = z3r;
+ %z4l = (x4r+1.5hu, y4r);
+ z5l = (x5r, y5r-.7hu);
+ z6 = (3.5hu, -1.45vu); penpos6(.8basestroke, 45);
+ %z7 = (hu, .5vu);
+ z7l = (hu, -.3hu);
+ penpos7(.9basestroke, 50);
+
+ penstroke z1e{dir -45}..z3e;
+ penstroke z3e{dir -32}..z5e;
+ penstroke z5e{left}..z6e..z7e;
+
+ penlabels(range 1 thru 7);
+enddef;
+
+def gammalarabesque =
+ z8 = (x7l, 2.5vu);
+ fill z7l{z7l-z6l}..z8 & z8{dir -100}..{z6r-z7r}z7r--cycle;
+ penlabels(8)
+enddef;
+%endinput;
+% gamal - isolated
+sertochar "gamal - isolated g";
+beginchar(71, 7hu#, 1vu#, 3vu#);
+ gammalcommon;
+ gammalarabesque;
+endchar;
+
+% gamal - final
+sertochar "gamal - final g";
+beginchar(72, 7hu#, 1vu#, 3vu#);
+ gammalcommon;
+ gammalarabesque;
+
+ z9 = (4hu, .5vu); penpos9(basestroke, -90);
+ baseline(9, -3);
+ penstroke z9e{left}..z1e;
+
+ penlabels(9);
+endchar;
+
+% gamal - medial
+sertochar "gamal - medial g";
+beginchar(73, 7hu#, 1vu#, 3vu#);
+ gammalcommon;
+ z8 = (0, .5vu); penpos8(basestroke, 90);
+ penstroke z7e{z7e-z6e}..{left}z8e;
+ z9 = (4hu, .5vu); penpos9(basestroke, -90);
+ baseline(9, -3);
+ penstroke z9e{left}..z1e;
+
+ penlabels(9);
+ penlabels(8)
+endchar;
+
+
+% gamal - initial
+sertochar "gamal - initial g";
+beginchar(74, 7hu#, 1vu#, 3vu#);
+ gammalcommon;
+ z8 = (0, .5vu); penpos8(basestroke, 90);
+ penstroke z7e{z7e-z6e}..{left}z8e;
+ penlabels(8)
+endchar;
+
+
+def dr_isolated_common =
+ %z1 = (.5hu, -1vu);
+ z2 = (2.5hu, 2vu);
+ z3 = (1hu, 4vu);
+ z4 = (0, 2.5vu);
+ z5 = (1hu, 1vu);
+ z1 = (.6hu, -.7vu);
+ %fill z4{down}..z5..{dir -135}z1
+ % & z1{dir 45}..z2{up}..z3{left}..cycle;
+ fill z4{down}..z5..{dir -115}z1{dir 45}..z2{up}..z3{left}..cycle;
+ penlabels(range 1 thru 5);
+
+enddef;
+
+% dalath - isolated
+sertochar "dalath - isolated d";
+beginchar(75, 4hu#, 4vu#, 2vu#);
+ dr_isolated_common;
+ z6 = (1hu, y1-1.2vu);
+ sertodot(6, 1);
+ penlabels(6);
+endchar;
+
+
+def dr_final_common =
+ z1 = (3.5hu, .5vu); penpos1(basestroke, 90);
+ z2 = (hu, 1.5vu); penpos2(1.2basestroke, 45);
+ penstroke z1e{left}..z2e;
+
+ z3 = (x2r, -vu);
+ %fill z2r{dir -80}..z3 & z3..{dir 130}z2l--cycle;
+ fill z2r{dir -80}..{right}z1r & z1r--z1l
+ & z1l{left}..z3 & z3..{dir 130}z2l--cycle;
+
+ penlabels(range 1 thru 3);
+enddef;
+
+% dalath - final
+sertochar "dalath - final d";
+beginchar(76, 3.5hu#, 2vu#, 3vu#);
+ dr_final_common;
+ z4 = (x3, y3-1.2vu);
+ sertodot(4, 1);
+ penlabels(4);
+endchar;
+
+
+
+
+
+def heecommon =
+ z1 = (5.5hu, 0); penpos1(.2basestroke, 0);
+ z2 = (6hu, 2.8vu); penpos2(.6basestroke, 0);
+ z3 = (5.5hu, 4.5vu); penpos3(basestroke, 90);
+ z4 = (2.5hu, .5vu); penpos4(basestroke, 90);
+ z5 = (.2hu, y2); penpos5(.5basestroke, 0);
+ z6 = (x4, y3); penpos6(basestroke, -90);
+ z7 = (5hu, 3vu); penpos7(.9basestroke, -135);
+ penstroke z1e..z2e..z3e & z3e{dir -105}..z4e..z5e..z6e..z7e;
+ penlabels(range 1 thru 7);
+enddef;
+
+
+% he isolated
+sertochar "he - isolated h";
+beginchar(77, 7hu#, 5vu#, 0);
+ heecommon;
+endchar;
+
+% he final
+sertochar "he - final h";
+beginchar(78, 7.5hu#, 5vu#, 0);
+ heecommon;
+ z8 = (x1+.5hu, 2vu); penpos8(basestroke, 90);
+ z9 = (x1+2hu, .5vu); penpos9(basestroke, 90);
+ penstroke z8e..{right}z9e;
+ penlabels(8, 9);
+endchar;
+
+def wawcommon (suffix $) =
+ pickup serto_pen;
+ bot z$a = (x$ + 2hu, y$);
+ lft z$b = (x$, y$ + 2vu);
+ top z$c = (x$a, y$ + 5vu);
+ rt z$d = (x$ + 4hu, y$ + 2vu);
+ draw z$a..z$b..z$c..z$d..cycle;
+
+ penlabels($a, $b, $c, $d);
+enddef;
+
+
+% waw isolated
+sertochar "waw - isolated w";
+beginchar(79, 5hu#, 5vu#, 0);
+ z1 = (0, 0);
+ wawcommon(1);
+endchar;
+
+% waw final
+sertochar "waw - final w";
+beginchar(80, 5hu#, 5vu#, 0);
+ z1 = (0, 0);
+ wawcommon(1);
+ z5 = (.6[x1a,x1d], vu); penpos5(basestroke, 50);
+ z6 = (5hu, .5vu); penpos6(basestroke, 90);
+ penstroke z6e{left}..z5e;
+ penlabels(5, 6);
+endchar;
+
+
+
+
+% o-waw isolated
+sertochar "waw - isolated o";
+beginchar(159, 5hu#, 5vu#, 0);
+ z1 = (0, 0);
+ wawcommon(1);
+ z7 = (x1c, 7hu);
+ sertodot(7, 1);
+endchar;
+
+% o-waw final
+sertochar "waw - final o";
+beginchar(160, 5hu#, 5vu#, 0);
+ z1 = (0, 0);
+ wawcommon(1);
+ z5 = (.6[x1a,x1d], vu); penpos5(basestroke, 50);
+ z6 = (5hu, .5vu); penpos6(basestroke, 90);
+ z7 = (x1c, 7hu);
+ sertodot(7, 1);
+
+ penstroke z6e{left}..z5e;
+ penlabels(5, 6, 7);
+endchar;
+
+
+
+def zaincommon =
+ z1 = (2hu, .5vu); penpos1(basestroke, 90);
+ z2 = (1.1hu, 1.1vu); penpos2(.9basestroke, 40);
+ z3 = (.5hu, 4vu); penpos3(.7basestroke, 0);
+ z5r = z2l;
+ z5l = (0, y2l);
+ z6 = (-.3hu, -1.3vu); penpos6(.3basestroke, -45);
+
+ penstroke z3e{down}..z5e..z6e;
+ penlabels(range 1 thru 6);
+enddef;
+
+% zain - isolated
+sertochar "zain - isolated z";
+beginchar(81, 2hu#, 4vu#, 1.5vu#);
+ zaincommon;
+endchar;
+
+% zain - final
+sertochar "zain - final z";
+beginchar(82, 2hu#, 4vu#, 1.5vu#);
+ zaincommon;
+ penstroke z1e..z2e..{up}z3e;
+endchar;
+
+def hhethcommon (expr xoffs, init) =
+ if init = 1:
+ z1 = (xoffs + 3.8hu, 2.4vu);
+ z11 = (xoffs + 4.5hu, 2.2vu);
+ else:
+ z1 = (xoffs + 4.3hu, 2.6vu);
+ z11 = (xoffs + 4.7hu, y1);
+ fi;
+
+ %z1 = (xoffs + 4.5hu, 2.6vu); penpos1(.2basestroke, 0);
+ %z3 = (x1-3hu, y1); penpos3(.2basestroke, -180);
+ %z2 = (.5[x3,x1], .5vu); penpos2(basestroke, -90);
+ %z4 = (1.5[x1,x3], y2); penpos4(basestroke, -270);
+ %penstroke z1e{down}..z2e..{up}z3e;
+ %penstroke z3e{down}..{left}z4e;
+
+ z2 = (xoffs + 3hu, (vu-basestroke)/2);
+ z3 = (xoffs + 1.5hu, .5vu);
+ z4 = (xoffs, y2);
+ z5 = (x4, y2+basestroke);
+ z6 = (x3-.2basestroke, 2.6vu);
+ z7 = (x3+.2basestroke, y6);
+ z8 = (x2, y5);
+ if init = 0:
+ z12 = (xoffs+6hu, y5);
+ z13 = (x12, y2);
+ z14 = (xoffs+4.5hu, y3);
+ fill z11{down}..{right}z12--z13{left}..z14 &
+ z14..z2{left}..z3 &
+ z3..{left}z4--z5{right}..{up}z6--z7{down}..{right}z8..z1--cycle;
+ else:
+ fill z11..z2{left}..z3 &
+ z3..{left}z4--z5{right}..{up}z6--z7{down}..{right}z8..z1--cycle;
+ fi;
+
+ penlabels(range 1 thru 14);
+enddef;
+
+% .heth isolated
+sertochar ".heth - isolated .h";
+beginchar(83, 6.8hu#, 3vu#, 0);
+ hhethcommon(1.2hu, 1);
+ z10 = (.5[z4,z5]);
+ arabesque(10, .2);
+endchar;
+
+% .heth final
+sertochar ".heth - final .h";
+beginchar(84, 7.2hu#, 3vu#, 0);
+ hhethcommon(1.2hu, 0);
+ z10 = (.5[z4,z5]);
+ arabesque(10, .2);
+endchar;
+
+% .heth medial
+sertochar ".heth - medial .h";
+beginchar(85, 6hu#, 3vu#, 0);
+ hhethcommon(0hu, 0);
+endchar;
+
+% .heth initial
+sertochar ".heth - initial .h";
+beginchar(86, 5.5hu#, 3vu#, 0);
+ hhethcommon(0hu, 1);
+endchar;
+
+
+
+def tethcommon (expr xoffs) =
+ z1 = (xoffs+3.5hu, 8vu); penpos1(basestroke, 0);
+ z2 = (x1-1.5hu, 1.5vu); penpos2(.5basestroke, 0);
+% z3 = (x1-3hu, -3vu); penpos3(basestroke, 0);
+% z4 = (x1-hu, -4.5vu); penpos4(.7basestroke, 90);
+ z4 = (x1-hu, -3.5vu); penpos4(.7basestroke, 90);
+ z3 = (x1-3hu, y4+1.5vu); penpos3(basestroke, 0);
+ z5 = (x1+.5hu, 0); penpos5(basestroke, 225);
+ z6 = (x2, .5vu); penpos6(basestroke, 270);
+ z7 = (xoffs, .5vu); penpos7(basestroke, 270);
+ penstroke z1e{down}..z2e..z3e..z4e..z5e..{left}z6e..z7e;
+
+ penlabels(range 1 thru 7);
+enddef;
+
+% .teth isolated
+sertochar ".teth - isolated .t";
+beginchar(87, 6.2hu#, 8vu#, 4vu#);
+ tethcommon(1.2hu);
+ arabesque(7, .2);
+endchar;
+
+% .teth final
+sertochar ".teth - final .t";
+beginchar(88, 8.2hu#, 8vu#, 4vu#);
+ tethcommon(1.2hu);
+ arabesque(7, .2);
+ z8 = (8.2hu, .5vu); penpos8(basestroke, 90);
+ penstroke z8e{left}..{up}z1e;
+endchar;
+
+% .teth medial
+sertochar ".teth - medial .t";
+beginchar(89, 7hu#, 8vu#, 4vu#);
+ tethcommon(0hu);
+ z8 = (7hu, .5vu); penpos8(basestroke, 90);
+ penstroke z8e{left}..{up}z1e;
+endchar;
+
+% .teth initial
+sertochar ".teth - initial .t";
+beginchar(90, 5hu#, 8vu#, 4vu#);
+ tethcommon(0hu);
+endchar;
+
+
+
+def iodhcommon (expr xoffs) =
+ z1 = (xoffs, .5(vu-basestroke));
+ z2 = (x1, .5(vu+basestroke));
+ z21 = (x1-1hu, y2);
+ z3 = (x1+hu, 2.5basestroke);
+ z4 = (x1+2hu, y2);
+ z5 = (x1+2.2hu, .5vu);
+ z6 = (x1+1.5hu, y1);
+
+ fill z1--z21{right}..z3--z4{z4-z3} % ..z5{down}
+ ..{left}z6--cycle;
+
+ penlabels(range 1 thru 21);
+enddef;
+
+% iod isolated
+sertochar "iod - isolated y";
+beginchar(105, 6hu#, 2.5vu#, 0);
+ iodhcommon(3hu);
+ z7 = (.5[z1, z2]);
+ %baseline(7, 1)
+ arabesque(7, 2);
+endchar;
+
+% iod final
+sertochar "iod - final y";
+beginchar(106, 6hu#, 2.5vu#, 0);
+ iodhcommon(3hu);
+ z8 = (.5[z1, z2]);
+ arabesque(8, 2);
+
+ z7 = (x1 + 1.5hu, .5[y1, y2]);
+ baseline(7, -1.5)
+endchar;
+
+% iod medial
+sertochar "iod - medial y";
+beginchar(107, 4hu#, 2.5vu#, 0);
+ iodhcommon(1hu);
+ z8 = (.5[z1, z2]);
+ baseline(8, 1)
+ z7 = (x1 + 1.5hu, .5[y1, y2]);
+ baseline(7, -1.5)
+endchar;
+
+% iod initial
+sertochar "iod - initial y";
+beginchar(108, 4hu#, 2.5vu#, 0);
+ iodhcommon(1hu);
+ z7 = (.5[z1, z2]);
+ baseline(7, 1)
+endchar;
+
+
+
+% kaf - isolated
+sertochar "kaf - isolated k (needs improvement)";
+beginchar(109, 6hu#, 2.5vu#, 3vu#);
+ z1 = (3hu, (vu-basestroke)/2);
+ z2 = (x1, .5vu+.5basestroke);
+ z21 = (x1-hu, y2);
+ z3 = (x1+hu, 2.5basestroke);
+ z4 = (x1+2hu, y2);
+ z5 = (x1+2.2hu, .5basestroke);
+ z6 = (x1+1.5hu, y1);
+
+ fill z1--z21{right}..z3--z4{z4-z3} % ..z5{down}
+ ..{left}z6--cycle;
+ z7 = (x1, .5vu);
+ arabesque(7, 2);
+
+ z8 = (3.5[z3, z2]);
+ z9 = (x8+.2hu, y8-.2vu);
+ fill z2--z8--z9--z4--cycle;
+ penlabels(range 1 thru 9);
+endchar;
+
+% kaf - final
+sertochar "kaf - final k (needs improvement)";
+beginchar(110, 6hu#, 2.5vu#, 3vu#);
+ z1 = (3hu, 0);
+ z2 = (x1, .5vu+.5basestroke);
+ z21 = (x1-hu, y2);
+ z3 = (x1+hu, 2.5basestroke);
+ z4 = (x1+2hu, y2);
+ z5 = (x1+2.2hu, .5basestroke);
+ z6 = (x1+1.5hu, 0);
+
+ fill z1--z21{right}..z3--z4{z4-z3} % ..z5{down}
+ ..{left}z6--cycle;
+
+ z7 = (x1, .5vu);
+ arabesque(7, 2);
+ baseline(7, -3);
+
+ z8 = (3.5[z3, z2]);
+ z9 = (x8+.2hu, y8-.2vu);
+ fill z2--z8--z9--z4--cycle;
+ penlabels(range 1 thru 21);
+endchar;
+
+
+def kafcommon =
+ z1 = (1.5hu, 2vu); penpos1(basestroke, 0);
+ z3 = (5.5hu, y1+.5hu); penpos3(basestroke, -180);
+ z2 = (.5[x1,x3], 4vu); penpos2(.4basestroke, -90);
+ z4 = (x2+hu, .5vu); penpos4(basestroke, -270);
+ penstroke z1e{up}..z2e..z3e..{left}z4e;
+ penlabels(range 1 thru 5);
+enddef;
+
+% kaf - medial
+sertochar "kaf - medial k";
+beginchar(111, 7hu#, 4vu#, 0);
+ kafcommon;
+ z5 = (7hu, y4);
+ baseline(5, 7)
+endchar;
+
+% kaf - initial
+sertochar "kaf - initial k";
+beginchar(112, 7hu#, 4vu#, 0);
+ kafcommon;
+ baseline(4, 4.5)
+endchar;
+
+
+
+
+def lamadfinalcommon =
+ z1 = (.5hu, 7vu); penpos1(basestroke, 40);
+ z2 = (6.5hu, 1vu); penpos2(basestroke, 40);
+ z3 = (9hu, 1vu); penpos3(.2basestroke, 120);
+
+ z4 = (x1+3hu, y1); penpos4(basestroke, 40);
+ z5 = (x2+3hu, y2); penpos5(basestroke, 40);
+
+ penstroke z1e--z2e{z2-z1}..z3e;
+ penstroke z4e--z5e;
+
+ penlabels(range 1 thru 5);
+enddef;
+
+
+sertochar "lamad - isolated";
+beginchar(113, 11.5hu#, 7vu#, 0);
+ lamadfinalcommon;
+ z6 = (whatever[z4, z5]); penpos6(basestroke, 40);
+ y6l = 0;
+ penstroke z5e--z6e;
+ penlabels(6);
+endchar;
+
+sertochar "lamad - final";
+beginchar(114, 10.5hu#, 7vu#, 0);
+ lamadfinalcommon;
+ z6 = (x5+1hu, .5vu); penpos6(basestroke, 90);
+ penstroke z5e{z5-z4}..z6e;
+ penlabels(6);
+endchar;
+
+
+def lamadnonfinalcommon =
+ z1 = (.5hu, 7vu); penpos1(basestroke, 40);
+ z2 = (5hu, 1vu); penpos2(basestroke, 40);
+ penstroke z1e--z2e;
+
+ penlabels(range 1 thru 2);
+enddef;
+
+sertochar "lamad - medial";
+beginchar(115, 6.5hu#, 7vu#, 0);
+ lamadnonfinalcommon;
+ z3 = (6.5hu, .5vu); penpos3(basestroke, 90);
+ % penstroke z2e{z2-z1}..{right}z3e;
+ % z1e--z2e is already drawn in Cainnonfinalcommon
+ % we redraw it to avoit some white pixel on z2e.
+ penstroke z1e--z2e..{right}z3e;
+
+% z4 = (whatever[z1l, z2l]); penpos4(basestroke, 90);
+% y4l = .5(vu-basestroke);
+% z5 = (0, .5vu); penpos5(basestroke, 90);
+% penstroke z4e--z5e;
+
+ z10 = (x2-1.5hu, basestroke+.5vu);
+ z4 = (whatever[z1, z2]); penpos4(basestroke, 40);
+ z10 = (whatever[z4r, z4l]);
+ z5 = (x10, .5vu); penpos5(basestroke, -90);
+ z6 = (0, .5vu); penpos6(basestroke, -90);
+ penstroke z4e..{left}z5e..z6e;
+
+ penlabels(3, 4, 5, 6, 10);
+endchar;
+
+sertochar "lamad - initial";
+beginchar(116, 7hu#, 7vu#, 0);
+ lamadnonfinalcommon;
+ z3 = (whatever[z1, z2]); penpos3(basestroke, 40);
+ y3l = .5(vu-basestroke);
+ penstroke z2e--z3e;
+
+% z4 = (whatever[z1l, z3l]); penpos4(basestroke, 90);
+% y4l = y3l;
+% z5 = (0, .5vu); penpos5(basestroke, 90);
+% penstroke z4e--z5e;
+
+ z10 = (x2-1.5hu, basestroke+.5vu);
+ z4 = (whatever[z1, z3]); penpos4(basestroke, 40);
+ z10 = (whatever[z4r, z4l]);
+ z5 = (x10, .5vu); penpos5(basestroke, -90);
+ z6 = (0, .5vu); penpos6(basestroke, -90);
+ penstroke z4e..{left}z5e..z6e;
+ penlabels(3, 4, 5, 6, 10);
+endchar;
+
+def mimcommon (expr final, exOne) =
+% z1 = (.5hu, 4.5vu); penpos1(basestroke, 45);
+% z2 = (5hu, .5vu); penpos2(basestroke, 90);
+% z3 = (7hu, 2.25vu); penpos3(.5basestroke, 180);
+% z4 = (x2, 4vu); penpos4(basestroke, 270);
+% if final = 0:
+% z5 = (3hu, y3); penpos5(.5basestroke, 360);
+% else:
+% z5 = (2.5hu, 2vu); penpos5(basestroke, 315);
+% fi;
+% z7 = (3hu, 1.5vu); penpos7(basestroke, 45);
+%
+% z6 = (1hu, -3vu); penpos6(.4basestroke, 315);
+
+ z1 = (exOne, 4.5vu); penpos1(basestroke, 45);
+ z2 = (x1+4.5hu, .5vu); penpos2(basestroke, 90);
+ z3 = (x2+2hu, 2.25vu); penpos3(.5basestroke, 180);
+ z4 = (x2, 4vu); penpos4(basestroke, 270);
+ if final = 0:
+ z5 = (x1+2.5hu, y3); penpos5(.5basestroke, 360);
+ else:
+ z5 = (x1+2hu, 2vu); penpos5(basestroke, 315);
+ fi;
+ z7 = (x1+2.5hu, 1.5vu); penpos7(basestroke, 45);
+
+ z6 = (x1+.5hu, -3vu); penpos6(.4basestroke, 315);
+
+
+ if final = 0:
+ penstroke z1e--z7e{z7-z1}..z2e{right}..z3e{up}..z4e{left}..z5e..{right}z2e;
+ else:
+ penstroke z1e--z7e{z7-z1}..z2e{right}..z3e{up}..z4e{left}..{z6-z5}z5e;
+ fi;
+ penlabels(range 1 thru 7);
+enddef;
+
+sertochar "mim - isolated";
+beginchar(117, 8hu#, 4.5vu#, 3vu#);
+ mimcommon(1, 0.5hu);
+ penstroke z5e--z6e;
+endchar;
+
+sertochar "mim - final";
+beginchar(118, 8hu#, 4vu#, 1vu#);
+ mimcommon(1, 0.5hu);
+ penstroke z5e--z6e;
+ baseline(2, -3);
+endchar;
+
+sertochar "mim - medial";
+beginchar(119, 8hu#, 4vu#, 0);
+ mimcommon(0, 0.5hu);
+ z8 = (0, y2);
+ baseline(8, -8);
+endchar;
+
+sertochar "mim - initial";
+beginchar(120, 8.5hu#, 4vu#, 0);
+ mimcommon(0, 1hu);
+ baseline(2, 5.5);
+endchar;
+
+
+
+def nunnonfinalcommon =
+ z1 = (1.25hu, 4vu); penpos1(1.1basestroke, 20);
+ z2 = (1.5hu, 1.1vu); penpos2(basestroke, 0);
+ z3 = (0.9hu, .5vu); penpos3(basestroke, -90);
+ z4 = (0, .5vu); penpos4(basestroke, -90);
+
+ penstroke z1e{down}..{down}z2e..{left}z3e--z4e;
+ penlabels(range 1 thru 4);
+enddef;
+
+sertochar "nun - isolated";
+beginchar(121, 3.5hu#, 1vu#, 4vu#);
+ z1 = (.5hu, .5vu); penpos1(1.3basestroke, 42);
+ z2 = (x1+1.5hu, -2vu); penpos2(basestroke, 45);
+ z3 = (x1+5hu, -4.2vu); penpos3(.4basestroke, 80);
+ penstroke z1e..z2e..z3e;
+ penlabels(range 1 thru 3);
+endchar;
+
+sertochar "nun - final";
+beginchar(122, 5hu#, 1vu#, 4vu#);
+ z1 = (.5hu, 0vu); penpos1(basestroke, 0);
+ z4 = (1.1hu, .5vu); penpos4(basestroke, -90);
+ z2 = (1.5hu, -2vu); penpos2(basestroke, 45);
+ z3 = (5hu, -4.2vu); penpos3(.25basestroke, 80);
+ penstroke z1e..z2e..z3e;
+ penstroke z4e{left}..z1e;
+ baseline(4, -3.9);
+ penlabels(range 1 thru 4);
+endchar;
+
+sertochar "nun - medial";
+beginchar(129, 3hu#, 4vu#, 0);
+ nunnonfinalcommon;
+ baseline(4, -3);
+endchar;
+
+sertochar "nun - initial";
+beginchar(130, 3hu#, 4vu#, 0);
+ nunnonfinalcommon;
+endchar;
+
+
+
+
+%def qofsemkathcommon (expr xoffs) =
+% z1 = (xoffs+2hu, .5vu); penpos1(basestroke, -90);
+% z2 = (x1+1.25hu, 2vu); penpos2(.5basestroke, 0);
+% z3 = (x1, y1+3.5hu); penpos3(basestroke, 90);
+% z4 = (xoffs+.25hu, y2); penpos4(basestroke, -180);
+%
+% penstroke z1e..z2e..z3e..z4e..{right}cycle;
+% penlabels(range 1 thru 4);
+%enddef;
+
+def penpoint (suffix $) (expr xval, yval, large, angle) =
+ z$ = (xval, yval); penpos$(large, angle);
+enddef;
+
+def semkathcommon (expr xoffs) =
+ penpoint(1, xoffs, .5vu, basestroke, -90);
+ penpoint(11, xoffs+2hu, y1, basestroke, -90);
+ penpoint(2, xoffs+3hu, 1.2vu, .4basestroke, -45);
+ penpoint(3, xoffs+2.25hu, 4vu, basestroke, 90);
+ penpoint(4, xoffs-.25hu, .4vu, .4basestroke, 135);
+
+ penstroke z1e..z11e{right}...z2e..{left}z3e..{dir 245}z4e;
+
+ penpoint(5, xoffs-hu, y3, basestroke, -90);
+ penpoint(6, x5-1.4hu, 3vu, .4basestroke, -45);
+ penpoint(7, xoffs-1.4hu, y1, basestroke, 90);
+ penpoint(8, xoffs, y1, basestroke, 90);
+
+ penstroke z4e{dir 65}..{left}z5e..z6e..{right}z7e...z8e;
+
+ penlabels(range 1 thru 11);
+enddef;
+
+%def semkathcommon (expr xoffs) =
+% qofsemkathcommon(xoffs);
+% z5 = (x1+2.5hu, y1); penpos5(basestroke, -90);
+% z6 = (x5+1.5hu, y2); penpos6(basestroke, 0);
+% z7 = (x5, y3); penpos7(basestroke, 90);
+% z8 = (x2, y2+.5vu); penpos8(.5basestroke, 145);
+%
+% penstroke z1e--z5e{right}..z6e..z7e..z8e;
+% penlabels(range 5 thru 8);
+%enddef;
+
+sertochar "semkath - isolated";
+beginchar(131, 9hu#, 4.5vu#, 0);
+ semkathcommon(4.5hu);
+ arabesque(7, 2);
+endchar;
+
+sertochar "semkath - final";
+beginchar(132, 9hu#, 4.5vu#, 0);
+ semkathcommon(4.5hu);
+ arabesque(7, 2);
+ baseline(11, -2.5);
+endchar;
+
+sertochar "semkath - medial";
+beginchar(133, 8.5hu#, 4.5vu#, 0);
+ semkathcommon(4hu);
+ baseline(11, -2.5);
+ baseline(8, 4);
+endchar;
+
+sertochar "semkath - initial";
+beginchar(134, 8.5hu#, 4.5vu#, 0);
+ semkathcommon(4hu);
+ baseline(8, 4);
+endchar;
+
+
+def Cainfinalcommon =
+ z1 = (.5hu, 4vu); penpos1(basestroke, 40);
+ z2 = (3hu, 1vu); penpos2(basestroke, 40);
+ z3 = (6hu, 1vu); penpos3(.2basestroke, 120);
+
+ z4 = (x1+2.5hu, y1); penpos4(basestroke, 40);
+ z5 = (x2+2.5hu, y2); penpos5(basestroke, 40);
+
+ penstroke z1e--z2e{z2-z1}..z3e;
+ penstroke z4e--z5e;
+
+ penlabels(range 1 thru 5);
+enddef;
+
+
+sertochar "`e - isolated";
+beginchar(135, 7.5hu#, 4vu#, 0);
+ Cainfinalcommon;
+ z6 = (whatever[z4, z5]); penpos6(basestroke, 40);
+ y6l = 0;
+ penstroke z5e--z6e;
+ penlabels(6);
+endchar;
+
+sertochar "`e - final";
+beginchar(136, 6.5hu#, 4vu#, 0);
+ Cainfinalcommon;
+ z6 = (x5+1hu, .5vu); penpos6(basestroke, 90);
+ penstroke z5e{z5-z4}..z6e;
+ penlabels(6);
+endchar;
+
+
+def Cainnonfinalcommon =
+ z1 = (.5hu, 4vu); penpos1(basestroke, 40);
+ z2 = (3hu, 1vu); penpos2(basestroke, 40);
+ penstroke z1e--z2e;
+
+ penlabels(range 1 thru 2);
+enddef;
+
+sertochar "`e - medial";
+beginchar(137, 4.5hu#, 4vu#, 0);
+ Cainnonfinalcommon;
+
+ z3 = (4.5hu, .5vu); penpos3(basestroke, 90);
+ %penstroke z2e{z2-z1}..{right}z3e;
+ % z1e--z2e is already drawn in Cainnonfinalcommon
+ % we redraw it to avoit some white pixel on z2e.
+ penstroke z1e--z2e..{right}z3e;
+
+ %z4 = (whatever[z1l, z2l]); penpos4(basestroke, 90);
+ %y4l = 0;
+ %z5 = (0, .5vu); penpos5(basestroke, 90);
+ %penstroke z4e--z5e;
+ z10 = (x2-1.5hu, basestroke+.5vu);
+ z4 = (whatever[z1, z2]); penpos4(basestroke, 40);
+ z10 = (whatever[z4r, z4l]);
+ z5 = (x10, .5vu); penpos5(basestroke, -90);
+ z6 = (0, .5vu); penpos6(basestroke, -90);
+ penstroke z4e..{left}z5e..z6e;
+
+ penlabels(3, 4, 5, 6, 10);
+endchar;
+
+sertochar "`e - initial";
+beginchar(138, 5hu#, 4vu#, 0);
+ Cainnonfinalcommon;
+ z3 = (whatever[z1, z2]); penpos3(basestroke, 40);
+ y3l = 0;
+ penstroke z2e--z3e;
+
+% z4 = (whatever[z1l, z3l]); penpos4(basestroke, 90);
+% y4l = 0;
+% z5 = (0, .5vu); penpos5(basestroke, 90);
+% penstroke z4e--z5e;
+
+ z10 = (x2-1.5hu, basestroke+.5vu);
+ z4 = (whatever[z1, z2]); penpos4(basestroke, 40);
+ z10 = (whatever[z4r, z4l]);
+ z5 = (x10, .5vu); penpos5(basestroke, -90);
+ z6 = (0, .5vu); penpos6(basestroke, -90);
+ penstroke z4e..{left}z5e..z6e;
+
+ penlabels(3, 4, 5, 6, 10);
+endchar;
+
+
+%def pecommon (expr xoffs) =
+% %z1 = (xoffs, .5hu); penpos1(basestroke, -90);
+% z2 = (xoffs+2hu, .5hu); penpos2(basestroke, -90);
+% z3 = (x2+2hu, 3hu); penpos3(basestroke, 0);
+% z4 = (x2, 4.75hu); penpos4(.5basestroke, 90);
+% z5 = (xoffs+.5hu, 3.5hu); penpos5(basestroke, 180);
+% z6 = (x4, y3-.5hu); penpos6(basestroke, 270);
+% z7r = z3; penpos7(.4basestroke, 315);
+%
+% penstroke z2e{right}..{up}z3e..z4e..z5e..{right}z6e..z7e;
+% penlabels(range 2 thru 7);
+%enddef;
+
+def pecommon (expr xoffs) =
+ pickup pe_pen;
+
+ z1 = (xoffs, .5vu);
+ z2 = z1 + (2hu, 0);
+ z21 = z2 + (.5hu, 1.5vu);
+ z3 = z1 + (0, 3.5hu);
+ z4 = z1 + (-hu, 2.5vu);
+ z5 = (x2-.4hu, 3.2hu);
+
+ draw z1---z2..z21..z3..z4..tension 1.3..z5;
+
+ penlabels(range 1 thru 12);
+enddef;
+
+
+sertochar "pe - isolated";
+beginchar(139, 5.5hu#, 5hu#, 0);
+ pecommon(2hu);
+ arabesque(1, 1);
+endchar;
+
+sertochar "pe - final";
+beginchar(140, 6hu#, 5hu#, 0);
+ pecommon(2hu);
+ arabesque(1, 1);
+ baseline(2, -2);
+endchar;
+
+sertochar "pe - medial";
+beginchar(141, 6hu#, 5hu#, 0);
+ pecommon(2hu);
+ baseline(1, 2);
+ baseline(2, -2);
+endchar;
+
+
+sertochar "pe - initial";
+beginchar(142, 6hu#, 5hu#, 0);
+ pecommon(2hu);
+ baseline(1, 2);
+endchar;
+
+
+def sadecommon (expr xoffs, iso) =
+ z1 = (xoffs, -2vu); penpos1(1.4basestroke, -80);
+ z2 = (x1+3hu, -3.5vu); penpos2(.8basestroke, -90);
+ z3 = (x1+4.5hu, -2.25vu); penpos3(.5basestroke, -45);
+ z4 = (x3-.25hu, -.75vu); penpos4(basestroke, 45);
+ z5 = (x3-.5hu, .5vu); penpos5(.6basestroke, 0);
+
+ if iso = 0: % isolated sade
+ z6 = (x4, 1.5vu); penpos6(.8basestroke, 32);
+ z7 = (x6-.5hu, y6+vu); penpos7(basestroke, 70);
+ penstroke z1e..{right}z2e..z3e..z4e..z5e..z6e..z7e;
+ else: % final sade
+ z6 = (x4-.3hu, 1vu); penpos6(.8basestroke, 32);
+ penstroke z1e..{right}z2e..z3e..z4e..z5e..{dir 122}z6e;
+ z7 = (xoffs+5.5hu, .5vu); penpos7(basestroke, 90);
+ penstroke z6e..{right}z7e;
+ fi;
+
+ penlabels(range 1 thru 7);
+enddef;
+
+sertochar ".sade - isolated";
+beginchar(143, 5.5hu#, 2vu#, 4vu#);
+ sadecommon(0, 0);
+endchar;
+
+sertochar ".sade - final";
+beginchar(144, 5hu#, 2vu#, 4vu#);
+ sadecommon(0, 1);
+endchar;
+
+
+
+%def qoffinalcommon (expr xoffs) =
+% qofsemkathcommon(xoffs);
+% z5 = (xoffs, .5vu); penpos5(basestroke, -90);
+% arabesque(5, .75);
+% z6 = (x4l, 1.5hu); penpos6(.4basestroke, -45);
+% penstroke z5e{right}..z6e;
+%
+% penlabels(5, 6);
+%enddef;
+
+%def qofnonfinalcommon (expr xoffs) =
+% qofsemkathcommon(xoffs);
+% z5 = (xoffs, .5vu); penpos5(basestroke, -90);
+% baseline(5, 1.5);
+% z6 = (x4l, 1.5hu); penpos6(.4basestroke, -45);
+% penstroke z5e{right}..z6e;
+%
+% penlabels(5, 6);
+%enddef;
+
+def qofright = % works only if called after wawcommon
+ z7 = (.6[x1a,x1d], .8vu); penpos7(basestroke, 50);
+ z6 = (x1a+3hu, .5vu); penpos6(basestroke, 90);
+ penstroke z6e{left}..z7e;
+ penlabels(6, 7);
+enddef;
+
+def qoffinalcommon (expr xoffs) =
+ z1 = (xoffs+.25hu, 0);
+ wawcommon(1);
+
+ z5 = (xoffs, .5vu); penpos5(basestroke, -90);
+ arabesque(5, .75);
+ z4 = .5[z1a, z1b]; penpos4(.4basestroke, -45);
+ penstroke z5e{right}..z4e;
+
+ penlabels(1, 4, 5);
+enddef;
+
+def qofnonfinalcommon (expr xoffs) =
+ z1 = (xoffs+.25hu, 0);
+ wawcommon(1);
+
+ z5 = (xoffs, .5vu); penpos5(basestroke, -90);
+ baseline(5, .5);
+ z4 = .5[z1a, z1b]; penpos4(.4basestroke, -45);
+ %z6 = (x4l, 1.5hu); penpos6(.4basestroke, -45);
+ penstroke z5e{right}..z4e;
+
+ penlabels(5, 6);
+enddef;
+
+sertochar "qof - isolated";
+beginchar(145, 7hu#, 5vu#, 0);
+ qoffinalcommon(1.75hu);
+endchar;
+
+
+sertochar "qof - final";
+beginchar(146, 7hu#, 5vu#, 0);
+ qoffinalcommon(1.75hu);
+ qofright;
+% z7 = (.6[x1a,x1d], .8vu); penpos7(basestroke, 50);
+% z6 = (x1a+3hu, .5vu); penpos6(basestroke, 90);
+% penstroke z6e{left}..z7e;
+%
+% penlabels(6, 7);
+endchar;
+
+sertochar "qof - medial";
+beginchar(147, 5.75hu#, 5vu#, 0);
+ qofnonfinalcommon(.5hu);
+ qofright;
+endchar;
+
+sertochar "qof - initial";
+beginchar(148, 6hu#, 5vu#, 0);
+ qofnonfinalcommon(.5hu);
+endchar;
+
+
+% resh - isolated
+sertochar "resh - isolated";
+beginchar(149, 4hu#, 6vu#, 0);
+ dr_isolated_common;
+ z6 = (1hu, y3+1.2vu);
+ sertodot(6, 1);
+ penlabels(6);
+endchar;
+
+% resh - final
+sertochar "resh - final";
+beginchar(150, 3hu#, 4vu#, 1vu#);
+ dr_final_common;
+ z4 = (x3, y2r+1.2vu);
+ sertodot(4, 1);
+ penlabels(4);
+endchar;
+
+
+def shincommon (expr xoffs) =
+ z1 = (xoffs, .5vu);
+ z2 = (x1+1.5hu, 2vu);
+ z3 = (x1, 2vu+basestroke);
+ z4 = (x1-1.5hu, y2);
+
+ fill z1{dir 45}..{up}z2..z3..z4{down}..{dir 315}cycle;
+
+ z5 = (x1-hu, y1); penpos5(basestroke, -90);
+ z6r = z1 + (basestroke-hu, basestroke-hu); penpos6(hu, -45);
+ penstroke z5e{right}..z6e;
+
+ z7l = z1 + (-(basestroke-hu), basestroke-hu); penpos7(hu, 45);
+ z8 = (x1+hu, y1); penpos8(basestroke, 90);
+ penstroke z8e{left}..z7e;
+
+ penlabels(range 1 thru 8);
+enddef;
+
+
+def shinfinal (expr xoffs) =
+ shincommon(xoffs);
+ arabesque(5, .75);
+enddef;
+
+def shinnonfinal (expr xoffs) =
+ shincommon(xoffs);
+ baseline(5, 1.5);
+enddef;
+
+
+def shininit (suffix $)(expr length) =
+ z$aa = (x$, y$-.5basestroke);
+ z$ac = (x$, y$+.5basestroke);
+ z$ab = (x$+length*hu, y$aa);
+ z$ad = (x$+(length-.2)*hu, y$ac);
+ z$ae = (x$ab+hu, y$ad+.5vu);
+ fill z$aa--z$ab{right}..{up}z$ae{dir 225}..{left}z$ad--z$ac--cycle;
+ penlabels($aa, $ab, $ac, $ad, $ae);
+enddef;
+
+sertochar "shin - isolated";
+beginchar(151, 5.75hu#, 3vu#, 0);
+ shinfinal(2.75hu);
+ shininit(8, .25);
+endchar;
+
+sertochar "shin - final";
+beginchar(152, 4.75hu#, 3vu#, 0);
+ shinfinal(2.75hu);
+ baseline(8, -1);
+endchar;
+
+sertochar "shin - medial";
+beginchar(153, 4.5hu#, 3vu#, 0);
+ shinnonfinal(2.5hu);
+ baseline(8, -1);
+endchar;
+
+sertochar "shin - initial";
+beginchar(154, 5.5hu#, 3vu#, 0);
+ shinnonfinal(2.5hu);
+ shininit(8, .25);
+endchar;
+
+
+def taucommon =
+ z1 = (0, 0);
+ z2 = (4.5hu, .5vu); penpos2(basestroke, 67);
+ z3 = (1hu, 1.1vu);
+ %z4 = (1hu, 8vu); penpos4(basestroke, 20);
+ z4 = (1hu, 8vu); penpos4(basestroke, 20);
+ z5l = z1;
+ z5r = z3;
+
+ penstroke z4e{down}..z5e & z5e{dir 17}..z2e;
+
+ penlabels(range 1 thru 5);
+enddef;
+
+sertochar "tau - isolated";
+beginchar(155, 5.75hu#, 8vu#, 0);
+ taucommon;
+endchar;
+
+sertochar "tau - final";
+beginchar(156, 6.5hu#, 8vu#, 0);
+ taucommon;
+ z6 = (x2+2hu, y2); penpos6(basestroke, 90);
+ %z7 = (x6+hu, y6); penpos7(basestroke, 90);
+ penstroke z4e{dir -50}..tension 1.8 ..{right}z6e; %---z7e;
+ penlabels(6, 7)
+
+endchar;
+
+
+
+% resh doubledotted - isolated
+sertochar "resh doubledotted - isolated";
+beginchar(157, 4hu#, 6vu#, 0);
+ dr_isolated_common;
+ z6 = (.6hu, y3+1.2vu);
+ z7 = z6 + (1.5hu, 0);
+ sertodot(6, 1);
+ sertodot(7, 1);
+ penlabels(6, 7);
+endchar;
+
+% resh doubledotted- final
+sertochar "resh doubledotted - final";
+beginchar(158, 3hu#, 4vu#, 1vu#);
+ dr_final_common;
+ z4 = (x3-.7hu, y2r+1.2vu);
+ z5 = z4 + (1.5hu, 0);
+ sertodot(4, 1);
+ sertodot(5, 1);
+ penlabels(4, 4);
+endchar;
+
+
+
+% ligatures
+sertochar "olaf lamad - initial";
+beginchar(171, 9.5hu#, 7vu#, 0);
+ lamadnonfinalcommon;
+ z3 = (whatever[z1, z2]); penpos3(basestroke, 40);
+ y3l = 0;
+ penstroke z2e--z3e;
+
+ z11 = (x1+2.5hu, y1); penpos11(basestroke, 40);
+ z13 = (x3+2.5hu, y3); penpos13(basestroke, 40);
+ penstroke z11e--z13e;
+
+ z4 = (whatever[z1l, z3l]); penpos4(basestroke, 90);
+ y4l = 0;
+ z5 = (0, .5vu); penpos5(basestroke, 90);
+ penstroke z4e--z5e;
+ penlabels(3, 4, 5, 11, 13);
+endchar;
+
+def lamadolafcommon =
+ z1 = (1.5hu, .5vu); penpos1(basestroke, 90);
+ z2 = (x1-hu, 1.5vu); penpos2(basestroke, 0);
+ z12 = (x1+hu, y2); penpos12(basestroke, 180);
+ %z3 = (x2, 4.5vu); penpos3(.8basestroke, 0);
+ %z13 = (x12, y3); penpos13(.8basestroke, 180);
+ z3 = (x2, 4.5vu); penpos3(basestroke, 0);
+ z13 = (x12, y3); penpos13(basestroke, 180);
+ %z4 = (x2, 8vu); penpos4(basestroke, 20);
+ %z14 = (x12, y4); penpos14(basestroke, 200);
+ z4l = z3l + (0, 3.2vu);
+ z4r = z3r + (0, 3.8vu);
+ z14l = z13l + (0, 3.8vu);
+ z14r = z13r + (0, 3.2vu);
+
+ %z6 = (-.3hu, -vu); penpos6(.4basestroke, -45);
+ z6 = (-.8hu, -1.5vu); penpos6(.2basestroke, -45);
+
+ penstroke z4e..z3e..z2e{down}..z1e..{up}z12e..z13e..z14e;
+ penstroke z2e{down}..z6e;
+
+ penlabels(range 1 thru 14);
+enddef;
+
+sertochar "lamad olaf - isolated";
+beginchar(172, 4hu#, 8vu#, 0);
+ lamadolafcommon;
+endchar;
+
+
+sertochar "lamad olaf - final";
+beginchar(173, 4hu#, 8vu#, 0);
+ lamadolafcommon;
+ z7 = z1 + (2.5hu, 0); penpos7(basestroke, 270);
+
+ penstroke z12e{down}..{right}z7e;
+
+ penlabels(7);
+endchar;
+
+
+
+% Plural Sign
+sertochar "sey=ame";
+beginchar(7, 3hu#, 6vu#, 0);
+ z4 = (hu, 5.7vu);
+ z5 = z4 + (1.5hu, 0);
+ sertodot(4, 1);
+ sertodot(5, 1);
+ penlabels(4, 4);
+endchar;
+
+
+
+
+%% Vowels
+input syriacvowels;
+
+
+%sertochar "peto.ho a";
+%beginchar(1, 3hu#, 5vu#, 0);
+% pickup vowel_pen;
+% z11 = (0, 3vu);
+% z12 = (x1+3hu, y1+3vu);
+% z1 = (.1[z11,z12]);
+% z2 = (.9[z11,z12]);
+% z3 = (.3[z11,z12]);
+% z4 = (.7[z11,z12]);
+% %z5 = (x1+.5hu, y2);
+% z16 = (.5[z11,z12]); % Hilfspunkt
+% z6 = z16 + 2hu*dir(angle(z2-z1)+90);
+% draw z1--z2;
+% draw z3--z6--z4;
+% penlabels(1,2,3,4,6)
+%endchar;
+%
+%
+%sertochar "revo.so e";
+%beginchar(2, 3hu#, 6vu#, 0);
+% pickup vowel_pen;
+% z1 = (0, 4vu);
+% z2 = (x1+2.2hu, y1+vu);
+% z3 = (x1+3hu, y1-vu);
+% z4 = z2 + whatever*dir(-110);
+% z4 = whatever[z1,z3];
+%
+% draw z1..z2..z3;
+% draw z2--z4;
+%
+% penlabels(1,2,3,4);
+%endchar;
+%
+%
+%sertochar ".hevo.so i";
+%beginchar(3, 3hu#, 6vu#, 0);
+% pickup vowel_pen;
+%
+% z1 = (.8hu, 3vu);
+% z2 = z1 + (2.9hu, 1.5vu);
+% z3 = z1 + (-.8hu, 1vu);
+% z4 = z3 + (3hu, 1.5vu);
+% z5 = .4[z3, z4];
+% z6 = .5[z1, z2];
+%
+% draw z1--z2;
+% draw z3--z4;
+% draw z5--z6;
+%
+% penlabels(1,2,3,4,5,6);
+%endchar;
+%
+%sertochar "zeqopo o";
+%beginchar(4, 3hu#, 6vu#, 0);
+% pickup vowelII_pen;
+%
+% z1 = (0, 3vu);
+% z2 = z1 + (2hu, 3vu);
+% z3 = z1 + (1.3hu, 1.5vu);
+%
+% draw z1{dir 30}..{dir 135}z2..{right}z3;
+% penlabels(1,2,3);
+%endchar;
+%
+%sertochar "`e.so.so u";
+%beginchar(5, 3hu#, 8vu#, 0);
+% pickup vowel_pen;
+%
+% z1 = (0, 5vu);
+% z2 = z1 + (3hu, 3vu);
+% z3 = .47[z1, z2];
+% z4 = z1 + (2.5hu, -.5vu);
+%
+% draw z1--z2;
+% draw z3--z4;
+%
+% pickup vowelIII_pen;
+% z5 = z1 + (1.4hu, 0);
+% z6 = z5 - (.5hu, .6vu);
+%
+% draw z5..z6..cycle;
+%
+% penlabels(range 1 thru 6)
+%endchar;
+%
+%
+%sertochar "qu^s^soyo (hard sign)";
+%beginchar(6, 1hu#, 4vu#, 0);
+% z1 = (.5hu, 4vu);
+% sertodot(1, 1.2);
+%endchar;
+%
+%
+%sertochar "peto.ho a invers";
+%beginchar(17, 3hu#, 5vu#, 0);
+% pickup vowel_pen;
+% z11 = (0, 1vu);
+% z12 = (x1+3hu, y1+3vu);
+% z1 = (.1[z11,z12]);
+% z2 = (.9[z11,z12]);
+% z3 = (.3[z11,z12]);
+% z4 = (.7[z11,z12]);
+% %z5 = (x1+.5hu, y2);
+% z16 = (.5[z11,z12]); % Hilfspunkt
+% z6 = z16 - 2hu*dir(angle(z2-z1)+90);
+% draw z1--z2;
+% draw z3--z6--z4;
+% penlabels(1,2,3,4,6)
+%endchar;
+%
+%
+%sertochar "revo.so e invers";
+%beginchar(18, 3hu#, 6vu#, 0);
+% pickup vowel_pen;
+% z1 = (0, 4vu);
+% z2 = (x1+hu, y1-2.2vu);
+% z3 = (x1+3hu, y1-vu);
+% z4 = z2 + whatever*dir(-110);
+% z4 = whatever[z1,z3];
+%
+% draw z1..z2..z3;
+% draw z2--z4;
+%
+% penlabels(1,2,3,4);
+%endchar;
+%
+%
+%sertochar ".hevo.so i";
+%beginchar(19, 3hu#, 4vu#, 0);
+% pickup vowel_pen;
+%
+% z1 = (.8hu, 1vu);
+% z2 = z1 + (2.9hu, 1.5vu);
+% z3 = z1 + (-.8hu, 1vu);
+% z4 = z3 + (3hu, 1.5vu);
+% z5 = .4[z3, z4];
+% z6 = .5[z1, z2];
+%
+% draw z1--z2;
+% draw z3--z4;
+% draw z5--z6;
+%
+% penlabels(1,2,3,4,5,6);
+%endchar;
+%
+%sertochar "zeqopo o invers";
+%beginchar(20, 3hu#, 6vu#, 0);
+% pickup vowelII_pen;
+%
+% z1 = (2.5hu, 5vu);
+% z2 = z1 - (2hu, 3vu);
+% z3 = z1 - (1.3hu, 1.5vu);
+%
+% draw z1{dir -150}..{dir -45}z2..{left}z3;
+% penlabels(1,2,3);
+%endchar;
+%
+%sertochar "`e.so.so u invers";
+%beginchar(21, 3hu#, 8vu#, 0);
+% pickup vowel_pen;
+%
+% z1 = (3hu, 5vu);
+% z2 = z1 - (3hu, 3vu);
+% z3 = .47[z1, z2];
+% z4 = z1 - (2.5hu, -.5vu);
+%
+% draw z1--z2;
+% draw z3--z4;
+%
+% pickup vowelIII_pen;
+% z5 = z1 - (1.4hu, 0);
+% z6 = z5 + (.5hu, .6vu);
+%
+% draw z5..z6..cycle;
+%
+% penlabels(range 1 thru 6)
+%endchar;
+%
+%
+%
+%sertochar "rukko_ho (soft sign)";
+%beginchar(22, 1hu#, 2vu#, 0);
+% z1 = (.5hu, 0vu);
+% sertodot(1, 1.2);
+%endchar;
+
+
+
+sertochar "mvatlono (silent bar below)";
+beginchar(23, 4hu#, 2vu#, 0);
+ penpoint(1, 0, .5vu, basestroke, 75);
+ penpoint(2, 3hu, .5vu, basestroke, 75);
+ penstroke z1e--z2e;
+endchar;
+
+sertochar "mvatlono (silent bar above)";
+beginchar(8, 4hu#, 2vu#, 0);
+ penpoint(1, 0, .5vu, basestroke, 75);
+ penpoint(2, 3hu, .5vu, basestroke, 75);
+ penstroke z1e--z2e;
+endchar;
+
+
+
+% interpunction
+sertochar "full stop";
+beginchar(46, 3hu#, 1vu#, 0);
+ z1 = (1hu, 1vu);
+ sertodot(1, 1);
+endchar;
+
+sertochar "colon";
+beginchar(58, 3hu#, 4vu#, 0);
+ z1 = (1hu, 1vu);
+ z2 = (1hu, 4vu);
+ sertodot(1, 1);
+ sertodot(2, 1);
+endchar;
+
+
+
+sertochar "underscore";
+beginchar(95, 5hu#, 4vu#, 0);
+ pickup punct_pen;
+ bot z1 = (0,0);
+ bot z2 = (5hu,0);
+ draw z1--z2;
+% penpoint(1, 0, .2hu, .4basestroke, 90);
+% penpoint(2, 5hu, .2hu, .4basestroke, 90);
+% penstroke z1e--z2e;
+endchar;
+
+sertochar "stretch";
+beginchar(45, 3hu#, 1vu#, 0);
+ penpoint(1, 0, .5vu, basestroke, 90);
+ penpoint(2, 3hu, .5vu, basestroke, 90);
+ penstroke z1e--z2e;
+endchar;
+
+
+
+def paraIplusII (suffix $)=
+ pickup para_pen;
+ z$a = z$ + (2hu, 0);
+ z$b = z$ + (0, 2vu);
+ z$c = z$a + (0, 4vu);
+ z$d = z$b + (4hu, 0);
+ %sertodot(8, 1);
+ drawdot z$a;
+ drawdot z$b;
+ drawdot z$c;
+ drawdot z$d;
+ penlabels($a, $b, $c, $d);
+enddef;
+
+sertochar "end paragraph 1";
+beginchar(33, 6hu#, 5vu#, 0);
+ pickup punct_pen;
+ z1 = (.5hu, .5vu);
+ z2 = z1 + (4hu, 4vu);
+ z3 = z1 + (0, 4vu);
+ z4 = z1 + (4hu, 0);
+ draw z1--z2;
+ draw z3--z4;
+ penlabels(1,2,3,4);
+ paraIplusII(1);
+endchar;
+
+sertochar "end paragraph 2";
+beginchar(34, 6hu#, 5vu#, 0);
+ z1 = (.5hu, .5vu);
+ penlabels(1);
+ paraIplusII(1);
+endchar;
+
+sertochar "end paragraph 3";
+beginchar(35, 6hu#, 5vu#, 0);
+ pickup para_pen;
+ z1 = (1hu, 1vu);
+ z2 = z1 + (3hu, 3vu);
+ z3 = z1 + (0, 3vu);
+ z4 = z1 + (3hu, 0);
+ drawdot z1;
+ drawdot z2;
+ drawdot z3;
+ drawdot z4;
+ penlabels(1,2,3,4);
+endchar;
+
+sertochar "end paragraph 4";
+beginchar(36, 6hu#, 5vu#, 0);
+ pickup para_pen;
+ z1 = (2.5hu, 1vu);
+ z2 = z1 + (0, 3vu);
+ drawdot z1;
+ drawdot z2;
+
+ pickup punct_pen;
+ z3 = (.5hu, 2.5vu);
+ z4 = z3 + (4hu, 0);
+ draw z3--z4;
+ penlabels(1,2,3,4);
+endchar;
+
+
+sertochar "end paragraph 5";
+beginchar(37, 8hu#, 3vu#, 0);
+ pickup para_pen;
+ z1 = (2hu, 1.5vu);
+ z2 = z1 + (4hu, 1vu);
+ drawdot z1;
+ drawdot z2;
+
+ pickup punct_pen;
+ z3 = (0, 2vu);
+ z4 = z3 + (2hu, 1vu);
+ z5 = z3 + (4hu, 0);
+ z6 = z3 + (6hu, -1vu);
+ z7 = z3 + (8hu, 0);
+ draw z3..z4..z5..z6..z7;
+ penlabels(range 1 thru 7);
+endchar;
+
+
+
+sertochar "end paragraph 6";
+beginchar(38, 3hu#, 6vu#, 1vu#);
+ pickup para_pen;
+ z1 = (1.5hu, .5vu);
+ z2 = z1 + (-1hu, 4vu);
+ drawdot z1;
+ drawdot z2;
+
+ pickup punct_pen;
+ z3 = (0, -1vu);
+ z4 = z3 + (1hu, 3.5vu);
+ z5 = z4 + (1hu, 3.5vu);
+
+ draw z3{up}..z4..{up}z5;
+ penlabels(range 1 thru 5);
+endchar;
+endinput;
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf
new file mode 100644
index 00000000000..b3d8bb0d019
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf
@@ -0,0 +1,44 @@
+% Syriac Serto FONT macros `sertomacros.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.5 as of 2nd November 2003
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+
+sertomacros:=1; % Es soll nur einmal geladen werden.
+
+% Endarabeske für beth etc
+def arabesque (suffix $)(expr length) =
+ z$aa = (x$, y$-.5basestroke);
+ z$ac = (x$, y$+.5basestroke);
+ z$ab = (x$-length*hu, y$aa);
+ z$ad = (x$-(length-.2)*hu, y$ac);
+ z$ae = (x$ab-hu, y$ad+vu);
+ fill z$aa--z$ab{left}..{up}z$ae{dir -45}..{right}z$ad--z$ac--cycle;
+ labels($aa, $ab, $ac, $ad, $ae);
+enddef;
+
+% baseline, if needed
+def baseline (suffix $)(expr length) =
+ z$bz = z$; % to allow several baselines from one point
+ z$ba = (x$, y$-.5basestroke);
+ z$bc = (x$, y$+.5basestroke);
+ z$bb = (x$-length*hu, y$ba);
+ z$bd = (x$-length*hu, y$bc);
+ fill z$ba--z$bb--z$bd--z$bc--cycle;
+ labels($ba, $bb, $bc, $bd);
+enddef;
+
+% dalath/resh dot
+def sertodot (suffix $) (expr size) =
+ z$ca = (x$-.3hu, y$+.4vu); penpos$ca(size*basestroke, 45);
+ z$cb = (x$+.3hu, y$-.4vu); penpos$cb(size*basestroke, 45);
+ penstroke z$ca.e..z$cb.e;
+ labels($ca, $cb)
+enddef;
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/syriacvowels.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/syriacvowels.mf
new file mode 100644
index 00000000000..bb949472f9f
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/syriacvowels.mf
@@ -0,0 +1,248 @@
+% Syriac Vowels 10 point Normal Face `syriacvowels.mf'
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+% Designed and (c) by Johannes Heinecke
+% <johannes(dot)heinecke(at)wanadoo(dot)fr>
+% Please send any improvements, corrections, suggestions, enhancements etc.
+% to the Author!
+%
+% Version 0.5 as of 10th November 2003
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+
+% Vowels
+
+pickup pencircle xscaled .8basestroke yscaled 2basestroke rotated 20;
+chaldeanvowels_pen:=savepen;
+
+pickup pencircle xscaled .9basestroke yscaled 1.3basestroke rotated 10;
+chaldeanvowels2_pen:=savepen;
+
+if unknown sertomacros: input sertomacros fi
+sertochar "peto.ho a";
+beginchar(1, 3hu#, 5vu#, 0);
+ pickup vowel_pen;
+ z11 = (0, 3vu);
+ z12 = (x1+3hu, y1+3vu);
+ z1 = (.1[z11,z12]);
+ z2 = (.9[z11,z12]);
+ z3 = (.3[z11,z12]);
+ z4 = (.7[z11,z12]);
+ %z5 = (x1+.5hu, y2);
+ z16 = (.5[z11,z12]); % Hilfspunkt
+ z6 = z16 + 2hu*dir(angle(z2-z1)+90);
+ draw z1--z2;
+ draw z3--z6--z4;
+ penlabels(1,2,3,4,6)
+endchar;
+
+
+sertochar "revo.so e";
+beginchar(2, 3hu#, 6vu#, 0);
+ pickup vowel_pen;
+ z1 = (0, 4vu);
+ z2 = (x1+2.2hu, y1+vu);
+ z3 = (x1+3hu, y1-vu);
+ z4 = z2 + whatever*dir(-110);
+ z4 = whatever[z1,z3];
+
+ draw z1..z2..z3;
+ draw z2--z4;
+
+ penlabels(1,2,3,4);
+endchar;
+
+
+sertochar ".hevo.so i";
+beginchar(3, 3hu#, 6vu#, 0);
+ pickup vowel_pen;
+
+ z1 = (.8hu, 3vu);
+ z2 = z1 + (2.9hu, 1.5vu);
+ z3 = z1 + (-.8hu, 1vu);
+ z4 = z3 + (3hu, 1.5vu);
+ z5 = .4[z3, z4];
+ z6 = .5[z1, z2];
+
+ draw z1--z2;
+ draw z3--z4;
+ draw z5--z6;
+
+ penlabels(1,2,3,4,5,6);
+endchar;
+
+sertochar "zeqopo o";
+beginchar(4, 3hu#, 6vu#, 0);
+ pickup vowelII_pen;
+
+ z1 = (0, 3vu);
+ z2 = z1 + (2hu, 3vu);
+ z3 = z1 + (1.3hu, 1.5vu);
+
+ draw z1{dir 30}..{dir 135}z2..{right}z3;
+ penlabels(1,2,3);
+endchar;
+
+sertochar "`e.so.so u";
+beginchar(5, 3hu#, 8vu#, 0);
+ pickup vowel_pen;
+
+ z1 = (0, 5vu);
+ z2 = z1 + (3hu, 3vu);
+ z3 = .47[z1, z2];
+ z4 = z1 + (2.5hu, -.5vu);
+
+ draw z1--z2;
+ draw z3--z4;
+
+ pickup vowelIII_pen;
+ z5 = z1 + (1.4hu, 0);
+ z6 = z5 - (.5hu, .6vu);
+
+ draw z5..z6..cycle;
+
+ penlabels(range 1 thru 6)
+endchar;
+
+
+
+
+
+
+sertochar "qu^s^soyo (hard sign)";
+beginchar(6, 1hu#, 4vu#, 0);
+ z1 = (.5hu, 4vu);
+ sertodot(1, 1.2);
+endchar;
+
+
+sertochar "peto.ho a invers";
+beginchar(17, 3hu#, 5vu#, 0);
+ pickup vowel_pen;
+ z11 = (0, 1vu);
+ z12 = (x1+3hu, y1+3vu);
+ z1 = (.1[z11,z12]);
+ z2 = (.9[z11,z12]);
+ z3 = (.3[z11,z12]);
+ z4 = (.7[z11,z12]);
+ %z5 = (x1+.5hu, y2);
+ z16 = (.5[z11,z12]); % Hilfspunkt
+ z6 = z16 - 2hu*dir(angle(z2-z1)+90);
+ draw z1--z2;
+ draw z3--z6--z4;
+ penlabels(1,2,3,4,6)
+endchar;
+
+
+sertochar "revo.so e invers";
+beginchar(18, 3hu#, 6vu#, 0);
+ pickup vowel_pen;
+ z1 = (0, 4vu);
+ z2 = (x1+hu, y1-2.2vu);
+ z3 = (x1+3hu, y1-vu);
+ z4 = z2 + whatever*dir(-110);
+ z4 = whatever[z1,z3];
+
+ draw z1..z2..z3;
+ draw z2--z4;
+
+ penlabels(1,2,3,4);
+endchar;
+
+
+sertochar ".hevo.so i";
+beginchar(19, 3hu#, 4vu#, 0);
+ pickup vowel_pen;
+
+ z1 = (.8hu, 1vu);
+ z2 = z1 + (2.9hu, 1.5vu);
+ z3 = z1 + (-.8hu, 1vu);
+ z4 = z3 + (3hu, 1.5vu);
+ z5 = .4[z3, z4];
+ z6 = .5[z1, z2];
+
+ draw z1--z2;
+ draw z3--z4;
+ draw z5--z6;
+
+ penlabels(1,2,3,4,5,6);
+endchar;
+
+sertochar "zeqopo o invers";
+beginchar(20, 3hu#, 6vu#, 0);
+ pickup vowelII_pen;
+
+ z1 = (2.5hu, 5vu);
+ z2 = z1 - (2hu, 3vu);
+ z3 = z1 - (1.3hu, 1.5vu);
+
+ draw z1{dir -150}..{dir -45}z2..{left}z3;
+ penlabels(1,2,3);
+endchar;
+
+sertochar "`e.so.so u invers";
+beginchar(21, 3hu#, 8vu#, 0);
+ pickup vowel_pen;
+
+ z1 = (3hu, 5vu);
+ z2 = z1 - (3hu, 3vu);
+ z3 = .47[z1, z2];
+ z4 = z1 - (2.5hu, -.5vu);
+
+ draw z1--z2;
+ draw z3--z4;
+
+ pickup vowelIII_pen;
+ z5 = z1 - (1.4hu, 0);
+ z6 = z5 + (.5hu, .6vu);
+
+ draw z5..z6..cycle;
+
+ penlabels(range 1 thru 6)
+endchar;
+
+
+
+
+
+% Chaldean vowels
+sertochar "zeqopo =a (chaldean)";
+beginchar(oct"014", 2hu#, 5vu#, 0);
+ pickup chaldeanvowels_pen;
+
+ lft bot z1 = (0, 2vu);
+ z2 = z1 + (1.2hu, 1.3vu);
+ drawdot z1;
+ drawdot z2;
+ penlabels(1,2);
+endchar;
+
+sertochar "revo.so e (chaldean)";
+beginchar(oct"32", 3hu#, 6vu#, 0);
+ pickup chaldeanvowels_pen;
+ lft z1 = (0, 2vu);
+ z2 = z1 + (1.3hu, 1.6vu);
+ drawdot z1;
+ drawdot z2;
+
+ penlabels(1,2);
+endchar;
+
+sertochar ".hevo.so i (chaldean, also used for u (waw + dot))";
+beginchar(oct"33", 2hu#, 4vu#, 0);
+ lft z1 = (1hu, 2vu);
+ pickup chaldeanvowels2_pen;
+ drawdot z1;
+ penlabels(1,2);
+endchar;
+
+sertochar " o (chaldean, also used for a)";
+beginchar(oct"15", 2hu#, 3vu#, 0);
+ lft z1 = (1hu, 3vu);
+ pickup chaldeanvowels2_pen;
+ drawdot z1;
+ penlabels(1,2);
+endchar;
+
+
+endinput; \ No newline at end of file
diff --git a/Master/texmf-dist/fonts/source/public/aramaic-serto/test.mf b/Master/texmf-dist/fonts/source/public/aramaic-serto/test.mf
new file mode 100644
index 00000000000..88f4f593e73
--- /dev/null
+++ b/Master/texmf-dist/fonts/source/public/aramaic-serto/test.mf
@@ -0,0 +1,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;
+