diff options
author | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2018-02-12 14:52:54 +0900 |
commit | 8c3c49fd56de185396400a0e8a636ac03d8239ab (patch) | |
tree | adf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci | 35 |
1 files changed, 0 insertions, 35 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci deleted file mode 100644 index 7d1993eb..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezier.sci +++ /dev/null @@ -1,35 +0,0 @@ -// 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; |