%% 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#;