-- AltoDevice.mesa
-- Last changed by Doug Wyatt, August 28, 1980 3:40 PM

DIRECTORY
OpaqueDevice USING [DeviceContext];

AltoDevice: DEFINITIONS = {

Bitmap: TYPE = RECORD [
base: LONG POINTER, -- bitmap address
raster: CARDINAL, -- width in words
height: CARDINAL -- height in scanlines
];

DeviceContext: TYPE = OpaqueDevice.DeviceContext;

NewAltoDevice: PROCEDURE[b: Bitmap] RETURNS[DeviceContext];
ScreenDevice: PROCEDURE RETURNS[DeviceContext];

ScreenBitmap: PROCEDURE RETURNS[Bitmap];
ScreenOrigin: PROCEDURE RETURNS[x,y: CARDINAL];

AltoDeviceImpl: PROGRAM;
AltoScreenImpl: PROGRAM;

}.