% 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,30*o,2,1)
hold on
plot(x2,y2)

[x2,y2]=project2(x1,y1,52*o,5,1)
plot(x2,y2)

[x2,y2]=project2(x1,y1,60*o,20,1)
plot(x2,y2)

[x2,y2]=project2(x1,y1,-20*o,.8,1)
plot(x2,y2)

[x2,y2]=project2(x1,y1,-25*o,.5,1)
plot(x2,y2)

