GGShapes.mesa
Author: Eric Bier on June 7, 1985 4:47:32 pm PDT
Last edited by Bier on August 16, 1985 1:52:38 pm PDT
Contents: Predefined shapes for use in Gargoyle (e.g. squares for control points).
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];
Draws a side x side square centered on center.
DrawRectangle:
PROC [dc: Imager.Context, loX, loY, hiX, hiY:
REAL];
Draws the indicated rectangle (not filled).
DrawCaret: PROC [dc: Imager.Context, point: Point];
DrawAnchor: PROC [dc: Imager.Context, point: Point];
DrawSpot:
PROC [dc: Imager.Context, point: Point];
Draws a one-pixel square with lower left corner at point.
DrawFilledRect:
PROC [dc: Imager.Context, point: Point, side:
REAL];
The left-hand corner of the rect is on point.
DrawLine:
PROC [dc: Imager.Context, line: Line];
Draws a line all the way across the screen.
DrawLittleLine: PROC [dc: Imager.Context, line: Line, point: Point];
DrawCircle:
PROC [dc: Imager.Context, circle: Circle];
Draw a short line (1 inch) centered on point, parallel to line.
DrawJoint: PROC [dc: Imager.Context, point: Point];
DrawSelectedJoint: PROC [dc: Imager.Context, point: Point];
END.