diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public')
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; + |