summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fetamont/ffmchar_R.mf
blob: 17277ebadb87313604055549af49bc96ff59c742 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
ffmchar("R",14,ht#,0);
italcorr .8ht#*slant;
x1=leftstemloc+noise;
x3=leftstemloc+noise;
x4=.618[x1,w-x1]+noise;
x6=.618[x1,w-x1]+noise;
x5=.5[w-x1,lft w]+noise; 
x7=.5[w-x1,lft w]+noise; 
y2=barheight+noise;
y6=barheight+noise;
bot y1=noise-o;
bot y7=noise-o;
top y3=h+noise; 
top y4=h+noise; 
y5=.5[y4,y6]+noise;
z2=whatever[z1,z3];
draw z1--z3--z4
 & half(z4,z4-z3,z5,-randup,z6,z2-z6)
 & z6--z2;
draw z6--z7;
charanchortops_[charcode]=(.5w,h);
labels(1,2,3,4,5,6,7); 
endchar;