diff options
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf')
-rw-r--r-- | Master/texmf-dist/fonts/source/public/aramaic-serto/assy.mf | 104 |
1 files changed, 104 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; + + + + + + + + + |