diff options
Diffstat (limited to 'language/armenian/armtex/fonts/source/ps2mfbas.mf')
-rw-r--r-- | language/armenian/armtex/fonts/source/ps2mfbas.mf | 65 |
1 files changed, 65 insertions, 0 deletions
diff --git a/language/armenian/armtex/fonts/source/ps2mfbas.mf b/language/armenian/armtex/fonts/source/ps2mfbas.mf new file mode 100644 index 0000000000..8f8d77e456 --- /dev/null +++ b/language/armenian/armtex/fonts/source/ps2mfbas.mf @@ -0,0 +1,65 @@ +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% +%% +%% This is the `ps2mfbase.mf' file (METAFONT macros for Armenian fonts). +%% +%% This file is a part of the ArmTeX project [2022/08/14 v3.0-beta4] +%% +%% ArmTeX is a system for writing in Armenian with plain TeX and/or LaTeX(2e). +%% +%% Copyright 1997 - 2022: +%% Serguei Dachian (Serguei.Dachian_AT_univ-lille.fr), +%% Arnak Dalalyan (arnak.dalalyan_AT_ensae.fr), +%% Vardan Akopian (vakopian_AT_yahoo.com). +%% +%% ArmTeX may be distributed and/or modified under the conditions of the LaTeX +%% Project Public License, either version 1.3 of this license or (at your +%% option) any later version. +%% +%% The latest version of this license is in +%% http://www.latex-project.org/lppl.txt +%% and version 1.3 or later is part of all distributions of LaTeX version +%% 2005/12/01 or later. +%% +%% ArmTeX has the LPPL maintenance status `author-maintained'. +%% +%% For more details, installation instructions and the complete list of files +%% see the provided `README' file. +%% +%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% + +def nonzerowinding = + cull currentpicture dropping (0,0); +enddef; +extra_endchar := extra_endchar & "nonzerowinding;"; +% +smoothing := 0; autorounding := 0; +turningcheck := 0; +define_pixels (FX, FY); +% +picture chp[]; +pair p[]; +% +def seac (expr achar, bchar, adx, ady) = + currentpicture := chp[bchar] + chp[achar] shifted (adx * FX, ady * FY); +enddef; +def endseacchar = + endgroup +enddef; +% +def FuF (expr p_path) = + path this_path; + this_path = (p_path -- cycle); +% fill (this_path xscaled FX yscaled FY); + fill (this_path); +enddef; +% +vardef lbl@#(text t) = + if proofing > 1: + forsuffixes $$=b,: + forsuffixes $=t: + makelabel@# (str$.$$, z$.$$); + endfor + endfor + fi +enddef; +% That's all, Folks! |