fonts/cun/cun0061.mf


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

beginchar("|",wedge_len#+wedge_wid#,let_height#,0);
wedgesetup;

wlenwid(1, h);	rot(1) := -90;
wwid(2) := wwid(3) := wwid(4) := wwid(5) := wedge_wid*.6;
wccw(1) = (w, h);
wpnt(2) = .33[wcw(1), mid(1)];
wpnt(3) = .66[wcw(1), mid(1)];
wpnt(4) = mid(1);
wpnt(5) = cen(1);
wlenwid(6, .6wedge_len);
wlenwid(7, .6wedge_len);
wlenwid(8, .6wedge_len);
wlenwid(9, .6wedge_len);
tback(6) = mid(7); rot(6) := rot(7) := -30;
wpnt(6) = wpnt(1);
rot(8) := 60; rot(9) := -60; tmid(8) = tmid(9);
mid(8) = mstem(2);

wedgeset(1, 9);
endchar;