Untitled

%Find the vanishing line 
vanishingLine = cross(V1,V2);
plot([V1(1),V2(1)],[V1(2),V2(2)],'LineWidth', 2, 'Color', 'blue')

vanishingLine = vanishingLine/norm(vanishingLine(1:2));
HR = [1 0 0; 0 1 0; vanishingLine];
%Trovo i 4 angoli alla base del mobile (matrice 4x3)
corners = zeros(4,3);
%angolo in basso a sinistra
corners(1,:) = cross(Mlines(5,:),Llines(3,:));
%angolo in basso a destra
corners(2,:) = cross(Mlines(6,:),Llines(3,:)); 
%angolo in alto a destra 
corners(3,:) = cross(Mlines(6,:),Llines(2,:));
%angolo in alto a sinistra
corners(4,:) = cross(Mlines(5,:),Llines(2,:));

for i=1:4
    corners(i,:) = corners(i, :)/corners(1,3);
    plot(corners(i,1),corners(i,2),'.b','MarkerSize',30);
    text(corners(i,1),corners(i,2),"A", 'FontSize', 18, 'Color', 'w');
end