blob: b43451a9aa1a6574e57662a6e272bf8e41d21e6e (
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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
// 08.08.12
// 08.10.28
function CL=Projpers(varargin)
Nargs=length(varargin);
Flg=0;
if Nargs==1 & Mixtype(varargin(1))==1
Flg=1;
end;
CL=[];
for N=1:Nargs
Crv=varargin(N);
if Mixtype(Crv)==1
Tmp=CameraCurve(Crv);
CL=Mixadd(CL,Tmp);
else
if Mixtype(Crv)==3
ObjL=[];
for I=1:Mixlength(Crv)
Tmp1=Mixop(I,Crv);
if Mixtype(Tmp1)==1
ObjL=Mixadd(ObjL,Tmp1);
else
ObjL=Mixjoin(ObjL,Tmp1);
end;
end;
Crv=ObjL;
end;
for J=1:Mixlength(Crv)
Tmp=CameraCurve(Mixop(J,Crv));
CL=Mixadd(CL,Tmp);
end
end
end
if Mixlength(CL)==1 & Flg==1
CL=Mixop(1,CL);
end
endfunction
|