<> <> <> DIRECTORY Imager, Rope; Draw2d: CEDAR DEFINITIONS ~ BEGIN <> Context: TYPE ~ Imager.Context; VEC: TYPE ~ Imager.VEC; -- RECORD [x, y: REAL] DrawType: TYPE ~ {solid, dash, dot}; MarkType: TYPE ~ {cross, x, asterisk, dot, none}; PixelProc: TYPE ~ PROC [x, y: INTEGER, data: REF ANY _ NIL]; <> Clear: PROC [context: Context, width, height: INTEGER]; <> <<>> InitFont: PROC [context: Context]; <> <<>> Label: PROC [context: Context, vec: VEC, rope: Rope.ROPE]; <> <<>> DoWithBuffer: PROC [context: Context, width, height: INTEGER, action: PROC]; <> <> Line: PROC [context: Context, vec0, vec1: VEC, drawType: DrawType _ solid]; <> <> <> <<>> DoWithLine: PUBLIC PROC [vec0, vec1: VEC, pixelProc: PixelProc]; <> <> Mark: PROC [context: Context, vec: VEC, markType: MarkType _ cross]; <> <<>> Square: PROC [context: Context, vec: VEC, size: REAL]; <> <<>> Arrow: PROC [context: Context, tail, head: VEC, vary: BOOL _ TRUE]; <> <<>> END.