DIRECTORY Idle, ImagerPixelMaps, ImagerFrameBuffer, LFBoundingBox, Buttons; SleepPeekImpl: CEDAR PROGRAM IMPORTS Idle, ImagerPixelMaps, ImagerFrameBuffer, LFBoundingBox, Buttons = BEGIN sMin, fMin: INTEGER; sSize, fSize: NAT; screen: ImagerPixelMaps.PixelMap; shadow: ImagerPixelMaps.PixelMap; bitmapRef: Idle.BitmapRef; Bits: TYPE = RECORD [SEQUENCE COMPUTED CARDINAL OF WORD]; Image: Idle.ImageProc ~ { shadow _ shadow.refRep.Reshape[0, [sMin, fMin, MIN[sSize, h], MIN[fSize, w]]]; shadow.Transfer[screen]; RETURN [bitmapRef]; }; SleepProc: Buttons.ButtonProc ~ BEGIN IF mouseButton = red OR sSize = 0 OR fSize = 0 OR shadow.refRep = NIL THEN { sMin _ -1; [y: sMin, x: fMin, h: sSize, w: fSize] _ LFBoundingBox.GetArea[!LFBoundingBox.AbortAdjust => CONTINUE]; IF sMin < 0 THEN shadow.refRep _ NIL ELSE { TRUSTED {screen _ ImagerFrameBuffer.LFDisplay[]}; sMin _ screen.sSize - sMin - sSize; shadow _ ImagerPixelMaps.Create[0, [sMin, fMin, sSize, fSize]]; WHILE shadow.refRep.words > 64000 DO sSize _ sSize * 7 / 8; fSize _ fSize * 7 / 8; shadow _ ImagerPixelMaps.Create[0, [sMin, fMin, sSize, fSize]]; ENDLOOP; shadow.refRep.pointer _ NIL; shadow.refRep.ref _ NEW[Bits[shadow.refRep.words]]; TRUSTED {shadow.refRep.pointer _ LOOPHOLE[shadow.refRep.ref]}; bitmapRef _ NEW[Idle.BitmapRep _ [base: shadow.refRep.ref, raster: shadow.refRep.rast, width: shadow.fSize, height: shadow.sSize]]; }; }; IF shadow.refRep # NIL THEN Idle.Sleep[Image]; END; [] _ Buttons.Create[[name: "Sleep"], SleepProc]; END. ÚSleepPeekImpl.mesa Copyright (C) 1984 by Xerox Corporation. All rights reserved. Michael Plass, April 12, 1984 10:15:30 am PST Last Edited by: Beach, October 9, 1984 8:51:00 pm PDT get bounding box of the area Ê昙Jšœ>™>Jšœ-™-J™5—J˜JšÏk œB˜KJ˜šœ ˜JšœA˜HJšœ˜Jšœ œ˜Jšœœ˜Jšœ!˜!Jšœ!˜!Jšœ˜Jšœœœœœœœœ˜9šÏnœ˜Jšœ/œ œ˜OJšœ˜Jšœ ˜Jšœ˜—šž œ˜%š œœ œ œœœ˜LJ™Jšœ ˜ Jšœ]œ˜gšœ ˜Jšœ˜—šœ˜Jšœ*˜1Jšœ#˜#Jšœ?˜?šœ˜$Jšœ˜Jšœ˜Jšœ?˜?Jšœ˜—Jšœœ˜Jšœœ˜3Jšœœ˜>Jšœ œt˜ƒJšœ˜—Jšœ˜—Jšœœœ˜.Jšœ˜J˜—šœ0˜0J˜—Jšœ˜——…—â¢