summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fetamont/ffmchar_ogonek.mf
blob: 5a4cdfe2f86589eeb72690d239a91ba9e318ec95 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
ffmchar("ogonek",4,x_ht#,acc_depth#);
x1=.6w; %no noise!
lft x2=-o+.5noise;
rt x4=w+.5noise;
x3=x4-.5u;
bot y1=0; %no noise!
y2=.7[y1,y4];
bot y3=noise-d;
z4=z3+whatever*randrt;
pair randir;
randir:=-randup;
draw z1..tension infinity and 1..z2{randir}
 & arc(z2,randir,z3,randrt)
 & z3--z4;
charanchorbots_[charcode]=z1;
labels(1,2,3,4,5); 
endchar;