summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci21
1 files changed, 0 insertions, 21 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
deleted file mode 100644
index c39cdadc..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Pointoncrv.sci
+++ /dev/null
@@ -1,21 +0,0 @@
-// 09.10.03
-
-function Out=Pointoncrv(varargin)
- Eps=10^(-4);
- T=varargin(1);
- Gdata=varargin(2);
- if size(T,1)>1
- Tmp=T; T=Gdata; Gdata=Tmp;
- end;
- PtL=Gdata;
- N=Trunc(T+Eps);
- S=max(T-N,0);
- if N==size(PtL,1)
- Out=PtL(N,:);
- else
- Pa=PtL(N,:);;
- Pb=PtL(N+1,:);
- Out=(1-S)*Pa+S*Pb;
- end
-endfunction;
-