DIRECTORY
	BitBltDefs: FROM "BitBltDefs";

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

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.
l3810(635)\f1 43b12B22b6B262b9B64b7B32b3B380b10B308b8B79b1Bi34bI16B38b14B128b22B41b10B193b10B202b8B56b10B56b8B56b8B64b9B64b7B64b8B64b9B64b7B64b11B64b8B64b8B64b9B64b7B64b11B64b8B64b10B80b11B80b9B80b13B80b1B61b17B93b13B110b12B57b13B82b6B82f0 1f1 2b8B82f0 1f1 2b7B82f0 1f1 2f0b3f1 3B84f0 1f1 2f0b3f1 5B84f0 1f1 2f0b3f1 4B84f0 1f1 2b1B48b17B197b8B85b7B1f0 1f1 91b7B1f0 1f1 91b7B1f0 1f1 91b9B1f0 1f1 108i32bI15B64b16B66b8B135b11B53f0 1f1 16f0 1f1 63b10B53f0 1f1 16f0 1f1 63b8B53f0 1f1 16f0 1f1 63b9B203b14B94b22B116i29I2b9B56b10B81b10B72b9B45b10B50b11B51b7B60b8B