summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci39
1 files changed, 0 insertions, 39 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
deleted file mode 100644
index b43451a9..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Projpers.sci
+++ /dev/null
@@ -1,39 +0,0 @@
-// 08.08.12
-// 08.10.28
-
-function CL=Projpers(varargin)
- Nargs=length(varargin);
- Flg=0;
- if Nargs==1 & Mixtype(varargin(1))==1
- Flg=1;
- end;
- CL=[];
- for N=1:Nargs
- Crv=varargin(N);
- if Mixtype(Crv)==1
- Tmp=CameraCurve(Crv);
- CL=Mixadd(CL,Tmp);
- else
- if Mixtype(Crv)==3
- ObjL=[];
- for I=1:Mixlength(Crv)
- Tmp1=Mixop(I,Crv);
- if Mixtype(Tmp1)==1
- ObjL=Mixadd(ObjL,Tmp1);
- else
- ObjL=Mixjoin(ObjL,Tmp1);
- end;
- end;
- Crv=ObjL;
- end;
- for J=1:Mixlength(Crv)
- Tmp=CameraCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-