summaryrefslogtreecommitdiff
path: root/language/armenian/armtex/fonts/source/ps2mfbas.mf
diff options
context:
space:
mode:
Diffstat (limited to 'language/armenian/armtex/fonts/source/ps2mfbas.mf')
-rw-r--r--language/armenian/armtex/fonts/source/ps2mfbas.mf65
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!