
DIRECTORY
Imager,
ImagerSample,
SF,
SFInline,
XlBitmap,
XlBitmapExtras,
XlBitmapPrivate,
XlShmPixmaps;

XlBitmapImpl: CEDAR MONITOR 
IMPORTS ImagerSample, SFInline, XlShmPixmaps  
EXPORTS XlBitmap, XlBitmapExtras =
BEGIN OPEN XlBitmap, XlBitmapPrivate;

BitmapRep: PUBLIC TYPE = XlBitmapPrivate.BitmapRepDef;

NarrowBitmap: PUBLIC PROC [x: REF ANY] RETURNS [XlBitmap.Bitmap] = {
RETURN [ NARROW[x, REF BitmapRep] ]
};

IsBitmap: PUBLIC PROC [x: REF ANY] RETURNS [BOOL] = {
RETURN [ ISTYPE[x, REF BitmapRep] ]
};

Noop: BoxDataProc = {};

CreateFromSM: PUBLIC PROC [sm: ImagerSample.RasterSampleMap] RETURNS [b: Bitmap] = {
b м NEW[BitmapRep м [sm: sm, sz: ImagerSample.GetSize[sm], box: ImagerSample.GetBox[sm]]];
IF b.box.min#[0, 0] THEN ERROR;
};

GetSM: PUBLIC PROC [b: Bitmap] RETURNS [ImagerSample.RasterSampleMap] = {
IF b#NIL THEN RETURN [b.sm] ELSE RETURN [NIL];
};

GetBox: PUBLIC PROC [b: Bitmap] RETURNS [SF.Box] = {
IF b#NIL THEN RETURN [b.box] ELSE RETURN [emptyBox];
};
Create: PUBLIC PROC [size: SF.Vec, bpp: NAT м 1, sharedMemory: BOOL м TRUE] RETURNS [b: Bitmap] = {
sm: ImagerSample.RasterSampleMap м NIL;
IF sharedMemory THEN 
sm м XlShmPixmaps.NewSharedSampleMap[box: [min: [0, 0], max: size], bitsPerSample: bpp];
IF sm=NIL THEN 
sm м ImagerSample.NewSampleMap[box: [min: [0, 0], max: size], bitsPerSample: bpp];
b м NEW[BitmapRep м [sm: sm, sz: size, box: [min: [0, 0], max: size]]];
};

SetColormap: PUBLIC PROC [bitmap: Bitmap, colormap: REF] = {
WITH colormap SELECT FROM
cme: MapEntries => bitmap.colormapEntries м cme
ENDCASE => {}
};

GetColormap: PUBLIC PROC [bitmap: Bitmap] RETURNS [REF ANY] = {
RETURN [bitmap.colormapEntries]
};
RegisterInterceptionProcs: PUBLIC ENTRY PROC [bitmap: Bitmap, refresh, preRefresh: BoxDataProc, data: REF] = {
IF preRefresh#NIL THEN {
ok: BOOL м FALSE;
FOR preList: ICClosures м bitmap.preList, preList.rest WHILE preList#NIL DO
IF preList.first.data=data THEN {preList.first.proc м preRefresh; ok м TRUE; EXIT};
ENDLOOP;
IF ~ok AND preRefresh#Noop THEN bitmap.preList м CONS[[preRefresh, data], bitmap.preList]
};
IF refresh#NIL THEN {
ok: BOOL м FALSE;
FOR postList: ICClosures м bitmap.postList, postList.rest WHILE postList#NIL DO
IF postList.first.data=data THEN {postList.first.proc м refresh; ok м TRUE; EXIT};
ENDLOOP;
IF ~ok AND preRefresh#Noop THEN bitmap.postList м CONS[[refresh, data], bitmap.postList]
};
};

RemoveInterceptionProcs: PUBLIC PROC [bitmap: Bitmap, data: REF] = {
Entry: ENTRY PROC [bitmap: Bitmap, data: REF] = {
ReplaceICClosures: PROC [c: ICClosures] RETURNS [new: ICClosures м NIL] = {
FOR l: ICClosures м c, l.rest WHILE l#NIL DO
IF l.first.proc#Noop THEN new м CONS[l.first, new]
ENDLOOP;
};
bitmap.postList м ReplaceICClosures[bitmap.postList];
bitmap.preList м ReplaceICClosures[bitmap.preList];
};
RegisterInterceptionProcs[bitmap, Noop, Noop, data];
Entry[bitmap, data];
};

Refresh: PUBLIC PROC [bitmap: Bitmap, box: SF.Box, delayOk: BOOL _ FALSE] = {
PostIntercept[bitmap, box, delayOk];
};

PromiseRepaintLater: PUBLIC PROC [bitmap: Bitmap, box: SF.Box] = {
IF SFInline.Empty[bitmap.delayBox] OR ~SFInline.Inside[inner: box, outer: bitmap.delayBox] THEN bitmap.delayBox м box
};

