-- 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;

}.(670)