summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci40
1 files changed, 40 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
new file mode 100755
index 00000000..f57c4961
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Bowname.sci
@@ -0,0 +1,40 @@
+//
+// 08.08.24
+// 09.08.12
+// 09.08.13
+// 13.11.30 Directon supported
+
+function Bowname(varargin)
+ global BOWMIDDLE;
+ Nargs=length(varargin);
+ Siki=varargin(Nargs);
+ Nargs=Nargs-1; // 13.11.30
+ Dr="c";
+ if Nargs>=1 then
+ Tmp=varargin(Nargs);
+ if type(Tmp)==10
+ Dr=Tmp;
+ Nargs=Nargs-1;
+ end
+ end
+ if Nargs==0 // 13.11.30
+ P=Mixop(1,BOWMIDDLE);
+ elseif Nargs==1 // 13.11.30
+ Bdata=varargin(1);
+ P=Bowmiddle(Bdata);
+ else
+ A=varargin(1); B=varargin(2);
+ D=1/2*Vecnagasa(B-A);
+ Tmp=varargin(3);
+ if type(Tmp)==10
+ H=D*0.2;
+ else
+ H=Tmp*D*0.2;
+ end;
+ H=min(H,D);
+ Ydata=MakeBowdata(A,B,H);
+ Tmp=Bowmiddle(Ydata);
+ P=Mixop(1,Tmp);
+ end
+ Expr(P,Dr,Siki); //13.11.30
+endfunction