summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
committerNorbert Preining <norbert@preining.info>2018-02-12 14:52:54 +0900
commit8c3c49fd56de185396400a0e8a636ac03d8239ab (patch)
treeadf96aee3f0bfbdc9df3a9e2dd86332a9dfee9cd /texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
parent5a993b26c76714f0810fdc7e3ae7bdc5eb1afd10 (diff)
update ketcindy
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci41
1 files changed, 0 insertions, 41 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
deleted file mode 100644
index 82feeff2..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Projpara.sci
+++ /dev/null
@@ -1,41 +0,0 @@
-// 08.07.11
-// 08.07.15
-// 08.08.12
-// 08.10.28
-
-function CL=Projpara(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=ProjCurve(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=ProjCurve(Mixop(J,Crv));
- CL=Mixadd(CL,Tmp);
- end
- end
- end
- if Mixlength(CL)==1 & Flg==1
- CL=Mixop(1,CL);
- end
-endfunction
-