ImplicitDebug.mesa
Copyright © 1992 by Xerox Corporation. All rights reserved.
Bloomenthal, December 27, 1992 12:51 pm PST
DIRECTORY G3dTriangle, IO, ImplicitCubeTet, ImplicitStorage, Rope;
ImplicitDebug: CEDAR DEFINITIONS
~ BEGIN
Debugging
Debug:   TYPE ~ RECORD [
out:      IO.STREAM ¬ NIL,       -- for printing
triangles:     REF G3dTriangle.Triangles ¬ NIL,   -- original triangle mesh
segments:     REF G3dTriangle.Segments ¬ NIL,   -- border of triangle mesh
vertices:     ImplicitStorage.Vertices ¬ NIL,    -- generated vertices
edges:      REF ImplicitStorage.Edges ¬ NIL,   -- hash table for edges
faces:      REF ImplicitStorage.Faces ¬ NIL,   -- hash table for tet faces
inCube:     REF G3dTriangle.Triangles ¬ NIL,   -- triangles in current cube
inTet:      REF G3dTriangle.Triangles ¬ NIL,   -- triangles in current tet
tet:      REF ImplicitCubeTet.Tetrahedron ¬ NIL, -- current tetrahedron
output:     REF G3dTriangle.IntTriples ¬ NIL   -- generated triangles
];  
SetDebug: PROC [debug: Debug];
Set global debugging record.
GetDebug: PROC RETURNS [Debug];
Return a previously set global debugging record.
Write: PROC [message: Rope.ROPE];
Write message to globalDebug.out, if non-NIL.
END.