blob: ecbda385048d07b388ca5492911433060913dc02 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
beginchar(oct"032",.4em#,.5cap#,0dth#); "GorgoArgon";
picture GOPGOAPGON;
path p[];
x0 = x1 = .5w;
y0 = h; y1 = 0;
y2 = y3 = .5h;
x2 = 1w/10;
y4 = 3h/10;
x3 = x4 = 2w/5;
p1 = z2--z3 & z3--z4;
p2 = p1 reflectedabout(z0,z1);
pickup pencircle scaled .8pt;
draw p1;
draw p2;
GOPGOAPGON = currentpicture;
endchar;
|