<> <> <> <> <> <<>> DIRECTORY GGModelTypes, ImagerTransformation; GGBoxCluster: CEDAR DEFINITIONS = BEGIN Cluster: TYPE = GGModelTypes.Cluster; ClusterDescriptor: TYPE = GGModelTypes.ClusterDescriptor; ClusterClass: TYPE = GGModelTypes.ClusterClass; 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}; <> <<>> <> <<>> MakeBoxCluster: PROC [box: BoundBox, corner: Corner, transform: ImagerTransformation.Transformation] RETURNS [clusD: ClusterDescriptor]; <> BuildBoxClusterClass: PROC [] RETURNS [class: ClusterClass]; GetBox: PROC [cluster: Cluster] RETURNS [box: BoundBox]; SetBox: PROC [cluster: Cluster, box: BoundBox]; END.