fonts/cun/cun0034.mf


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

beginchar("H",3wedge_wid#/stem_porp,let_height#,0);
wlen(1) := 3wedge_wid/stem_porp;
wccw(1) = (0, h);
rot(2) := -90;
rot(3) := -90;
rot(4) := -90;
wcw(2) = mid(1);
wcw(3) = wccw(2);
wcw(4) = wccw(3);
wccw(5) = mid(2);
wlen(5) := wedge_len*1.5;
wmid(6) = mstem(2);

wedgeset(1, 6);
endchar;