DIRECTORY Imager; Lines2dTypes: CEDAR DEFINITIONS = BEGIN Point: TYPE = Imager.VEC; Edge: TYPE = REF EdgeObj; EdgeObj: TYPE = RECORD [ line: Line, -- the line which passes through the endpoints of this edge startIsFirst: BOOL, start, end: Point]; Line: TYPE = REF LineObj; LineObj: TYPE = RECORD [ theta: REAL, -- angle in (-pi..pi] d: REAL, -- distance from line to origin c: REAL, -- cos(theta). Cached for convenience. s: REAL, -- sin(theta). Cached for convenience. slope: REAL, yInt: REAL -- for historical (Solidviews) reasons ]; Ray: TYPE = REF RayObj; RayObj: TYPE = RECORD [ p: Point, d: Vector]; Vector: TYPE = Imager.VEC; END. z Lines2dTypes.mesa Copyright Σ 1986, 1992 by Xerox Corporation. All rights reserved. Last edited by Bier on February 18, 1987 1:09:16 pm PST Contents: Type definitions for the Lines2d package. Line equation of the form: y*cos(theta) - x*sin(theta) -d = 0, where theta is the angle which the line makes with the x axis and d is the distance from the line to the origin. Κ£•NewlineDelimiter –(cedarcode) style™codešœ™Kšœ Οeœ6™BKšœ7™7Kšœ4™4K™—šΟk ˜ Kšœ˜—K˜Kšœžœž œ˜!Kšž˜Kšœžœ žœ˜Kšœžœžœ ˜šœ žœžœ˜Kšœ Οc;˜GKšœžœ˜Kšœ˜—K˜Kšœžœžœ ˜šœ žœžœ˜Kšœ>™>Kšœp™pKšœžœŸ˜"KšœžœŸ˜(KšœžœŸ'˜0KšœžœŸ'˜0Kšœžœ˜ KšœžœŸ&˜1K˜—Kšœžœžœ˜šœžœžœ˜K˜ K˜ K˜—Kšœžœ žœ˜K˜Kšžœ˜K˜—…—†£