summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Spaceline.sci
blob: 9fe33c06144cfffb529b05f80e85c9caa975b809 (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
// 08.07.11

function Z=Spaceline(varargin)
  Z=[];
  for I=1:length(varargin)
    Data=varargin(I);
    if Mixtype(Data)==1
      for J=1:3:size(Data,2)
        Tmp=Data(J:J+2);
        Z=[Z;Tmp];
      end;
      continue;
    end;
    if Mixtype(Data)==3
      Tmp=[];
      for I=1:Mixlength(Data);
        Tmp=Mixjoin(Tmp,Mixop(I,Data));
      end;
      Data=Tmp;
    end;
    for J=1:Mixlength(Data)
      Tmp=Mixop(J,Data);
      Z=[Z;Tmp];
    end;  
  end
endfunction