summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci23
1 files changed, 23 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
new file mode 100755
index 00000000..bfc191b9
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Enclosing.sci
@@ -0,0 +1,23 @@
+// 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
+