blob: 5525fc9936fe35d182784b55d42a121e81a14207 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
beginchar("a",2wedge_len#,let_height#,0);
wcw(1) = wccw(2) = (0, h/2);
wpnt(1) = wcw(3) = wccw(4);
rot(3) := -60; rot(4) := 60;
wpnt(2) = wcw(5);
rot(5) := -60;
wlenwid(6, wedge_len/2); wlenwid(7, wedge_len/2);
cen(6) = .33[mid(2), wpnt(2)]; cen(7) = .66[mid(2), wpnt(2)];
rot(6) := -90; rot(7) := -90;
wlenwid(8, h);
wccw(8) = (w, h);
rot(8) := -90;
wedgeset(1, 8);
endchar;
|
