summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci')
-rw-r--r--texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci68
1 files changed, 0 insertions, 68 deletions
diff --git a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
deleted file mode 100644
index a16a5a4d..00000000
--- a/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/MakeveLfaceL.sci
+++ /dev/null
@@ -1,68 +0,0 @@
-// 08.08.22
-// 09.10.25
-// 09.10.26
-// 09.10.27
-// 09.10.29
-
-function Out=MakeveLfaceL(VfL)
- // Out format
- // VeL Edge, Face num(as numlist), VeL num
- // FL Face (Vertexs)
- Eps=10^(-4);
- Tmp=VfL($);
- Tmp1=Tmp(1);
- if type(Tmp1)==1
- FvL=list(VfL);
- else
- FvL=VfL;
- end;
- EL=list(); FL=list();
- for Nn=1:length(FvL)
- Tmp=FvL(Nn);
- VL=Tmp(1);
- if length(VL)>0
- FnL=Tmp(2);
- FaceL=list();
- for I=1:length(FnL)
- Tmp1=FnL(I);
- PtL=list();
- for J=1:length(Tmp1)
- Tmp2=Tmp1(J);
- PtL(J)=VL(Tmp2);
- end;
- FaceL(I)=PtL;
- end;
- else
- FaceL=list(Tmp(2));
- end;
- for I=1:length(FaceL)
- Face=FaceL(I);
- Face($+1)=Face(1);
- FL($+1)=Face;
- for J=1:length(Face)-1
- Edge=list(Face(J),Face(J+1));
- Flg=0;
- for K=1:length(EL)
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=norm(Edge(1)-Tmp1(1))+norm(Edge(2)-Tmp1(2));
- Tmp3=norm(Edge(1)-Tmp1(2))+norm(Edge(2)-Tmp1(1));
- if Tmp2<Eps | Tmp3<Eps
- Tmp=EL(K);
- Tmp1=Tmp(1);
- Tmp2=[Tmp(2),length(FL)];
- EL(K)=list(Tmp1,Tmp2,K);
- Flg=1;
- break;
- end;
- end;
- if Flg==0
- Ntmp=length(EL);
- EL(Ntmp+1)=list(Edge,[length(FL)],Ntmp+1);
- end;
- end;
- end;
- end;
- Out=list(EL,FL);
-endfunction
-