fonts/cun/cun0063.mf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

beginchar("~",2wedge_len#,let_height#,0);
wedgesetup;

rot(1) := -90; wlenwid(1, h);
wlen(2) := wlen(3) := wlen(4) := h;
wpnt(2) = cwmid(1);
wcw(3) = tmid(2); rot(3) := -90;
wcw(4) = wpnt(3);

wlenwid(5, .6wedge_len);
wlenwid(6, .6wedge_len);
wlenwid(7, .6wedge_len);
wlenwid(8, .6wedge_len);
wlenwid(9, .6wedge_len);
wlenwid(10,.8wedge_len);
rot(5) := 60; rot(6) := -60; tmid(5) = tmid(6); 
rot(7) := 60; rot(8) := -60; tmid(7) = tmid(8);
rot(9) := -60;
wcw(6) = wccw(9); wcw(9) = wccw(8) = mid(10);
wccw(10) = mid(3);
wccw(1) = (w, h);

wedgeset(1, 10);

endchar;