File: SVDraw.mesa
Last edited by Bier on May 31, 1984 3:02:17 pm PDT
Author: Eric Bier on July 31, 1985 10:22:16 pm PDT
Contents: Some convenience functions to draw shapes not directly available in Cedar Imager
DIRECTORY
Imager,
SV2d;
SVDraw: 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];
END.