diff options
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci')
-rw-r--r-- | texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci | 65 |
1 files changed, 0 insertions, 65 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci b/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci deleted file mode 100644 index ba5b346a..00000000 --- a/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Objpolygon.sci +++ /dev/null @@ -1,65 +0,0 @@ -// s : 2014.06.22 -// 14.09.07 Objjoin added - -function Out=Objpolygon(varargin) - global OBJFIGNO OBJJOIN - Eps=10^(-6); - Args=varargin; - Nargs=length(Args); - Tmp=Args(1); - PtL=Flattenlist(Tmp); - PL=list(); - for J=1:length(PtL) - Tmp=PtL(J); - for K=1:size(Tmp,1) - PL=lstcat(PL,list(Tmp(K,:))) - end; - end; - Sel=Args(Nargs); Nargs=Nargs-1; - Objname(); // 140907 - for J=1:length(PL) - P=PL(J); - if (length(P)<4) | (P(4)==0) then - Np=Writeobjpoint(P); - PL(J)=[P(1:3),Np] - end; - end; - if Nargs==1 then - Tmp=PL(1); - Cen=Tmp(1:3); - Nc=Tmp(4) - else - Tmp=Args(2); - if length(Tmp)==1 then - Tmp1=PL(Tmp); - Cen=Tmp1(1:3); - Nc=Tmp(4) - else - Cen=Tmp; - Nc=Writeobjpoint(Cen) - end; - end; - for J=1:length(PL) - if J<length(PL) then - Je=J+1 - else - Je=1 - end; - Pt1=Cen; - PLj=PL(J); PLje=PL(Je); - Pt2=PLj(1:3); Pt3=PLje(1:3); - if norm(Crossprod(Pt2-Pt1,Pt3-Pt1))<Eps then - continue - end; - P1=sprintf("%1d",Nc); - P2=sprintf("%1d",PLj(4)) - P3=sprintf("%1d",PLje(4)) - if Sel=="+" then // 6.22 - Str="f "+P1+" "+P2+" "+P3+" " - else - Str="f "+P1+" "+P3+" "+P2+" " - end; - Printobjstr(Str) - end; - Out=PL -endfunction |