summaryrefslogtreecommitdiff
path: root/language/coptic/rosmorduc/coptelig.mf
blob: 4826af60ea2a88d0c287bccb81d00e5786bb645b (plain)
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#;