diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci new file mode 100644 index 00000000..7d1993eb --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezier.sci @@ -0,0 +1,35 @@ +// 15.01.01 + +function Out=Bezier(varargin) + Nargs=length(varargin); + Ptlist=varargin(1); + Ctrlist=varargin(2); + Num=10; + for J=3:Nargs + Tmp=varargin(J); + K=mtlb_findstr(Tmp,'='); + Tmp1=strsplit(Tmp,[K-1,K]); + Tmp2=ascii(Tmp1(1,1)); + Lhs=char(Tmp2(1)); + if Lhs=="N" then + Num=evstr(Tmp1(3,1)); + end; + end; + if length(Num)==1 + Num=Num*ones(1:length(Ctrlist)) + end; + Out=[]; + for ii=1:length(Ctrlist) + Tmp1=[Ptlist(ii),Ptlist(ii+1)]; + Tmp2=Ctrlist(ii); + if ii==1 then + St=0 + else + St=1 + end; + for J=St:Num(ii) + Tmp=Bezierpt(J/Num(ii),Tmp1,Tmp2); + Out=[Out;Tmp]; + end; + end; +endfunction; |