add ketpic

1 files changed, 39 insertions, 0 deletions

diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci
new file mode 100755
index 00000000..7e563f4b
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Scaledata.sci
@@ -0,0 +1,39 @@
+// 08.05.25 Koshikawa
+// 08.09.20
+// 15.04.12
+
+function OutL=Scaledata(varargin)
+  Nargs=length(varargin);    
+  ML=varargin(1);
+  ML=Flattenlist(ML);
+  A=varargin(2);
+  B=varargin(3);
+  if Nargs==3
+    Pt=[0,0];
+  else
+    Pt=varargin(4);
+  end
+  OutL=[];
+  for N=1:length(ML)
+    GL=Op(N,ML);
+    Out=[];
+    for I=1:size(GL,1)
+      Tmp=GL(I,:); 
+      X1=Tmp(1);
+      Y1=Tmp(2);
+      if Tmp==[%inf,%inf]
+        X2=X1;
+        Y2=Y1;
+      else
+        X2=Pt(1)+A*(X1-Pt(1));
+        Y2=Pt(2)+B*(Y1-Pt(2));
+      end
+      Out=[Out;X2,Y2];
+    end;
+    OutL=Mixadd(OutL,Out);
+  end;
+  if length(OutL)==1
+    OutL=Op(1,OutL);
+  end;
+endfunction
+