
clc;
clear;

pt=[0 5000; 0 0]'; %punto A da proiettare
K=eye(3);
f=1000;

%% esempio 1 - NESSUN MOVIMENTO
disp('es 1 nessun movimento')
disp('XYc = XYw');
disp('non traslo');
T=[0 0]'
disp('non ruoto');
alpha=0

disp('A giace sull asse ottico della telecamera');
disp('dunque mi aspetto coordinata sul piano immagine 0');
disp('e distanza = 5000;');

K=[1, 0, 1000;
   0, 1, 1000;
   0, 0, 1]

pause;
[coord, hidden, distance]=...
    camera_simulation_2d(alpha,T,pt,K,f,2000)
pause;
clc;

K=eye(3); %------------------
% break;
%% esempio 2 - TRASLAZIONE
disp('es 2: traslazione')
disp('traslo XYc verso il lato positivo dell asse Xw');
T=[5000 0]'
disp('non ruoto');
alpha=0

disp('La retta che congiunge A al centro ottico è inclinata di 45°,');
disp('il f=1000 --> 5000:5000=x:1000 --> mi aspetto coordinata=-1000');
disp('e distanza = sqrt(5000^2+5000^2) = 7071');

pause;
[coord, hidden, distance]=...
    camera_simulation_2d(alpha,T,pt,K,f)
pause;
clc;


%% esempio 3 - ROTAZIONE
disp('es 3: rotazione')
disp('non traslo');
T=[0 0]'
disp('ruoto il sistema XYc in senso orario di 45°');
alpha=pi/4

disp('sqrt[(5000^2)/2]=3535');
disp('rispetto alla telecamera, le coordinate di a sono (3535,3535)');
disp('3535:3535=x:1000 --> mi aspetto coordinata=1000 e distanza=5000')
pause;
[coord, hidden, distance]=...
    camera_simulation_2d(alpha,T,pt,K,f)
pause;
clc;


%% esempio 4 - ROTAZIONE E TRASLAZ LUNGO Xw
disp('es 4: rototraslazione')
disp('traslo XYc verso il lato positivo dell asse Xw');
T=[5000 0]'
disp('ruoto il sistema XYc in senso orario di 45°');
alpha=pi/4

disp('sqrt[(5000^2)/2]=3535');
disp('a giace sull asse ottico, --> mi aspetto coordinata = 0');
disp('e distanza = sqrt(5000^2+5000^2) = 7071')
pause;
[coord, hidden, distance]=...
    camera_simulation_2d(alpha,T,pt,K,f)
pause;
clc;


%% esempio 5 - ROTAZIONE E TRASLAZ LUNGO Xw e Yw
disp('es 5: rototraslazione')
disp('traslo XYc verso il lato positivo dell asse Xw');
T=[5000 5000]'
disp('ruoto il sistema XYc in senso orario di 90°');
alpha=pi/2

disp('a giace sull asse ottico, --> mi aspetto coordinata = 0');
disp('e distanza = 5000')
pause;
[coord, hidden, distance]=...
    camera_simulation_2d(alpha,T,pt,K,f)

