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/Bezierpt.sci | |
parent | aecda53b09be64698e9e5dcbf40f0fe289b37e2e (diff) |
rename and update ketpic -> 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, 39 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci new file mode 100644 index 00000000..ac639249 --- /dev/null +++ b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Bezierpt.sci @@ -0,0 +1,39 @@ +// 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; |