cam24

function ref = cam24(n,iref)

eval(['load cam_' int2str(n)]);

offset = iref - [xp(4) yp(4)];

if (nargin>1)
    xp = xp + offset(1);
    yp = yp + offset(2);
    cam = cam + ones(2,1)*offset;
    hold on
    plot(xp(1:2),yp(1:2),'y','LineWidth',2);
else

    plot(xp(1:2),yp(1:2),'y','LineWidth',2);
    axis equal
    grid on
    hold on
end
plot(cam(1,1),cam(1,2),'ko');
text(cam(1,1)+1,cam(1,2),int2str(n));
plot(cam(:,1),cam(:,2),'k','LineWidth',2);
plot(xp(3:4),yp(3:4),'m','LineWidth',2);
plot(xp(4:end),yp(4:end),'kx');
hold off

ref = [xp(6) yp(6)];