blob: 81bac3808890c057a5edb9ffcc8fd142605b0797 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
beginchar("M",5wedge_wid#,let_height#,0);
wlen(1) := let_height; rot(1) := -90;
wlen(2) := let_height; rot(2) := -90;
wlen(3) := let_height; rot(3) := -90;
wlen(4) := let_height; rot(4) := -90;
wlen(5) := w;
wlen(6) := w;
wccw(1) = wcw(2);
wccw(2) = wcw(3);
wccw(3) = wcw(4);
wccw(4) = (w, h);
wpnt(5) = (w, ypart mid(4));
wccw(6) = wcw(5);
wedgeset(1, 6);
endchar;
|