DIRECTORY Environment USING [LongNumber], Inline USING [BITOR, BITAND, HighHalf], ImagerBasic USING [Path, IntPair, IntRectangle, PixelArray, Transformation, StrokeEnds], ImagerTransform USING [IntTransform], ImagerDisplay USING [Mask], ImagerDisplayPrivate USING [ContextData], Imager USING [Context]; ImagerDisplayMaskImpl: CEDAR PROGRAM IMPORTS ImagerTransform, Inline EXPORTS Imager = BEGIN OPEN ImagerBasic; NotImplementedYet: PUBLIC SIGNAL = CODE; MaskStroke: PUBLIC PROC [context: Imager.Context, path: Path, width: REAL, strokeEnds: StrokeEnds] = { displayContext: ImagerDisplayPrivate.ContextData = NARROW[context.data]; }; MaskFill: PUBLIC PROC [context: Imager.Context, path: Path] = { displayContext: ImagerDisplayPrivate.ContextData = NARROW[context.data]; }; MaskPixel: PUBLIC PROC [context: Imager.Context, pixelArray: PixelArray] = { displayContext: ImagerDisplayPrivate.ContextData = NARROW[context.data]; }; MoveTo: PUBLIC PROC [context: Imager.Context, p: IntPair] = { displayContext: ImagerDisplayPrivate.ContextData = NARROW[context.data]; displayContext.currentIntPosition _ ImagerTransform.IntTransform[p, displayContext.transform]; }; DrawTo: PUBLIC PROC [context: Imager.Context, p: IntPair] = { displayContext: ImagerDisplayPrivate.ContextData = NARROW[context.data]; q: IntPair _ p; -- hold onto untransformed point p _ ImagerTransform.IntTransform[p, displayContext.transform]; IF displayContext.noClip THEN { OPEN displayContext; deviceProcs.drawLine[currentIntPosition, p, currentPxlValue]; } ELSE IF displayContext.clipper.refRep = NIL -- rectangular? THEN { in: BOOLEAN; a, b: IntPair; [in, a, b] _ ClipEdgeByRectangle[displayContext.clipper, displayContext.currentIntPosition, p]; IF in THEN displayContext.deviceProcs.drawLine[a, b, displayContext.currentPxlValue]; } ELSE ERROR NotImplementedYet[]; -- until paths are worked out - M. Plass? displayContext.currentIntPosition _ p; }; DrawPath: PUBLIC PROC [context: Imager.Context, path: Path] = { }; FillRectangle: PUBLIC PROC [context: Imager.Context, area: IntRectangle] = { }; ClipEdgeByRectangle: PROC [clipper: ImagerDisplay.Mask, a, b: IntPair] RETURNS [BOOLEAN, IntPair, IntPair] = { Out: TYPE = RECORD[bottom, top, left, right: BOOLEAN]; noneOut: Out = [FALSE, FALSE, FALSE, FALSE]; Code: PROC [x, y: INTEGER] RETURNS [Out] = INLINE { OPEN clipper; out: Out _ noneOut; IF x < fMin THEN out.left _ TRUE; IF x > fMin + fSize THEN out.right _ TRUE; IF y < sMin THEN out.bottom _ TRUE; IF y > sMin + sSize THEN out.top _ TRUE; RETURN [ out ]; }; ClipY: PROC [a, b: IntPair, xPos: INTEGER] RETURNS [INTEGER] = INLINE { t: Environment.LongNumber; t.high _ LOOPHOLE[xPos - a.x, UNSPECIFIED]; t.low _ LOOPHOLE[0, UNSPECIFIED]; RETURN[ a.y + LOOPHOLE[ Inline.HighHalf[ LOOPHOLE[t, LONG INTEGER] / (b.x - a.x) * (b.y - a.y)], INTEGER] ]; }; ClipX: PROC [a, b: IntPair, yPos: INTEGER] RETURNS [INTEGER] = INLINE { t: Environment.LongNumber; t.high _ LOOPHOLE[yPos - a.y, UNSPECIFIED]; t.low _ LOOPHOLE[0, UNSPECIFIED]; RETURN[ a.x + LOOPHOLE[ Inline.HighHalf[ LOOPHOLE[t, LONG INTEGER] / (b.y - a.y) * (b.x - a.x)], INTEGER] ]; }; aCode, bCode, out: Out; c: IntPair; WHILE TRUE DO aCode _ Code[a.x, a.y]; bCode _ Code[b.x, b.y]; IF Inline.BITOR[LOOPHOLE[aCode, UNSPECIFIED], LOOPHOLE[bCode, UNSPECIFIED]] = LOOPHOLE[0, UNSPECIFIED] THEN RETURN[TRUE, a, b]; IF Inline.BITAND[LOOPHOLE[aCode, UNSPECIFIED], LOOPHOLE[bCode, UNSPECIFIED]] # LOOPHOLE[0, UNSPECIFIED] THEN RETURN[ FALSE, a, b]; out _ IF aCode # noneOut THEN aCode ELSE bCode; SELECT TRUE FROM out.left => { c.x _ clipper.fMin; c.y _ ClipY[a, b, c.x]; }; out.right => { c.x _ clipper.fMin + clipper.fSize; c.y _ ClipY[a, b, c.x]; }; out.bottom => { c.y _ clipper.sMin; c.x _ ClipX[a, b, c.y]; }; out.top => { c.y _ clipper.sMin + clipper.sSize; c.x _ ClipX[a, b, c.y]; } ENDCASE; IF aCode = out THEN a _ c ELSE b _ c; ENDLOOP; ERROR; -- can't get here, supposedly }; END. ЪImagerDisplayMaskImpl.mesa Last Edited by: Crow, July 15, 1983 11:36 am Client Procedures (exported to Imager) Form a stencil of "width" thickness around a spine defined by "path". Connected path segments will be mitered together. If the first and last points of a trajectory coincide, the path will be closed and mitered. Use the path to outline an area to be filled with the source Use the supplied pixel array as the stencil. The origin of the pixel array will be placed at the origin of the client space. The samples will be assumed to be placed at one unit intervals in the client space. Fast Track. The width of lines, etc. is device dependent, approximately .1% page height. Imager.SetIntCP[context, p]; Draw line using source for color Draw whole path using source for color Fill rectangular area with source Internal Procedures Trivial acceptance test Trivial rejection test Actual clipping necessary Э╩HШheadЩJЩ-Ъ╧k Ш JЪЬЭЬШ!JЪЬЭЬЭЬЭЬШ+JЪЬЭЬ+Ш>JЪЬ%Ш%JЪЬЭЬШ%JЪЬЭЬ ШJЪЬЭЬШ)JЪЬ ЭЬШЧЧЪЬЭ Ш$JЪЭЬШJЪЭЬШJШJЪЬЭЬЭЬ ШJШJЪЬЭЬЭЬЭЬШ(ЧЩ&Ъ╧n ЬЭЬ.ЭЬШfЪЬEЩEJЪЬОЩОЧJЪЬ3ЭЬШHJЪЬШJЩЧunitЪЮЬЭЬ)Ш?JЩШ>JЪЭЬШЪЭЬЭЬШJЪЬBШBЧЪЭЬЭЬ!ЭЬЯШBЪЭЬЭЬШ"JЪЬ8Ш8JЪЬ0Ш0JЪЭЬЭЬ*Ш4JЪЬ+Ш+JШЧJЪЭЬЭЬЯ)ШLЧJЪЬ&Ш&JЪЬШЧЪЮЬЭЬ*Ш?JЩ&JЪЬШЧЪЮ ЬЭЬ1ШLJЩ!JЪЬШЧЧЩLЪЮЬЭЬ.ШGЪЬЭЬЭЬШ0JЪЬЭЬЭЬЭЬШ6JЪ ЬЭЬЭЬЭЬЭЬШ,Ъ ЮЬЭЬЭЬЭЬ ЭЬШ3JЪЭЬ Ш JЪЬШJЪЭЬЭЬЭЬЭЬЭЬ ЭЬШOJЪЭЬ ЭЬЭЬЭЬЭЬЭЬШLJЪЭЬ ШJШЧЪЮЬЭЬЭЬЭЬЭЬЭЬШGJЪЬШJЪ Ь ЭЬ ЭЬЭЬЭЬШNЪЭЬ ЭЬШJЪ ЬЭЬЭЬЭЬ ЭЬШTЧJШЧЪЮЬЭЬЭЬЭЬЭЬЭЬШGJЪЬШJЪ Ь ЭЬ ЭЬЭЬЭЬШNЪЭЬ ЭЬШJЪ ЬЭЬЭЬЭЬ ЭЬШTЧJШЧJЪЬШJЪЬШЪЭЬЭЬЭШ ЪЬ0Ш0JЩЧJЪЭЬ ЭЬЭЬЭЬЭЬЭЬШLJЪЬЭЬЭЬШЪЭЬЭЬЭЬШJЩЧJЪЭЬЭЬЭЬЭЬЭЬЭЬШLJЪЬЭ ЬЭЬШЪЭЬЭЬЭЬШJЩЧJЪЬЭЬЭЬЭЬШ0JЪЭЬЭЬЭШJЪЬ#Ш#JЪЬ Ш JЪЬ4Ш4JЪЬ Ш JЪЬ%Ш%JЪЬ Ш JЪЬ2Ш2JЪЬШJЪЭЬШJЪЭЬ ЭЬЭЬШ%ЧJЪЭЬШJЪЭЬЯШ(JЪЬШJШЧJЪЭЬШЧЧЕЧ╪║