Virtual_Camera/calibD.m at master · svupper/Virtual_Camera · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
function [X2dr,X3dr] = calibD(D,debugr,N)

if(debugr)
    X2dr=[605.346500000000 222.935500000000;...
        554.380500000000 234.927500000000;...
        498.917500000000 246.919500000000;...
        437.458500000000 263.408500000000;...
        881.162500000000 225.933500000000;...
        926.132500000000 240.923500000000;...
        980.096500000000 255.913500000000;...
        1037.05850000000 269.404500000000;...
        1055.04650000000 813.541500000000;...
        1014.57350000000 843.521500000000;...
        974.100500000000 875.000500000000;...
        927.631500000000 910.976500000000];
    X2dr=[X2dr ones(N,1)];
else
    figure;
    imshow(D);
    hold on;
    X2dr=ginput(N);
    X2dr=[X2dr ones(N,1)];

end

figure(1);
imshow(D);
hold on;
plot(X2dr(:,1),X2dr(:,2),'r*');

X3dr=[3 0 8;...
    4 0 8;...
    5 0 8;...
    6 0 8;...
    0 3 8;...
    0 4 8;...
    0 5 8;...
    0 6 8;...
    1 8 0;...
    2 8 0;...
    3 8 0;...
    4 8 0;];
X3dr=[X3dr ones(N,1)];

end