DIRECTORY
	BitBltDefs: FROM "BitBltDefs";

GraphicsDefs: DEFINITIONS =
BEGIN
Bitmap: TYPE = RECORD
	[bank: [0..77B], --6 bits for Box (idiotic space optimization)
	 nWords: [0..377B],
	 nBits,nLines: CARDINAL,
	 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: Bitmap,
	 displayX,displayY: CARDINAL, 
	 displayed: BOOLEAN,	--1 bit	(i.e.,whether displayX,Y are valid)
	 savedBank: [0..77B], --6 bits 
	 function: BitBltDefs.BBoperation,	--2 bits
	 type: BoxType,	--2 bits
	 gray: [0..16]	--5 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 RETURNS [POINTER TO Bitmap];
GetDefaultBitmapHandle: PROCEDURE RETURNS [POINTER TO Bitmap];
SetXMAlloc: PROCEDURE [Allocate: PROCEDURE [nwords: CARDINAL] RETURNS [LONG POINTER],Free: PROCEDURE [LONG POINTER],AllocateFromBank: PROCEDURE [nwords: CARDINAL,bank: CARDINAL] RETURNS [LONG POINTER]];
GetXMAlloc: PROCEDURE RETURNS [Allocate: PROCEDURE [nwords: CARDINAL] RETURNS [LONG POINTER],Free: PROCEDURE [LONG POINTER],AllocateFromBank: PROCEDURE [nwords: CARDINAL,bank: CARDINAL] RETURNS [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];
MaskArea: 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 [POINTER TO ARRAY [0..17B] OF CARDINAL];
SetGrayLevel: PROCEDURE [CARDINAL]; --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];

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

PutRotatedText: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,cosTheta,sinTheta: INTEGER];
PutRotatedTextInBitmap: PROCEDURE [s: STRING,x,y: CARDINAL,font: POINTER TO StrikeFont,cosTheta,sinTheta: INTEGER,b: POINTER TO Bitmap];

--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.
(635)\f1 43b12B22b6B175b9B64b7B32b3B370b10B308b8B79b1Bi34bI16B38b14B41b22B41b10B193b10B202b8B56b10B56b8B56b8B64b9B64b7B64b8B64b9B64b7B64b11B64b8B64b8B64b9B64b7B64b11B64b8B64b10B80b11B80b9B80b13B80b1B61b17B52b13B61b12B57b13B82b1B48b17B197b8B85b7B1f0 1f1 91b7B1f0 1f1 91b7B1f0 1f1 91b9B1f0 1f1 108i32bI15B64b16B66b8B135b11B53f0 1f1 16f0 1f1 63b10B53f0 1f1 16f0 1f1 63b8B53f0 1f1 16f0 1f1 63b9B203b14B94b22B116i29I2b9B56b10B81b10B72b9B45b10B50b11B51b7B60b8B