summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf')
-rw-r--r--Master/texmf-dist/fonts/source/public/aramaic-serto/sertomacros.mf44
1 files changed, 44 insertions, 0 deletions
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;