diff options
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci')
-rw-r--r-- | texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci | 39 |
1 files changed, 0 insertions, 39 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci deleted file mode 100644 index ac639249..00000000 --- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/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; |