DIRECTORYImagerBasic				USING [IntRectangle, IntPair],Imager					USING [Context],ImagerTransform		USING [TransformIntRectangle],ImagerDisplay			USING [Mask, ContextData];ImagerDisplayInteractiveImpl: CEDAR PROGRAMIMPORTS ImagerTransformEXPORTS Imager, ImagerDisplay= BEGIN OPEN ImagerBasic;NonRectangularClipper: PUBLIC SIGNAL = CODE;MoveSurfaceRectangle: PUBLIC PROC [context: Imager.Context, source: IntRectangle, 					dest: IntPair] RETURNS [BOOLEAN] = {		-- Client's way to use BitBltdata: REF _ context.data;destRect: IntRectangle _ [ dest.x, dest.y, source.w, source.h];WITH data SELECT FROMdisplayContext: ImagerDisplay.ContextData => {source _RectClip[ImagerTransform.TransformIntRectangle[source, displayContext.transform],displayContext.clipper];destRect _ RectClip[ImagerTransform.TransformIntRectangle[destRect, displayContext.transform],displayContext.clipper];displayContext.deviceProcs.MovePxls[ displayContext,[ source.x, source.y, MIN[source.w, destRect.w], MIN[source.h, destRect.h] ],[ destRect.x, destRect.y ] ];RETURN [TRUE];};ENDCASE => RETURN [FALSE];								-- No-op if not display device};SetColorInvert: PUBLIC PROC [context: Imager.Context] = {};DrawBitmap: PUBLIC PROC [context: Imager.Context, base: LONG POINTER, raster: CARDINAL, area: IntRectangle] = {}; SpecialOp: PUBLIC PROC [context: Imager.Context, op: ATOM, data: REF] RETURNS [BOOLEAN] = {RETURN [ FALSE ];};HighlightIntRectangle: PUBLIC PROC [context: Imager.Context, area: IntRectangle] = {data: REF _ context.data;WITH data SELECT FROMdisplayContext: ImagerDisplay.ContextData => {};ENDCASE;													-- No-op if not display device};RectClip: PROC[rect: IntRectangle, clipper: ImagerDisplay.Mask]  RETURNS[IntRectangle] = {IF clipper.refRep = NIL THEN { sMax, fMax, fMin, sMin, fSize, sSize: INTEGER;fMin _ MAX[clipper.fMin, rect.x];sMin _ MAX[clipper.sMin, rect.y];    fMax _ MIN[clipper.fMin + clipper.fSize, rect.x + rect.w];sMax _ MIN[clipper.sMin + clipper.sSize, rect.y + rect.h];fSize _ IF fMax > fMin THEN fMax - fMin + 1 ELSE 0;sSize _ IF sMax > sMin THEN sMax - sMin + 1 ELSE 0;RETURN [ [fMin, sMin, fSize, sSize] ];}ELSE ERROR NonRectangularClipper[];};END.   "  ImagerDisplayInteractiveImpl.mesaLast Edited by: Crow, August 29, 1983 12:22 pmClient Procedures (exported to Imager)These operations may not work on all devices, will no-op on noninteractive devices.Display Procedures (exported to ImagerDisplay)Fast TrackInternal ProceduresЭ╩ш  Ш IheadЩ!Ш JЩ/Ъ╧k	Ш	JЪЬЭЬШ-JЪЬЭЬШJЪЬЭЬШ/JЪЬЭЬШ*ЧЧЪЬЭШ+JЪЭЬШJЪЭЬШJШ JЪЬЭЬЭЬШJШ JЪЬЭЬЭЬЭЬШ,ЧЪЬ&Щ&JЩSIunitЪ╧nЬЭЬЭЬ1ШRaЪЬЭЬЭЬ╧cШHJЪЬЭЬШJЪЬ?Ш?LЪЭЬЭЬЭШЪЬ.Ш.ЪЬШIcЪЬHШHNЪЬШЧЪЬШJЪЬJШJJЪЬШЧЪЬ4Ш4JЪЬЭЬЭЬШMJЪЬШЧJЪЭЬЭЬШJЪЬШЧJЪЭЬЭЬЭЬЯ$Ш@JЪЬШJЩ ЧLЪЮЬЭЬЭЬ Ш;LЪЮ
ЬЭЬЭЬ!ЭЬЭЬ
ЭЬШrЪЮ	ЬЭЬЭЬЭЬЭЬЭЬЭЬШ[MЪЭЬЭЬШMЪЬШЧЧЪЬ.Щ.MЪ╧i
Щ
ЪЮЬЭЬ1ШTJЪЬЭЬШJЪЭЬЭЬЭШЪЬ.Ш.JЪЬШЧJЪЭЬЯ)Ш3JЪЬШЧЧЩЪЮЬЭЬ3ЭЬШZJЪЭЬЭЬШЪЭЬЭШNЪЬ&ЭЬШ.JЪЬЭЬШ!JЪЬЭЬШ%JЪЬЭЬ0Ш:JЪЬЭЬ0Ш:JЪЬЭЬЭЬЭЬШ3JЪЬЭЬЭЬЭЬШ3JЪЭЬ Ш&JШЧJЪЭ
ЬШ#JШЧLЪЭЬШЧЧ ЕЧ    ░  ║  