11 beginchar(incr code, 0, 0, 0);
12 mw#:=(minwidth+iwd*delwidth)*pt#;
14 x1 = y1= 0; x3= mw; y3= 2y2'= iht*delheight; x2'= .5x3;
16 z2-z2'= whatever*dir(angle(z3-z1)+90);
17 my_bow:=min(max_bow, slope*mw);
18 my_bow:=max(my_bow, min_bow);
19 z1'=(z1-(0,my_bow)) rotated angle(z3-z1);
20 (z1'-z2)=whatever*(z1-z2');
21 penpos1(.15thick,(angle(z3-z1)+90));
22 penpos2(thick,(angle(z3-z1)+90));
23 penpos3(.15thick,(angle(z3-z1)+90));
24 penstroke (flex(z1e,z2e,z3e));
26 currentpen:= pencircle;
27 draw (flex(z1,z2,z3));% draw z1--z3; draw z2'--z2--z1'--z1;
29 currentpicture:=currentpicture t;
33 beginchar(code+128, 0, 0, 0);