// 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