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