blob: bc3f40e5ac7d86702f5835fe9369659cfe747319 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
beginchar("t",6wedge_wid#,let_height#,0);
wedgesetup;
wlen(1) := w; tback(1) = (0, h/2);
wccw(2) = mid(1); rot(2) := -20;
tback(3) = wpnt(2); rot(3) := -20;
xpart mid(4) = xpart mid(1);
ypart tback(4) = h;
wccw(4) = wcw(5); wccw(5) = wcw(6); wccw(6) = wcw(7);
rot(4) := rot(5) := rot(6) := rot(7) := -90;
wlenwid(7, h);
mid(8) = wccw(5); rot(8) := 60;
wccw(9) = mid(8); rot(9) := -60;
wedgeset(1, 9);
endchar;
|