<> <> <> <> <<>> Outline: CEDAR DEFINITIONS = BEGIN <> <> <<>> Handle: TYPE = REF Rec; Rec: TYPE = RECORD [ tValue: REAL, --threshold value for OutLineEdge. Defines black for OutlineBlack* border: INT, --color of pixels outside the window. Usually "white" xStart, yStart, xPixels, yPixels: INT, --window on image. Same as a PixelArray get: PROC[client: REF, x,y: INT] RETURNS[INT], --called to get pixels newEdge: PROC[client: REF, x0,y0,x1,y1: REAL] RETURNS[abort: BOOLEAN _ FALSE], --feedback proc client: REF, --returned to client in get procs above data: REF --private data for the outline procedures ]; <<>> <> <> OutlineEdge: PROC[h: Handle] RETURNS[nOutlines: INT]; <> <> OutlineBlackCenter: PROC[h: Handle] RETURNS[nOutlines: INT]; <> <> OutlineBlackEdge: PROC[h: Handle] RETURNS[nOutlines: INT]; <> <> InvalidID: SIGNAL; GetOutline: PROC [data: REF, newPoint: PROC[x,y: REAL], id: INT]; <> END.