<<>> <> <> <> <> <<>> DIRECTORY ImagerDevice USING [ClipWorksProc, Device, DeviceClipper, EasyMetrics, MaskFillWorksProc, MaskRectangleWorksProc, MaskStrokeWorksProc, MaskVectorWorksProc, MaskDashedStrokeWorksProc, MaskBitmapWorksProc, MaskPixelArrayWorksProc, MaskBoxesWorksProc, MaskCharMaskWorksProc, ShowWorksProc], ImagerPath USING [PathProc], ImagerTransformation USING [Transformation], SF USING [Box, BoxGenerator]; ImagerDeviceWorks: CEDAR DEFINITIONS ~ BEGIN OPEN ImagerDevice; <> BoxesFromPath: PROC [ action: PROC [bounds: SF.Box, boxGenerator: SF.BoxGenerator], path: ImagerPath.PathProc, oddWrap: BOOL, pathToDevice: ImagerTransformation.Transformation, clipper: DeviceClipper ]; <> Clip: ClipWorksProc ~ INLINE { device.works.Clip[device, viewClipper, clipperToDevice, clientClipper] }; MaskFill: MaskFillWorksProc ~ INLINE { device.works.MaskFill[device, path, oddWrap, pathToDevice] }; MaskRectangle: MaskRectangleWorksProc ~ INLINE { device.works.MaskRectangle[device, rectangle, rectangleToDevice] }; MaskStroke: MaskStrokeWorksProc ~ INLINE { device.works.MaskStroke[device, path, closed, pathToDevice, end, joint, miterLimit, pen] }; MaskVector: MaskVectorWorksProc ~ INLINE { device.works.MaskVector[device, p1, p2, pointsToDevice, end, pen] }; MaskDashedStroke: MaskDashedStrokeWorksProc ~ INLINE { device.works.MaskDashedStroke[device, path, patternLen, pattern, offset, length, closed, pathToDevice, end, joint, miterLimit, pen] }; MaskBitmap: MaskBitmapWorksProc ~ INLINE { device.works.MaskBitmap[device, bitmap, bitsToDevice] }; MaskPixelArray: MaskPixelArrayWorksProc ~ INLINE { device.works.MaskPixelArray[device, bitmap, clientToDevice] }; MaskBoxes: MaskBoxesWorksProc ~ INLINE { device.works.MaskBoxes[device, bounds, boxes] }; MaskCharMask: MaskCharMaskWorksProc ~ INLINE { RETURN [device.works.MaskCharMask[device, charMask, cp]] }; Show: ShowWorksProc ~ INLINE { device.works.Show[device, fontAtom, string, cp, hardChar, hardMetrics, easyMetrics, noImage] }; <> <> <<>> StandardClip: ClipWorksProc; StandardMaskFill: MaskFillWorksProc; StandardMaskRectangle: MaskRectangleWorksProc; StandardMaskStroke: MaskStrokeWorksProc; StandardMaskVector: MaskVectorWorksProc; StandardMaskDashedStroke: MaskDashedStrokeWorksProc; StandardMaskBitmap: MaskBitmapWorksProc; StandardMaskPixelArray: MaskPixelArrayWorksProc; StandardMaskBoxes: MaskBoxesWorksProc; StandardMaskCharMask: MaskCharMaskWorksProc; StandardShow: ShowWorksProc; END.