blob: 19edc8d27288ef9a065fdf907f11133433ae7cad (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
beginchar("N",5wedge_wid#,let_height#,0);
wlen(1) := h; rot(1) := -90;
wlen(2) := h; rot(2) := -90;
wlen(3) := h; rot(3) := -90;
wlen(4) := h; rot(4) := -90;
wlen(5) := w;
wccw(1) = wcw(2);
wccw(2) = wcw(3);
wccw(3) = wcw(4);
wccw(4) = (w, h);
wpnt(5) = (w, h/2);
wedgeset(1, 5);
endchar;
|