summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Dividegraphics.sci20
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;