diff options
author | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2017-10-14 11:43:11 +0900 |
commit | dc71274f16f7ff65145e034900f582b62453a033 (patch) | |
tree | a71452364cbe1a03feb6a84cdfd09eedae861590 /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> ketcindy
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, 40 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bowname.sci new file mode 100644 index 00000000..f57c4961 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/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 |