blob: e79ef41080994b532317729b565057a537fc29a6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
beginchar(2, 1.33wedge_len# + 4half_big#,let_height#,0);
rot(1) := rot(2) := -90;
wlenwid(1, h); wlenwid(2, h);
wccw(1) = (w, h);
wccw(2) = wcw(1);
xpart mid(3) = xpart wpnt(2);
ypart wcw(3) = 0;
wpnt(4) = tback(3);
wcw(5) = wccw(4);
rot(6) := 60; rot(7) := -60; tmid(6) = tmid(7);
.5[wccw(6), wcw(7)] = mid(5);
wlenwid(8, .8wedge_len);
wlenwid(9, .8wedge_len);
wlenwid(10, .8wedge_len);
wlenwid(11, .8wedge_len);
rot(8) := 60; rot(9) := -60; tmid(8) = tmid(9);
rot(10) := 60; rot(11) := -60; tmid(10) = tmid(11);
wpnt(9) = (w, 0);
mid(11) = tback(9);
wedgeset(1, 11);
endchar;
|
