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