summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci23
1 files changed, 0 insertions, 23 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
deleted file mode 100644
index bfc191b9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Enclosing.sci
+++ /dev/null
@@ -1,23 +0,0 @@
-// 08.05.31
-// 10.12.04
-// 16.12.05 to make it a closed curve
-
-function AnsL=Enclosing(varargin)
- global MilliIn;
- Eps=10^(-7); // 12.05
- Nargs=length(varargin);
- P=varargin(1);
- if Mixtype(P)==2
- Tmp=Op(1,P);
- if type(Tmp)~=1 | length(Tmp)~=1
- AnsL=EnclosingS(P,varargin(2:Nargs));
- AnsL=Joincrvs(AnsL) // 10.12.04
- end
- end;
- Tmp1=Op(1,AnsL);
- Tmp2=Op(size(AnsL,1),AnsL);
- if norm(Tmp2-Tmp1)>Eps then // 12.05
- AnsL=[AnsL;Tmp1];
- end;
-endfunction
-