%
% Copyright (C) 2008-2001 by Azzeddine LAZREK. All rights reserved.
%
% carksd.mf
% This file belongs to the CurExt package.
%


def kashid(expr i) =
 beginchar(i,tuk[i]#,vh*u#,vd*u#); "variable size kashid";
 change_width;
 pickup amcircle_pen;
 z1 = (1tuk[i],0.75u);
 z3 = (0tuk[i],0.85u);
 z2 = 0.5[z1,z3]-(0u,0.6u);
% NasX
% z1 = (1tuk[i],-0.35u);
% z3 = (0tuk[i],-0.5u);
% z2 = 0.5[z1,z3]-(0u,0.3u);
 % z2 = 0.5[z1,z3]-(0.2tuk[i],0.2tuk[i]);%;
 z2 = 0.5[z1,z3]-(0u,0.3u);
 penpos1(2pp,60);
 penpos2(2pp,60);
 penpos3(2pp,60);
 dessin z1r..controls z2r..z3r--z3l..controls z2l..z1l--cycle;
 amendchar;
enddef;

for i = 0 step 1 until 255 : kashid(i); endfor
