blob: 4fa30ee29b47a8c4045a4a3ada86327aa201e26a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
ffmchar("T",13,ht#,0);
italcorr ht#*slant+.5u#;
if .5w<>good.x .5w: change_width; fi
lft x1=noise-eps;
rt x2=w+noise;
x3=.5w+noise;
x4=.5w+noise;
top y1=h+noise;
top y2=h+noise;
bot y4=noise-o;
z3=whatever[z1,z2];
draw z1--z2;
draw z3--z4;
charanchortops_[charcode]=(.5w,h);
charanchorbots_[charcode]=(x4,0);
labels(1,2,3,4);
endchar;
|