<> <> <> <> DIRECTORY GGModelTypes, Imager; GGShapes: CEDAR DEFINITIONS = BEGIN Camera: TYPE = GGModelTypes.Camera; Circle: TYPE = GGModelTypes.Circle; Line: TYPE = GGModelTypes.Line; Point: TYPE = GGModelTypes.Point; Vector: TYPE = GGModelTypes.Vector; DrawSquare: PROC [dc: Imager.Context, center: Point, side: REAL]; DrawPlus: PROC [dc: Imager.Context, center: Point]; <> DrawRectangle: PROC [dc: Imager.Context, loX, loY, hiX, hiY: REAL]; <> DrawCaret: PROC [dc: Imager.Context, point: Point]; DrawAnchor: PROC [dc: Imager.Context, point: Point]; DrawSpot: PROC [dc: Imager.Context, point: Point]; <> DrawFilledRect: PROC [dc: Imager.Context, point: Point, side: REAL]; <> DrawLine: PROC [dc: Imager.Context, line: Line]; <> DrawLittleLine: PROC [dc: Imager.Context, line: Line, point: Point]; DrawCircle: PROC [dc: Imager.Context, circle: Circle]; <> DrawJoint: PROC [dc: Imager.Context, point: Point]; DrawSelectedJoint: PROC [dc: Imager.Context, point: Point]; END.