<> <> <<>> <> <> DIRECTORY; ImagerBasic: CEDAR DEFINITIONS = BEGIN <> Vec: TYPE = RECORD [x, y: REAL]; IntVec: TYPE = RECORD [x, y: INTEGER]; Edge: TYPE = RECORD [a, b: Vec]; IntEdge: TYPE = RECORD [a, b: IntVec]; Rectangle: TYPE = RECORD [x, y, w, h: REAL]; IntRectangle: TYPE = RECORD [x, y, w, h: INTEGER]; <> <> ImagingDevice: TYPE = ATOM; -- i.e. $LF, $CRT8, $CRT24, $PD, $IP, etc. InteractiveImagingDevice: TYPE = ATOM; -- i.e. $LF, $CRT8, $CRT24 <> <> Visibility: TYPE = {visible, partlyVisible, invisible}; <> SourceType: TYPE = { black, white, constant, pixelarray, sampled, functional }; <> <> Path: TYPE = REF PathRep; PathRep: TYPE = RECORD [ generateProc: PROC [ path: Path, move: PROC [Vec], line: PROC [Vec], curve: PROC [Vec, Vec, Vec] ], data: REF ANY ]; <> StrokeEnds: TYPE = {butt, square, round}; <> Font: TYPE = REF; <> END.