% on interval 0..1 both axes
hold off; clg; axis([-2 2 -2 2])
axis('square')
% -.5...5 both axes
hold off; clg; axis([-2 2 -2 2])
x1=[-.5 .5 .5 -.5 -.5]
y1=[-.5 -.5 .5 .5 -.5]
plot(x1,y1)
[x2,y2]=project2(x1,y1,pi/12,1)
hold on
plot(x2,y2)

[x2,y2]=project2(x1,y1,pi/5.3,1)
plot(x2,y2)

