summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
diff options
context:
space:
mode:
Diffstat (limited to 'texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci')
-rwxr-xr-xtexmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci88
1 files changed, 88 insertions, 0 deletions
diff --git a/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
new file mode 100755
index 00000000..c300cf6e
--- /dev/null
+++ b/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Facesdata0.sci
@@ -0,0 +1,88 @@
+// 09.10.27
+
+function NohiddenL=Facesdata(varargin)
+ global PHHIDDENDATA VELNO VELHI;
+ Nargs=length(varargin);
+ FL=varargin(1);
+ PT=varargin($);
+ if mtlb_findstr(PT,'para')~=[]
+ Ptype=1; //para
+ else
+ Ptype=-1; //pers
+ end;
+ if Nargs==2
+ CLadd=list();
+ else
+ CLadd=varargin(2);
+ end;
+ NohiddenL=list();
+ HiddenL=list();
+ Eps=10^(-4);
+ if length(CLadd)>0
+ if type(CLadd)==1
+ C=list();
+ if size(CLadd,1)>1
+ for I=1:size(CLadd,1)
+ C($+1)=CLadd(I,:);
+ end;
+ else
+ for I=1:3:size(CLadd,2)
+ C($+1)=CLadd(1,I:I+2);
+ end;
+ end;
+ CrvL=list(C);
+ elseif type(CLadd(1))==1
+ CrvL=list();
+ for J=1:length(CL)
+ Ctmp=CLadd(J);
+ C=list();
+ if size(Ctmp,1)>1
+ for I=1:size(Ctmp,1)
+ C($+1)=Ctmp(I,:);
+ end;
+ else
+ for I=1:3:size(Ctmp,2)
+ C($+1)=Ctmp(1,I:I+2);
+ end;
+ end;
+ CrvL($+1)=C;
+ end;
+ else
+ CrvL=CLadd;
+ end;
+ else
+ CrvL=list();
+ end;
+ Out=MakeveLfaceL(FL);
+ VELNO=Out(1);
+ VELHI=list();
+ for I=1:length(CrvL)
+ Tmp=CrvL(I);
+ for J=1:length(Tmp)-1
+ Edge=list(Tmp(J),Tmp(J+1));
+ VELNO($+1)=list(Edge,0);
+ end;
+ end;
+ FaceL=Out(2);
+ if mtlb_findstr(PT,'raw')==[]
+ for Nf=1:length(FaceL)
+ Face=FaceL(Nf);
+ Menkakusi(Face,Nf,Ptype);
+ end;
+ end;
+ for I=1:length(VELNO)
+ Edge=Op(1,VELNO(I));
+ if norm(Edge(1)-Edge(2))>Eps
+ NohiddenL($+1)=Spaceline(Edge);
+ end;
+ end;
+ for I=1:length(VELHI)
+ Edge=Op(1,VELHI(I));
+ if norm(Edge(1)-Edge(2))>Eps
+ HiddenL($+1)=Spaceline(Edge);
+ end;
+ end;
+ PHHIDDENDATA=HiddenL;
+endfunction
+
+