From 138f77fe71e43adc24ecb030d73df81cc5c4eb7e Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Mon, 4 Sep 2017 09:45:51 +0900 Subject: add ketpic --- .../ketlib/ketpic2escifiles6/MakeveLfaceL.sci | 68 ++++++++++++++++++++++ 1 file changed, 68 insertions(+) create mode 100755 texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci') diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci new file mode 100755 index 00000000..a16a5a4d --- /dev/null +++ b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/MakeveLfaceL.sci @@ -0,0 +1,68 @@ +// 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