blob: a9216e6fe4fa8840a29c4ac7c95c989ff237e131 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
beginchar("j",wedge_len# + (sind 60)*wedge_wid# + (cosd 60)*wedge_len#,let_height#,0);
wedgesetup;
wcw(1) = wccw(2) = (0, h/2);
wcw(3) = wpnt(2); rot(3) := -60;
wcw(4) = wccw(3) = wccw(5);
rot(4) := -60; rot(5) := 60;
wlenwid(6, h); rot(6) := -90;
ypart wpnt(6) = 0; xpart wpnt(6) = xpart mstem(1);
wedgeset(1, 6);
endchar;
|