  function DrawPoly(x,y)
% x and y are equal length vectors that define a polygon
% Displays the polygon.
n = length(x);
x = [x x(1)];
y = [y y(1)];
plot(x,y,x,y,'or')
axis([-1.2 1.2 -1.2 1.2])
axis equal off
shg