DIRECTORY GGBasicTypes, GGModelTypes; GGBuiltinShapes: CEDAR DEFINITIONS = BEGIN Outline: TYPE = GGModelTypes.Outline; Point: TYPE = GGBasicTypes.Point; Slice: TYPE = GGModelTypes.Slice; PolygonInCircle: PROC [sideCount: NAT, origin: Point, radius: REAL] RETURNS [outline: Outline]; Circle: PROC [origin: Point, radius: REAL] RETURNS [slice: Slice]; Box: PROC [origin: Point, sideLength: REAL] RETURNS [slice: Slice]; Polygon: PROC [sideCount: NAT, origin: Point, sideLength: REAL] RETURNS [outline: Outline]; KnotchedLine: PROC [p0, p1: Point, segmentCount: NAT] RETURNS [outline: Outline]; END. nGGBuiltinShapes.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Last edited by Bier on June 23, 1986 Contents: The regular polygons and other commonly requested shapes. The bottom-most edge of the returned polygon will be horizontal. The polygon will be inscribed inside a circle centered at "origin". Each side of the polygon will have length "sideLength". Returns a trajectory with "segmentCount" straight line segments, all of the same length. The entire trajectory is a single straight line, from point p0 to p1. All of its segments are collinear. Knotched lines are useful as rulers. Κ"˜J˜Icodešœ™Kšœ Οmœ1™