blob: e08ef8980622375c8a3d11360d6bff47d932177c (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
beginchar("I",(cosd 60)*wedge_len# + 1.5wedge_wid#,let_height#,0);
wcw(1) = wccw(2) = (0, h/2);
wcw(3) = mid(1);
rot(3) := -90;
wccw(4) = wcw(3);
rot(4) := -90;
tmid(5) = tmid(6) = wpnt(1);
rot(5) := 60;
rot(6) := -60;
tmid(7) = wpnt(2);
rot(7) := -60;
wedgeset(1, 7);
endchar;
|