diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci deleted file mode 100644 index be16b473..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci +++ /dev/null @@ -1,20 +0,0 @@ -// 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; |