<> <> <> <> <> DIRECTORY GGBasicTypes, GGInterfaceTypes, Imager, ImagerTransformation; GGShapes: CEDAR DEFINITIONS = BEGIN Circle: TYPE = GGBasicTypes.Circle; Line: TYPE = GGBasicTypes.Line; Point: TYPE = GGBasicTypes.Point; Vector: TYPE = GGBasicTypes.Vector; SelectionClass: TYPE = GGInterfaceTypes.SelectionClass; DrawRectangle: PROC [dc: Imager.Context, loX, loY, hiX, hiY: REAL, strokeWidth: REAL _ 1.0]; <> DrawFilledRect: PROC [dc: Imager.Context, point: Point, side: REAL]; <> DrawSquare: PROC [dc: Imager.Context, center: Point, side: REAL, strokeWidth: REAL _ 1.0]; DrawCaret: PROC [dc: Imager.Context, point: Point]; DrawAnchor: PROC [dc: Imager.Context, point: Point]; DrawPlus: PROC [dc: Imager.Context, center: Point]; <> DrawSpot: PROC [dc: Imager.Context, point: Point]; <> DrawLine: PROC [dc: Imager.Context, line: Line, clippedBy: ImagerTransformation.Rectangle, strokeWidth: REAL _ 1.0]; <> DrawLittleLine: PROC [dc: Imager.Context, line: Line, point: Point]; <> DrawCircle: PROC [dc: Imager.Context, circle: Circle]; DrawJoint: PROC [dc: Imager.Context, point: Point]; DrawCP: PROC [dc: Imager.Context, point: Point]; DrawSelectedJoint: PROC [dc: Imager.Context, point: Point, selectClass: SelectionClass]; DrawArrow: PROC [dc: Imager.Context, tip: Point, base: Point, strokeWidth: REAL]; ArrowSize: PROC [strokeWidth: REAL] RETURNS [height, halfWidth: REAL]; <> END. <> <> <<>>