blob: 30011834cf3bb4784ac49c3191a6cd234ca05347 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
beginchar("v",2wedge_len#,let_height#,0);
wedgesetup;
rot(1) := -90;
mid(2) = wcw(1);
wpnt(3) = mid(1);
xpart wpnt(4) = xpart wpnt(1);
ypart wcw(4) = 0;
wlenwid(5, h); rot(5) := -90;
cwmid(5) = wpnt(2);
wccw(5) = (w, h);
tmid(6) = .5[mstem(4), wpnt(1)];
wedgeset(1, 6);
endchar;
|