DIRECTORY Graphics USING [Context, SetCP], GraphicsOps USING [DrawBitmap, ScreenBitmap], ViewerBLT, ViewerClasses USING [Viewer], ViewerOps USING [AcquireContext, ReleaseContext, UserToScreenCoords], ViewerSpecs USING [screenH]; ViewerBLTImpl: CEDAR PROGRAM IMPORTS Graphics, GraphicsOps, ViewerOps EXPORTS ViewerBLT SHARES ViewerOps = BEGIN OPEN ViewerBLT, ViewerClasses; Glitch: PUBLIC PROC [viewer: Viewer, nLines: INTEGER] = BEGIN dY, sY, vY, vX: INTEGER; w: INTEGER _ viewer.cw; h: INTEGER _ viewer.ch-ABS[nLines]; dc: Graphics.Context _ ViewerOps.AcquireContext[NIL]; [vX, vY] _ ViewerOps.UserToScreenCoords[viewer, 0, IF viewer.class.coordSys=top THEN 0 ELSE viewer.ch]; dY _ IF nLines>0 THEN vY ELSE vY-nLines; sY _ IF nLines>0 THEN vY-nLines ELSE vY; Graphics.SetCP[dc, vX, dY]; GraphicsOps.DrawBitmap[ self: dc, bitmap: GraphicsOps.ScreenBitmap[], w: w, h: h, x: vX, y: ViewerSpecs.screenH-sY, xorigin: vX, yorigin: ViewerSpecs.screenH-sY ]; ViewerOps.ReleaseContext[dc]; END; VBLT: PUBLIC PROC [src: VPlace, dest: VPlace, srcw, srch: INTEGER] = BEGIN ERROR; -- not yet implemented END; END. ~ViewerBLTImpl.mesa; Last Edited by McGregor, August 2, 1982 4:09 pm Last Edited by: Maxwell, January 3, 1983 12:30 pm Κ²– "Mesa" style˜JšΟc™Jš/™/Jšœ1™1J˜šΟk ˜ Jšœ žœ˜ Jšœ žœ˜-J˜ Jšœžœ ˜Jšœ žœ6˜EJšœ žœ ˜J˜—šœž ˜Jšžœ!˜(Jšžœ ˜Jšžœ ˜J˜—Jšžœžœ˜$J˜š Οnœžœžœžœž˜=Jšœžœ˜Jšœžœ ˜Jšœžœ žœ ˜#Jšœ0žœ˜5˜2Jšžœžœžœ ˜4—Jšœžœ žœžœ ˜)Jšœžœ žœ žœ˜)J˜˜J˜ J˜#J˜J˜J˜J˜J˜ J˜J˜—J˜Jšžœ˜J˜—š žœžœžœ)žœž˜JJšžœ˜Jšžœ˜J˜—Jšžœ˜J˜J˜—…—ZŠ