summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpers.sci
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