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. °GGShapes.mesa Author: Eric Bier on June 7, 1985 4:47:32 pm PDT Last edited by Bier on July 22, 1986 3:26:47 pm PDT Contents: Predefined shapes for use in Gargoyle (e.g. squares for control points). Pier, August 25, 1986 5:05:57 pm PDT Draws the indicated rectangle (not filled). The left-hand corner of the rect is on point. Draws a side x side square centered on center. Draws a one-pixel square with lower left corner at point. Draws a line all the way across the screen. Draw a short line (1 inch) centered on point, parallel to line. The arrowhead will fit in a box of size height by (halfWidth*2). Pier, December 5, 1985 10:19:58 am PST changes to: removed camera from defs. ΚΗ˜Icode™ K™0K™3™RK™$—K˜šΟk ˜ Kšœ=˜=K˜—Kšœ œ œ˜#K˜Kšœœ˜#Kšœœ˜Kšœœ˜!Kšœœ˜#Kšœœ#˜7K˜šΟn œœ*œœ˜\K™+—šžœœ*œ˜DK™-—Kšž œœ+œœ˜ZK˜Kšž œœ$˜3Kšž œœ$˜4K˜šžœœ%˜3K™.—šžœœ$˜2K™9—šžœœZœ˜tK™+—šžœœ0˜DK™?—Kšž œœ&˜6K˜Kšž œœ$˜3Kšžœœ$˜0KšžœœA˜XK˜Kšž œœ<œ˜Qš ž œœœœœ˜FKšœ@™@—K˜Kšœ˜™&Kšœ Οr™%—K™—…—R Ι