fonts/cun/cun0038.mf


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

beginchar("D",2*(cosd 60)*wedge_len#,let_height#,0);
wedgesetup;

tmid(1) = tmid(2);
tmid(3) = tmid(4);
mid(1) = mid(4);
rot(1) := rot(3) := -60;
rot(2) := rot(4) := 60;
tmid(5) = tmid(6);
tmid(7) = tmid(8);
mid(5) = mid(8);
rot(5) := rot(7) := -60;
rot(6) := rot(8) := 60;
xpart wcw(1) = 0;
ypart mid(1) = h/2;
wcw(5) = ccwmid(1);

wedgeset(1, 8);
endchar;