blob: a3ccb9a39881938b8c3896fca20eeb1c52058aec (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
beginchar("O",half_big#*7/2,let_height#,0);
wlen(1) := h/3; wwid(1) := 4w/7; rot(1) := -90;
wlen(2) := h/3; wwid(2) := 2w/7; rot(2) := -90;
wlen(3) := h/3; wwid(3) := 2w/7; rot(3) := -90;
wlen(4) := h/3; wwid(4) := 2w/7; rot(4) := -90;
wlen(5) := h/3; wwid(5) := 2w/7; rot(5) := -90;
wlen(6) := h/3; wwid(6) := 2w/7; rot(6) := -90;
wlen(7) := h/3; wwid(7) := 2w/7; rot(7) := -90;
wcw(5) = (0, h);
wcw(6) = wccw(5);
wcw(7) = wccw(6);
wcw(2) = wpnt(5);
wcw(3) = wccw(2);
wcw(4) = wccw(3);
wcw(1) = wpnt(2);
wedgeset(1, 7);
endchar;
|
