diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci deleted file mode 100644 index f57c4961..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci +++ /dev/null @@ -1,40 +0,0 @@ -// -// 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 |