fonts/cun/cun0060.mf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

beginchar("{",(1 + 2.5*(cosd 60))*wedge_len#,let_height#,0);
rot(1) := 60; rot(2) := -60; wcw(1) = wmid(2); 
rot(3) := 60; rot(4) := -60; wcw(3) = wmid(4);
wmid(1) = tback(3);

rot(5) := rot(6) := rot(7) := rot(8) := -90;
tback(6) = wmid(5); tback(8) = wmid(7);
wccw(5) = wcw(7);
rot(9) := 60; rot(10) := -60; wcw(9) = wmid(10);
wccw(9) = wmid(8);
wmid(11) = tback(12); ccwmid(12) = tmid(6);
ccwmid(13) = wcw(12);

mstem(4) = wcw(11);
xpart wccw(1) = 0;
ypart wpnt(6) = 0;

wedgeset(1, 13);
endchar;