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

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

% -.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/8,1)
hold on
plot(x2,y2)

% 0..1 on X axis and -.5...5 on Y axis
% different chirpiness than (-.5,.5) and (-.5,.5) results...
hold off; clg
x1=[0 1 1 0 0]
y1=[-.5 -.5 .5 .5 -.5]
plot(x1,y1)
[x2,y2]=project2(x1,y1,pi/8,1)
hold on
plot(x2,y2)

hold off; clg
x1=[-.5 .5 .5 -.5 -.5]
y1=[0 0 1 1 0]
plot(x1,y1)
[x2,y2]=project2(x1,y1,pi/8,1)
hold on
plot(x2,y2)