DIRECTORYImager,SV2d;PadGraphics: DEFINITIONS =BEGINPath: TYPE = SV2d.Path;Point2d: TYPE = SV2d.Point2d;Polygon: TYPE = SV2d.Polygon;Vector2d: TYPE = SV2d.Vector2d;ScreenToPad: PROC [screenPoint: Point2d, origin: Point2d, scalar: REAL _ 1] RETURNS [padPoint: Point2d];PadToScreen: PROC [padPoint: Point2d, origin: Point2d, scalar: REAL _ 1] RETURNS [screenPoint: Point2d];MoveTo: PROC [dc: Imager.Context, padPoint: Point2d, origin: Point2d];DrawTo: PROC [dc: Imager.Context, padPoint: Point2d, origin: Point2d];MirrorMoveTo: PROC [dc: Imager.Context, padPoint: Point2d, origin: Point2d];MirrorDrawTo: PROC [dc: Imager.Context, padPoint: Point2d, origin: Point2d];DrawPathNeighborHood: PROC [dc: Imager.Context, path: Path, index: NAT, origin: Point2d];MirrorDrawPathNeighborHood: PROC [dc: Imager.Context, path: Path, index: NAT, origin: Point2d];DrawPolyNeighborHood: PROC [dc: Imager.Context, poly: Polygon, index: NAT, origin: Point2d];MirrorDrawPolyNeighborHood: PROC [dc: Imager.Context, poly: Polygon, index: NAT, origin: Point2d];DrawPath: PROC [dc: Imager.Context, path: Path, origin: Point2d, scalar: REAL _ 1];DrawPolygon: PROC [dc: Imager.Context, poly: Polygon, origin: Point2d, scalar: REAL _ 1];CrossHairs: PROC [dc: Imager.Context, origin: Point2d];DrawSquare: PROC [dc: Imager.Context, side: REAL, center: Point2d, origin: Point2d];MirrorDrawSquare: PROC [dc: Imager.Context, side: REAL, center: Point2d, origin: Point2d];Draw2dVector: PROC [dc: Imager.Context, vec: Vector2d, at: Point2d, origin: Point2d];Circle: PROC [dc: Imager.Context, originX, originY, radius: REAL];LineSandwich: PROC [dc: Imager.Context, fromX, fromY, toX, toY: REAL];END.   º  File: PadGraphics.mesaLast edited by Bier on May 31, 1984 4:30:06 pm PDTAuthor: Eric Bier on July 29, 1984 2:31:43 pm PDTContents: Simple 2d graphics package for the scratchpadÊì  –"cedar" style˜ Iheadšœ™Iprocšœ2™2Lšœ1™1Lšœ7™7L˜ šÏk	˜	Lšœ˜Lšœ˜—L˜ Lšœœ˜L˜ Lš˜˜ Lšœœ˜Lšœ	œ˜Lšœ	œ˜Lšœ
œ˜L˜ —LšÏnœœ1œœ˜hLšžœœ.œœ˜hL˜ Lšžœœ:˜FLšžœœ:˜FLšžœœ:˜LLšžœœ:˜LLšžœœ)œ˜YLšžœœ)œ˜_Lšžœœ,œ˜\Lšžœœ,œ˜bLšžœœ;œ˜SLšžœœ>œ˜YLšž
œœ'˜7Lšž
œœœ$˜TLšžœœœ$˜ZL˜ LšžœœC˜UJšžœœ0œ˜BJšžœœ.œ˜FL˜ L˜ Lšœ˜— …—    ¦  	L  