-- GraphicsDefs.mesa
-- Written by Joe Maleson
-- Last changed by Doug Wyatt, April 9, 1981  4:15 PM

DIRECTORY
	BitBltDefs USING [BBoperation, BBsourcetype];

GraphicsDefs: DEFINITIONS =
BEGIN
Bitmap: TYPE = RECORD
 [	bank: [0..7], --3 bits for Box (idiotic space optimization)
	nWords: [0..1777B],
	nBits,nLines: CARDINAL,
	nBitsPerPixel: [0..256) _ 1,
	portraitMode: BOOLEAN _ TRUE,
	scaleFactor: [0..128) _ 10,
	bits: POINTER TO ARRAY [0..0) OF CARDINAL
 ];
Rectangle: TYPE = RECORD
 [	x1,y1,x2,y2: INTEGER --with x1<x2, y1<y2
 ];
BoxType: TYPE = {normal,outline,gray};
Box: TYPE = RECORD
	[boxBitmap: Bitmap,
	 savedBits: POINTER TO ARRAY [0..0) OF CARDINAL, --used when moving around
	 displayBitmap: POINTER TO Bitmap,
	 displayX,displayY: CARDINAL, 
	 displayed: BOOLEAN,	--1 bit	(i.e.,whether displayX,Y are valid)
	 savedBank: [0..7], --3 bits 
	 function: BitBltDefs.BBoperation,	--2 bits
	 type: BoxType,	--2 bits
	 gray: [0..256)	--8 bits
	];

StrikeFont: TYPE = RECORD
	[oneBit,index,fixed: [0..1],
	 bank: [0..77B],
	 minCode,maxCode: CARDINAL,
	 maxWidth: CARDINAL,
	 strikeBodyWordLength: CARDINAL,
	 ascent,descent: CARDINAL,
	 wordsPerScanLine: CARDINAL,
	 bitmap: POINTER TO ARRAY [0..0) OF CARDINAL,
	 xInSegment: POINTER TO ARRAY [0..0) OF CARDINAL
	];
textMode: TYPE = [0..3];
normal: textMode = 0;
italic: textMode = 1;
bold: textMode=2;

--routines exported by BitmapFns

SetDefaultBitmap: PROCEDURE [width,height: CARDINAL];
TurnOnGraphics: PROCEDURE [bitsPerPixel: CARDINAL _ 1,portraitMode: BOOLEAN _ TRUE,scalePercent: CARDINAL _ 100] RETURNS [POINTER TO Bitmap];
GetDefaultBitmapHandle: PROCEDURE RETURNS [POINTER TO Bitmap];
SetXMAlloc: PROCEDURE [Allocate: PROCEDURE [nwords: CARDINAL] RETURNS [LONG POINTER],Free: PROCEDURE [LONG POINTER]];
GetXMAlloc: PROCEDURE RETURNS [Allocate: PROCEDURE [nwords: CARDINAL] RETURNS [LONG POINTER],Free: PROCEDURE [LONG POINTER]];

PutPoint: PROCEDURE [x,y: CARDINAL,b: POINTER TO Bitmap _ NIL];
ErasePoint: PROCEDURE [x,y: CARDINAL,b: POINTER TO Bitmap _ NIL];
XorPoint: PROCEDURE [x,y: CARDINAL,b: POINTER TO Bitmap _ NIL];

PutLine: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
EraseLine: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
XorLine: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];

PutArea: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
EraseArea: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
XorArea: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
ReplaceArea: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];

PutGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
EraseGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
XorGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
ReplaceGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];
MaskGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,b: POINTER TO Bitmap _ NIL];

PutBitmap: PROCEDURE [b: POINTER TO Bitmap,x,y: CARDINAL,dest: POINTER TO Bitmap _ NIL];
EraseBitmap: PROCEDURE [b: POINTER TO Bitmap,x,y: CARDINAL,dest: POINTER TO Bitmap _ NIL];
XorBitmap: PROCEDURE [b: POINTER TO Bitmap,x,y: CARDINAL,dest: POINTER TO Bitmap _ NIL];
ReplaceBitmap: PROCEDURE [b: POINTER TO Bitmap,x,y: CARDINAL,dest: POINTER TO Bitmap _ NIL];

