blob: d7ff90b954e720fc9f87151d553c778758cf3d23 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
beginchar("x",3wedge_len#,let_height#,0);
wedgesetup;
wpnt(1) = wcw(2); rot(2) := -60;
wcw(3) = wccw(2); rot(3) := -60;
wcw(4) = wccw(3); rot(4) := -60;
wccw(5) := wcw(4); rot(5) := 60;
wcw(6) = wpnt(2); rot(6) := -60;
wlenwid(7, h); xpart mid(7) = xpart wpnt(4);
ypart wpnt(7) = 0; rot(7) := -90;
wlenwid(8, h);
ypart wpnt(8) = 0; rot(8) := -90;
wpnt(9) = cwmid(8);
wpnt(10) = wccw(2);
xpart wpnt(11) = xpart wpnt(8); ypart wcw(11) = 0;
xpart tback(1) = 0; wccw(2) = mid(8);
wedgeset(1, 11);
endchar;
|
