blob: d2fbebced5d6f6756cc9cd4bf8da86c627fa0bc7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
beginchar("P",half_big#*3,let_height#,0);
wlenwid(1, h/2); rot(1) := -90;
wlenwid(2, h/2); rot(2) := -90;
wlenwid(3, h/2); rot(3) := -90;
wlen(4) := h/2; wwid(4) := wwid(3)*2; rot(4) := -90;
wcw(1) = (0, h);
wcw(2) = wccw(1);
wcw(3) = wccw(2);
wcw(4) = wpnt(1);
wedgeset(1, 4);
endchar;
|