Master/texmf-dist/fonts/source/public/fetamont/ffmchar_J.mf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

ffmchar("J",9,ht#,0);
italcorr .8ht#*slant;
lft x1=noise-eps;
x2=x1+.5u;
w-x3=leftstemloc+noise; 
w-x4=leftstemloc+noise; 
bot y1=noise-o;
y3=barheight+noise;
top y4=h+noise;
z2=z1+whatever*randrt;
draw z1--z2
 & arc(z2,randrt,z3,z4-z3)
 & z3--z4; 
labels(1,2,3,4); 
endchar;