blob: fcc7687cf10b1ce5ab81464e50a74f45d9519f5b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
// 08.08.12
// 08.10.07
// 09.06.02
function AnsL=CameraCurve(Curve)
Eps=10^(-6);
for I=1:size(Curve,1)
P=Curve(I,:);
x=P(1); y=P(2); z=P(3);
if x~=%inf
Tmp=Perspt(P);
if I==1
AnsL=[Tmp];
else
Tmp1=AnsL(size(AnsL,1),:);
if Tmp1(1)==%inf | norm(Tmp-Tmp1)>Eps
AnsL=[AnsL;Tmp];
end;
end;
else
AnsL=[AnsL;%inf,%inf];
end;
end;
endfunction
|