GGBoundBox.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Last edited by Bier on July 28, 1985 4:34:45 pm PDT
Contents: Procedures for creating and combining bounding boxes for refresh efficiency.
DIRECTORY
GGModelTypes,
GGInterfaceTypes,
Imager;
GGBoundBox: CEDAR DEFINITIONS =
BEGIN
BoundBox: TYPE = GGModelTypes.BoundBox;
GargoyleData: TYPE = GGInterfaceTypes.GargoyleData;
Outline: TYPE = GGModelTypes.Outline;
Segment: TYPE = GGModelTypes.Segment;
Sequence: TYPE = GGModelTypes.Sequence;
Traj: TYPE = GGModelTypes.Traj;
CreateBoundBox: PROC [loX, loY, hiX, hiY: REAL] RETURNS [bBox: BoundBox];
CopyBoundBox: PROC [bBox: BoundBox] RETURNS [copy: BoundBox];
BoundBoxOfTraj:
PROC [traj: Traj]
RETURNS [bBox: BoundBox];
Computes it.
EnlargeBoundBox: PROC [bBox: BoundBox, by: BoundBox];
AdjustForJoints: PROC [bBox: BoundBox];
BoundBoxOfBoxes: PROC [list: LIST OF BoundBox] RETURNS [bigBox: BoundBox];
BoundBoxOfSelected: PROC [gargoyleData: GargoyleData] RETURNS [bigBox: BoundBox];
DrawBoundBox: PROC [dc: Imager.Context, bBox: BoundBox];
Clip: PROC [dc: Imager.Context, bBox: BoundBox];
END.