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