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