blob: 863cc38d4209dcd4c236c85d6860ab28ab8dc872 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
beginchar("l",1.5wedge_len#,let_height#,0);
wedgesetup;
wlen(1) := 3.8wedge_wid;
wlenwid(2, .5wedge_len); wlenwid(3, .5wedge_len);
wlenwid(4, .5wedge_len); wlenwid(5, .5wedge_len);
rot(1) := -45;
xpart wcw(1) = 0; ypart wccw(1) = h;
wccw(2) = mid(1); wccw(3) = wcw(2); wccw(4) = wcw(3); wccw(5) = wcw(4);
rot(2) := 45; rot(3) := 45; rot(4) := 45; rot(5) := 45;
wedgeset(1, 5);
endchar;
|