summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fetamont/ffmchar_A.mf
blob: 35c181de727262a2e6aecb5d2fba088aba1d6f38 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
ffmchar("A",15,ht#,0);
italcorr .8ht#*slant;
x1=leftstemloc+noise;
x2=leftstemloc+noise; 
x3=.5w+noise; 
w-x4=leftstemloc+noise;
w-x5=leftstemloc+noise;
bot y1=noise-o;
y2=barheight+noise;
top y3=h+o; %no noise because of Aring
y4=barheight+noise;
bot y5=noise-o;
bot y6=0; %no noise
z6=whatever[z4,z5];
draw z1--z2
  & half(z2,z2-z1,z3,randrt,z4,z5-z4)
  & z4--z5;
draw z2--z4;
charanchortops_[charcode]=(.5w,h);
charanchorbots_[charcode]=z6;
labels(1,2,3,4,5,6); 
endchar;