<> <> DIRECTORY ImagerBasic USING [Path, IntRectangle], Imager; ImagerPathImpl: CEDAR PROGRAM IMPORTS EXPORTS Imager = BEGIN OPEN ImagerBasic; <> Path: TYPE = ImagerBasic.Path; IntRectangle: TYPE = ImagerBasic.IntRectangle; PathFromIntRectangle: PUBLIC PROC [area: IntRectangle] RETURNS [Path] = { path: Path; RETURN [path]; -- Awaiting M. Plass }; <> <> END.