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/Bezierpt.sci | |
parent | 5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff) |
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci deleted file mode 100644 index ac639249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci +++ /dev/null @@ -1,39 +0,0 @@ -// 15.01.01 -// 15.02.08 for 3d - -function Out=Bezierpt(t,Ptlist,Ctrlist) - if length(Ptlist)==6 then // 3d 15.02.08 - P0=Ptlist(1:3); - P3=Ptlist(4:6); - P1=Ctrlist(1:3); - if length(Ctrlist)==3 then - P2=P3; - flg3=0; - else - P2=Ctrlist(4:6); - flg3=1; - end; - else - P0=Ptlist(1:2); - P3=Ptlist(3:4); - P1=Ctrlist(1:2); - if length(Ctrlist)==2 then - P2=P3; - flg3=0; - else - P2=Ctrlist(3:4); - flg3=1; - end; - end; - P4=(1-t)*P0+t*P1; - P5=(1-t)*P1+t*P2; - P6=(1-t)*P2+t*P3; - P7=(1-t)*P4+t*P5; - P8=(1-t)*P5+t*P6; - P9=(1-t)*P7+t*P8; - if flg3==0 then - Out=P7; - else - Out=P9; - end; -endfunction; |