INTERFACE Tools; (* This interface contain "tools" procedures for tests and others util procedures. Created by L. P. Lozada (see the copyright and authorship futher down). *) IMPORT Map3D, Triangulation; FROM Map3D IMPORT Handle; TYPE Coords = Triangulation.Coords; PROCEDURE PrtDFR(a: Handle); (* Print the Degree Face Ring of handle "a". *) PROCEDURE PrtDER(a: Handle); (* Print the Degree Edge Ring of handle "a". *) PROCEDURE PrtDOV(a: Handle); (* Print the Degree of the vertex that is origin of handle "a". *) (* PROCEDURE PrtDFE(a: Handle); (* Print the Degree Face Edge Ring of "a". *) *) PROCEDURE PrtnextE(a: Handle); PROCEDURE PrtnextF(a: Handle); PROCEDURE PrtOrg(a: Handle); PROCEDURE PrtFaceNum(a: Handle); PROCEDURE PrtEdgeNum(a: Handle); PROCEDURE PrtPnegNum(a: Handle); PROCEDURE PrtPposNum(a: Handle); PROCEDURE PrtNextPneg(a: Handle); (* Print the handles fes (12) with the same Negative Cell, i.e the handles belong to the same tetrahedral cell iff exits. *) PROCEDURE PrtNextPpos(a: Handle); (* Print the handles fes (12) with the same Positive Cell, i.e the handles belong to the same tetrahedral cell iff exits. *) END Tools. (**************************************************************************) (* *) (* Copyright (C) 1999 Universidade Estadual de Campinas (UNICAMP) *) (* *) (* Authors: *) (* L. P. Lozada & J. Stolfi - UNICAMP *) (* *) (* This file can be freely used, distributed, and modified, provided that *) (* this copyright and authorship notice is included in every copy or *) (* derived version. *) (* *) (* DISCLAIMER: This software is offered ``as is'', without any guarantee *) (* as to fitness for any particular purpose. Neither the copyright *) (* holder nor the authors or their employers can be held responsible *) (* for any damages that may result from its use. *) (* *) (**************************************************************************)