--grey square functions (affect subsequent PutArea commands)
SetGrayThresholds: PROCEDURE [new: POINTER TO ARRAY [0..0) OF CARDINAL,outputDevice: POINTER TO Bitmap _ NIL];
SetGrayLevel: PROCEDURE [intensity: CARDINAL,outputDevice: POINTER TO Bitmap _ NIL]; --set intensity value for area stuff
GetGrayBlock: PROCEDURE RETURNS [gray0,gray1,gray2,gray3: CARDINAL];
PutGrayBitmap: PROCEDURE [b: POINTER TO Bitmap,x,y: CARDINAL,
	dest: POINTER TO Bitmap _ NIL];
SetRed: PROCEDURE[gray: [0..256),newVal: [0..256),outputDevice: POINTER TO Bitmap _ NIL]; 
SetGreen: PROCEDURE[gray: [0..256),newVal: [0..256),outputDevice: POINTER TO Bitmap _ NIL]; 
SetBlue: PROCEDURE[gray: [0..256),newVal: [0..256),outputDevice: POINTER TO Bitmap _ NIL]; 
GetRed: PROCEDURE[gray: [0..256),outputDevice: POINTER TO Bitmap _ NIL] RETURNS [CARDINAL]; 
GetGreen: PROCEDURE[gray: [0..256),outputDevice: POINTER TO Bitmap _ NIL] RETURNS [CARDINAL]; 
GetBlue: PROCEDURE[gray: [0..256),outputDevice: POINTER TO Bitmap _ NIL] RETURNS [CARDINAL]; 

--Area function: copy (with possible rescaling)
TransferRectangle: PROCEDURE [src,dest: POINTER TO Bitmap,
	srcRectangle,destRectangle: POINTER TO Rectangle,
	fn: BitBltDefs.BBoperation _ replace,type: BitBltDefs.BBsourcetype _ block];

--and the real functions
SetPoint: PROCEDURE [x,y: CARDINAL,fn: BitBltDefs.BBoperation,
	b: POINTER TO Bitmap _ NIL];
SetLine: PROCEDURE [x1,y1,x2,y2: CARDINAL,fn: BitBltDefs.BBoperation,
	b: POINTER TO Bitmap _ NIL];
SetArea: PROCEDURE [x1,y1,x2,y2: CARDINAL,fn: BitBltDefs.BBoperation,
	b: POINTER TO Bitmap _ NIL];
SetGray: PROCEDURE [x1,y1,x2,y2: CARDINAL,fn: BitBltDefs.BBoperation,
	b: POINTER TO Bitmap _ NIL];
SetBitmap: PROCEDURE [b: POINTER TO Bitmap,
	x,y: CARDINAL,fn: BitBltDefs.BBoperation,dest: POINTER TO Bitmap _ NIL];

--routines exported by TextFns

GetStrikeHandle: PROCEDURE [fontName: STRING] RETURNS [POINTER TO StrikeFont];
GetFontNameArray: PROCEDURE RETURNS [POINTER TO ARRAY [0..0) OF STRING,CARDINAL];

PutText: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,mode: textMode,b: POINTER TO Bitmap _ NIL] RETURNS [nextX: CARDINAL];
ReplaceText: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,mode: textMode,b: POINTER TO Bitmap _ NIL] RETURNS [nextX: CARDINAL];
EraseText: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,mode: textMode,b: POINTER TO Bitmap _ NIL] RETURNS [nextX: CARDINAL];
XorText: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,mode: textMode,b: POINTER TO Bitmap _ NIL] RETURNS [nextX: CARDINAL];

SetText: PROCEDURE [s: STRING,x,y: CARDINAL,fn: BitBltDefs.BBoperation,font: POINTER TO GraphicsDefs.StrikeFont,mode: GraphicsDefs.textMode,b: POINTER TO GraphicsDefs.Bitmap _ NIL]  RETURNS [nextX: CARDINAL];

--routines exported by BoxFns

CreateBox: PROCEDURE [b: POINTER TO Box,width,height: CARDINAL];
DisplayBox: PROCEDURE [b: POINTER TO Box,x,y: CARDINAL,
	bitmap: POINTER TO Bitmap _ NIL];
ReleaseBox: PROCEDURE [b: POINTER TO Box]; --release temp storage for current box
RemoveBox: PROCEDURE [b: POINTER TO Box]; --undisplay
DestroyBox: PROCEDURE [b: POINTER TO Box,restore: BOOLEAN];
CursorInBox: PROCEDURE [b: POINTER TO Box] RETURNS [BOOLEAN];
MoveBox: PROCEDURE [b: POINTER TO Box,cornerX,cornerY: CARDINAL]; 
PaintBox: PROCEDURE [b: POINTER TO Box]; --update current display
END.