<> <> <> <> <> <<>> DIRECTORY GGModelTypes, ImagerTransformation; GGBoxSlice: CEDAR DEFINITIONS = BEGIN Slice: TYPE = GGModelTypes.Slice; SliceDescriptor: TYPE = GGModelTypes.SliceDescriptor; SliceClass: TYPE = GGModelTypes.SliceClass; BoundBox: TYPE = GGModelTypes.BoundBox; Corner: TYPE = {none, ll, lr, ul, ur}; -- lower left, lower right, upper left, upper right Edge: TYPE = {none, left, right, top, bottom}; <> <<>> MakeBoxSlice: PROC [box: BoundBox, corner: Corner, transform: ImagerTransformation.Transformation, strokeWidth: REAL _ 1.0] RETURNS [sliceD: SliceDescriptor]; <> BuildBoxSliceClass: PROC [] RETURNS [class: SliceClass]; GetBox: PROC [slice: Slice] RETURNS [box: BoundBox]; END.