summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fetamont/ffmchar_two.mf
blob: 850dbc9be19ae7f038f31f045de6018789469517 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
ffmchar("two",11,ht#,0);
italcorr .8ht#*slant;
x1=leftstemloc-ho+noise; 
x2=.5[x1,x6]+noise;
w-x3=good.x(1.5u+s+noise);
x4=.5[x1,x6]+noise;
x5=good.x(2u+s+noise);
x6=.5[w-x1,lft w]+ho+noise;
top y2=h+noise;
y3=.5[y4,y2]+noise;
y4=barheight+noise; 
bot y5=noise; 
bot y6=noise; 
z1=z2+whatever*randrt;
pair randir;
randir:=-randrt;
draw z1--z2 
 & half(z2,z2-z1,z3,-randup,z4,randir)
 & arc(z4,randir,z5,-randup)
 & z5--z6;
labels(1,2,3,4,5,6); 
endchar;