summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
blob: 82feeff2edeae78d43f68a788bb7b3a15cd3884b (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
40
41
// 08.07.11
// 08.07.15
// 08.08.12
// 08.10.28

function CL=Projpara(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=ProjCurve(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=ProjCurve(Mixop(J,Crv));
        CL=Mixadd(CL,Tmp);
      end
    end
  end
  if Mixlength(CL)==1 & Flg==1
    CL=Mixop(1,CL);
  end
endfunction