1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
cmchar "ogonek accent" ;
beginchar("n",8u#,0,.875desc_depth#) ;
adjust_fit(0,0) ;
x1 = .5w+ 1.5u ;
if serifs: pickup crisp.nib; pos1(hair,-25);
pos2(.8[vair,stem],45) ; pos3(vair,140) ;
x1 = x2+.5u ; y2 = .8[y1,y5] ;
rt x3l = w ; y3 = .4[y5,y1] ;
x5 = 2/5[x2,x3] ; bot y5 =-d ;
pos5(.6[vair,stem],90) ;
bot y1 = o ;
lft x4l = hround(x1-u) ; y4 = .5[y1,y2] ;
pos4(.4[hair,stem],0) ;
filldraw stroke z1e ..tension 1.2 .. z4e ..z2e .. z5e ..tension 1.2 .. z3e ;
fi
penlabels(1,2,3,4,5);
endchar ;
|
