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.   þ  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).Draws a side x side square centered on center.Draws the indicated rectangle (not filled).Draws a one-pixel square with lower left corner at point.The left-hand corner of the rect is on point.Draws a line all the way across the screen.Draw a short line (1 inch) centered on point, parallel to line. Êj  ˜ Ihead1™J™0J™5J™RJ˜ šÏk	˜	J˜Jšœ˜J˜ —Jšœ
œœ˜Jš˜J˜ Jšœœ˜#Jšœœ˜#Jšœœ˜Jšœœ˜!Jšœœ˜#J˜ JšÏn
œœ+œ˜Ašžœœ%˜3J™.—šžœœ*œ˜CJ™+—Jšž	œœ$˜3Jšž
œœ$˜4J˜ šžœœ$˜2J™9—šžœœ*œ˜DJ™-—šžœœ"˜0J™+—Jšžœœ0˜Dšž
œœ&˜6J™?—J˜ Jšž	œœ$˜3Jšžœœ$˜;J˜ Jšœ˜— …—    ¸     