<> <> <> DIRECTORY BitBlt USING [DstFunc, SrcFunc], ImagerBasic USING [Visibility] ; ImagerMasks: CEDAR DEFINITIONS ~ BEGIN <> Visibility: TYPE ~ ImagerBasic.Visibility; Mask: TYPE ~ RECORD [ sMin, fMin: INTEGER, sSize, fSize: NAT, refRep: REF MaskRep ]; <> Create: PROC [ runs: PROC[ -- Create calls this back run: PROC[s, fMin: INTEGER, fSize: NAT], -- client calls this from inside runs. repeat: PROC[timesToRepeatScanline: NAT] -- client calls this to repeat a scanline ] ] RETURNS [Mask]; <> NewBitmap: PROC [sMin, fMin: INTEGER, sSize, fSize: NAT] RETURNS [Mask]; <> Box: PROC [sMin, fMin: INTEGER, sSize, fSize: NAT] RETURNS [Mask]; InlineBox: PROC [sMin, fMin: INTEGER, sSize, fSize: NAT] RETURNS [Mask] ~ INLINE {RETURN[[sMin, fMin, sSize, fSize, NIL]]}; <> And: PROC [a, b: Mask] RETURNS [Mask]; Or: PROC [a, b: Mask] RETURNS [Mask]; Difference: PROC [a, b: Mask] RETURNS [Mask]; Shift: PROC [mask: Mask, s, f: INTEGER] RETURNS [Mask]; InlineShift: PROC [mask: Mask, s, f: INTEGER] RETURNS [Mask] ~ INLINE {RETURN[[mask.sMin+s, mask.fMin+f, mask.sSize, mask.fSize, mask.refRep]]}; Bitmap: PROC [mask: Mask] RETURNS [Mask]; <> <> SMin: PROC [mask: Mask] RETURNS [INTEGER] ~ INLINE {RETURN[mask.sMin]}; FMin: PROC [mask: Mask] RETURNS [INTEGER] ~ INLINE {RETURN[mask.fMin]}; SSize: PROC [mask: Mask] RETURNS [CARDINAL] ~ INLINE {RETURN[mask.sSize]}; FSize: PROC [mask: Mask] RETURNS [CARDINAL] ~ INLINE {RETURN[mask.fSize]}; MapRuns: PROC [mask: Mask, run: PROC [s, fMin: INTEGER, fSize: CARDINAL]]; MapBoxes: PROC [mask: Mask, box: PROC [sMin, fMin: INTEGER, sSize, fSize: CARDINAL]]; MapClippedRuns: PROC [mask, clipper: Mask, run: PROC [s, fMin: INTEGER, fSize: CARDINAL]]; MapClippedBoxes: PROC [mask, clipper: Mask, box: PROC [sMin, fMin: INTEGER, sSize, fSize: CARDINAL]]; IsVisible: PROC [mask, clipper: Mask] RETURNS [Visibility]; <> <<= empty => invisible,>> <<= mask => visible,>> < partlyVisible;>> <> <> Function: TYPE ~ RECORD [dstFunc: BitBlt.DstFunc, srcFunc: BitBlt.SrcFunc]; <<[null, null] makes zero bits white, one bits black>> <<[or, null] makes zero bits transparent, one bits black>> <<[and, null] makes zero bits white, one bits black>> <<[and, complement] makes zero bits transparent, one bits white>> <<[xor, null] makes zero bits transparent, one bits inverted>> <> MaskConstant: PROC [dest: Mask, mask: Mask, tile: Mask, phase: NAT, function: Function _ [null, null]]; <> <> <> <> MaskSampled: PROC [dest: Mask, mask: Mask, source: Mask, function: Function _ [null, null]]; <> <> LFDisplay: PROC RETURNS [Mask]; -- a bitmap variant describing the LF display. inkTile: Mask; <> <> MaskRep: TYPE ~ RECORD [ SELECT rep: * FROM bitmap => [ref: REF, pointer: LONG POINTER, rast: CARDINAL, lines: CARDINAL], <> pdruns => [runCount: INT, runGroup: PDRunGroup], <> runs => [index: SEQUENCE length: NAT OF RunBlock], ENDCASE ]; PDRunGroup: TYPE ~ REF PDRunGroupRep; PDRunGroupRep: TYPE ~ RECORD [ rest: PDRunGroup, <> firstPart: SEQUENCE length: NAT OF PDRunRep ]; <> PDRunRep: TYPE ~ MACHINE DEPENDENT RECORD [ fMin(0): CARDINAL, lastRun(1:0..0): BOOLEAN, fSize(1:1..15): NAT ]; RunBlock: TYPE ~ REF RunBlockRep; RunBlockRep: TYPE ~ RECORD [ seq: SEQUENCE length: NAT OF RunRep ]; RunRep: TYPE ~ MACHINE DEPENDENT RECORD [ newLineRepeatCount: CARDINAL, -- zero if the run does not start a new scanline fMin: CARDINAL, fSize: CARDINAL ]; END.