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


def clparent(expr i) =
 beginchar(i,tup[i]#/5,tup[i]#/2,tup[i]#/2); "parenthese fermante";
 change_width;
 pickup amcircle_pen;
 z1 = (tup[i]/5-(tup[i]/400)*pp,tup[i]/2);
 z3 = (tup[i]/5-(tup[i]/400)*pp,-tup[i]/2);
 z2 = (2*(tup[i]/400)*pp,0);
 penpos1(0,75);
 penpos2((tup[i]/400)*pp,180);
 penpos3(0,285);
 path picopparent;
 picopparent := z1r..z2l..z3r--z3l..z2r..z1l--cycle;
 z10 = (tup[i]/10,1pp);
 z30 = (tup[i]/10,0);
 dessin picopparent reflectedabout (z10,z30);
 amendchar;
enddef;

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