summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/fonts/source/public/fetamont/ffmchar_tilde.mf
blob: 2d1e2dbebcbf56ffa4cec2c7abd1d05f1f20e49d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
ffmchar("tilde",9,x_ht#+acc_ht#,0);
lft x1=eps+noise; 
x2=.3w+noise;
x4=.7w+noise;
x3=.5w+noise;
rt x5=w-eps+noise; 
bot y1=.2[x_ht,h]+noise;
bot y4=.2[x_ht,h]+noise;
top y2=h+noise;
top y5=h+noise;
y3=.6[x_ht,h]+noise;
if angle direction 1 of (z2{right}...z3...z4{right}) < -90:
 draw z1{randup}...z2{randrt}...z3{-randup}...z4{randrt}...z5{randup};
else:
 draw z1{randup}...z2{randrt}...z3...z4{randrt}...z5{randup};
fi
charanchortops_[charcode]=(.5w,x_ht);
labels(1,2,3,4,5); 
endchar;