EndPromiseRepaint: PUBLIC PROC [bitmap: Bitmap, box: SF.Box м SF.maxBox, refresh: BOOL м TRUE, delayOk: BOOL _ FALSE] = {
IF SFInline.Inside[inner: bitmap.delayBox, outer: box] THEN {
bitmap.delayBox м emptyBox;
IF refresh THEN Refresh[bitmap, box, delayOk];
}
ELSE IF refresh THEN {
IF ~SFInline.Inside[inner: box, outer: bitmap.delayBox] THEN Refresh[bitmap, box, delayOk];
};
};

PostIntercept: PROC [b: Bitmap, box: SF.Box, delayOk: BOOL] = INLINE {
IF ~SFInline.Inside[inner: box, outer: b.delayBox] THEN
FOR postList: ICClosures м b.postList, postList.rest WHILE postList#NIL DO
postList.first.proc[box, postList.first.data, delayOk];
ENDLOOP;
};

END.

 
   Ю  XlBitmapImpl.mesa
Copyright ╙ 1990, 1991, 1992 by Xerox Corporation.  All rights reserved.
Created by Christian Jacobi, October 30, 1990 2:20:01 pm PST
Christian Jacobi, January 4, 1993 12:23 pm PST
Willie-s, October 30, 1991 11:23 am PST

The part of XlBitmapImpl which does NOT use imager device features.


--we replace a whole list so we are certainly atomic to interceptions which are not monitored...
Э╩t  Ц(cedarcode) styleХNewlineDelimiter
Ш ЩIcodeЪЬ
╧eЬ=ЩHKЩ<KЩ.KЩ'KЩ KЩCKЩ ЧЪ╧k	Ш	KШKШKЪЮЬШKШ	KШ	KШKШKШKШ ЧЪ╧nЬЮЬЮЬШKЪЮЬ&Ш.KЪЮЬШ"ЧЪЮЬЮЬШ%KШ ЧKЪЬЮЬЮЬ Ш6KШ ЪЯЬЮЬЮЬЮЬЮЬЮЬШDKЪЮЬЮЬЮЬШ#KШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬШ5KЪЮЬЮЬЮЬШ#KШKШ ЧKЪЯЬШKШ ЪЯЬЮЬЮЬ$ЮЬШTKЪЬЮЬSШZKЪЮЬЮЬЮЬШKШKШ ЧЪЯЬЮЬЮЬЮЬ#ШIKЪЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ.KШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬ	Ш4KЪЮЬЮЬЮЬЮЬ	ЮЬЮЬШ4KШЧKЩ ЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬШcKЪЬ#ЮЬШ'ЪЮЬЮЬШKШXЧЪЮЬЮЬЮЬШKШRЧKЪЬЮЬ@ШGKШKШ ЧЪЯЬЮЬЮЬЮЬШ<ЪЮЬ
ЮЬЮШKШ/KЪЮЬШЧKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШ?KЪЮЬШKШЧKЩ ЪЯЬЮЬЮ
Ь:ЮЬШnЪЮЬЮЬЮЬШKЪЬЮЬЮЬШЪЮЬ4ЮЬ	ЮЬЮШKKЪЮЬЮЬ(ЮЬЮЬШSKЪЮЬШЧKЪЮЬЮЬЮЬЮЬ$ШYKШЧЪЮЬ	ЮЬЮЬШKЪЬЮЬЮЬШЪЮЬ7ЮЬ
ЮЬЮШOKЪЮЬЮЬ&ЮЬЮЬШRKЪЮЬШЧKЪЮЬЮЬЮЬЮЬ"ШXKШЧKШKШ ЧЪЯЬЮЬЮЬЮЬШDЪЯЬЮ
ЬЮЬШ1ЪЯЬЮЬЮЬЮЬШKKЩ`ЪЮЬЮЬЮЬЮШ,KЪЮЬЮЬЮЬШ2KЪЮШЧKШЧKШ5KШ3KШЧKШ4KШKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬШMKЪЬ$Ш$KШKШ ЧЪЯЬЮЬЮЬЮЬ	ШBKЪЮЬ!ЮЬ6ЮЬШuKШKШ ЧЪЯЬЮЬЮЬЮЬЮЬЮЬЮЬ	ЮЬЮЬШyЪЮЬ5ЮЬШ=KШKЪЮЬ	ЮЬШ.KШЧЪЮЬЮЬ	ЮЬШKЪЮЬ6ЮЬШ[KШЧKШKШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШFЪЮЬ1ЮШ7ЪЮЬ2ЮЬ
ЮЬЮШJKЪЬ7Ш7KЪЮЬШЧЧKШЧKШ KЪЮЬШKШ KШЧ ЕЧ        