1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
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;
|
