summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci29
1 files changed, 0 insertions, 29 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
deleted file mode 100644
index 1270f789..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Skeletonparadata.sci
+++ /dev/null
@@ -1,29 +0,0 @@
-// 08.07.13
-// 08.08.08
-// 08.10.16
-// 11.12.12 (Flattenlist)
-
-function Out=Skeletonparadata(varargin)
- global MilliIn;
- Nargs=length(varargin);
- Out=[];
- ObjL=Flattenlist(varargin(1));
- Plt3L=Flattenlist(varargin(2));
- R=0.075*1000/2.54/MilliIn;
- if Nargs>2
- R=R*varargin(3);
- end;
- Eps2=0.05; // changed at 08.10.16
- if Nargs>3
- Eps2=varargin(4);
- end;
- Obj2L=list();
- for I=1:length(ObjL)
- Obj2L($+1)=ProjcoordCurve(ObjL(I));
- end;
- Plt2L=list();
- for I=1:length(Plt3L)
- Plt2L($+1)=ProjcoordCurve(Plt3L(I));
- end;
- Out=Makeskeletondata(Obj2L,Plt2L,R,Eps2);
-endfunction