blob: 1672895a8664a722d0abb4d8c378d474e6461430 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
beginchar(oct"030",.4em#,.5cap#,0dth#); "Trigorgon";
picture TPIGOPGON;
path p[];
x0 = w; y0 = y1 = 7h/10;
x1 = x2 = 7w/10; y2 = y3 = .5h;
x3 = x4 = 2w/5;
y4 = y5 = 3h/10;
x5 = x6 = w/10; y6 = h/10;
p1 = z0--z1 & z1--z2 & z2--z3 & z3--z4 & z4--z5 & z5--z6;
pickup pencircle scaled .8pt;
draw p1;
TPIGOPGON = currentpicture;
endchar;
|