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
45
|
%% Ligatures for Coptic fonts
beginchar (oct"163", 0u#, 0u#, 0.0u#);
"s";
z163\0\0 = (6.487u,4.730u);
z163\0\1 = (2.477u,0.331u);
draw z163\0\0..z163\0\1;
proof_labels (
);
endchar;
beginchar (oct"123", 0u#, 0u#, 0.0u#);
"S";
z123\0\0 = (6.487u,4.730u);
z123\0\1 = (2.477u,0.331u);
draw z123\0\0..z123\0\1;
proof_labels (
);
endchar;
mode_setup; %%% ?????
beginchar(oct"026", 4.5u#, 1u#, 0.000u#);
"macron accent";
stem:=2/3h;
penpos1(stem,90);
penpos2(stem,90);
y1= y2= 2/3h;
x1= 0u; x2= w;
penstroke z1e..z2e;
endchar;
ligtable "8": "8"=:200;
ligtable "k": "s"=:201;
ligtable "K": "S"=:202;
ligtable "p": "h"=:203, "s"=:205;
ligtable "P": "H"=:204, "S"=:206;
ligtable "s": "j"=:209, "h"=:oct"171";
ligtable "S": "J"=:210, "H"=:oct"131";
ligtable "t": "j"=:211, "a" kern -0.5u#;
ligtable "T": "J"=:212;
%%% font_quad 18u#;
font_normal_space 3u#;
|