summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Dividegraphics.sci
blob: be16b47367f195368e13f2fed3d1fa46c0c34299 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// 08.05.31
// 10.01.01
// 11.01.07

function OutL=Dividegraphics(Pd)
  if length(Pd)==0
    OutL=Pd;
    return;
  end;
  DtL=Flattenlist(Pd);
  OutL=list();
  for J=1:length(DtL)
    Dt= DtL(J);
    Ndm=Dataindex(Dt);
    for I=1:size(Ndm,1)
      Fd=Dt(Ndm(I,1):Ndm(I,2),:);
      OutL($+1)=Fd;
    end;
  end;
endfunction;