summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Bezierpt.sci39
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;