<> <> <> <> DIRECTORY Imager, SV2d; SVDraw: CEDAR DEFINITIONS = BEGIN Point2d: TYPE = SV2d.Point2d; Polygon: TYPE = SV2d.Polygon; Cross: PROC [dc: Imager.Context, originX, originY, length: REAL]; CrossHairs: PROC [dc: Imager.Context, origin: Point2d]; LineSandwich: PROC [dc: Imager.Context, fromX, fromY, toX, toY: REAL]; DrawPolygon: PROC [dc: Imager.Context, poly: Polygon, origin: Point2d, scalar: REAL _ 1]; DrawCaret: PROC [dc: Imager.Context, point: Point2d]; END.