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


def opprt(expr i) =
 beginchar(i,tup[i]#/5,tup[i]#/2,tup[i]#/2); "parenthese ouvrante";
 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);
 dessin z1r..z2l..z3r--z3l..z2r..z1l--cycle;
 amendchar;
enddef;

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