-- FontWidthDefs.mesa
-- Written by Joe Maleson
-- Last changed by Doug Wyatt, September 29, 1980  1:42 PM

-- calculate font widths

DIRECTORY
	StreamDefs USING [StreamHandle, StreamIndex];

FontWidthDefs: DEFINITIONS =
BEGIN

UpperCase: PROCEDURE [s: STRING];
Upper: PROCEDURE [c: CHARACTER] RETURNS[CHARACTER];

fwReadIndex: PROCEDURE[s: StreamDefs.StreamHandle] RETURNS[POINTER TO FontWidthDefs.Index];

EncodeFace: PUBLIC PROCEDURE [weight,slope,expansion: CHARACTER] RETURNS [INTEGER];

LookupFontName: PROCEDURE [s:  StreamDefs.StreamHandle,famstr: STRING,face,siz,rot: INTEGER,bufx,bufy: POINTER TO ARRAY [0..256) OF INTEGER,boundbox: POINTER TO ARRAY [0..4) OF INTEGER]  RETURNS[BOOLEAN];
 
CalculateWidths: PROCEDURE [best: POINTER TO widths FontWidthDefs.Index,s: StreamDefs.StreamHandle,siz,rot: CARDINAL,boundbox: POINTER TO ARRAY[0..4) OF INTEGER,bufx,bufy: POINTER TO ARRAY[0..256) OF INTEGER];

Byte: TYPE = [0..377B];

IndexHeader: TYPE = RECORD
 [ Type: [0..15],
	Length: [0..4095]
 ];

IndexType: TYPE = {end,name,splines,chars,widths};

RawIndex: TYPE = MACHINE DEPENDENT RECORD
 [	hdr: IndexHeader,
	variantPart: SELECT COMPUTED IndexType FROM
		end	=> NULL,
		name	=>
			[
			Code: CARDINAL,
			textLen: Byte,firstChar: CHARACTER,
			textBody: PACKED ARRAY [0..17) OF CHARACTER
			],
		splines,widths =>
			[
			fam: Byte,
			face: Byte,
			bc: Byte	,		-- First char number
			ec: Byte	,		-- and last
			siz: CARDINAL,		-- Font size (10 micron units)
			rotation: CARDINAL,		-- Rotation (anti clockwise)
			sa: ARRAY[0..2) OF CARDINAL,		--Starting address of data part
			len: ARRAY[0..2) OF CARDINAL		--Length of data part
			],
		chars =>
			[
			fam: Byte,
			face: Byte,
			bc: Byte	,		-- First char number
			ec: Byte	,		-- and last
			siz: CARDINAL,		-- Font size (10 micron units)
			rotation: CARDINAL,		-- Rotation (anti clockwise)
			sa: ARRAY[0..2) OF CARDINAL,		--Starting address of data part
			len: ARRAY[0..2) OF CARDINAL	,	--Length of data part
			resolutionx: CARDINAL,	-- 10*(number of bits/inch)
			resolutiony: CARDINAL	--       ditto
			],
		ENDCASE
 ];


Index: TYPE = RECORD
 [body: SELECT type: IndexType FROM
	end => NULL,
	name => 
		[
		Code: CARDINAL,
		Name: STRING
		],
	splines,widths =>
		[fam,face,bc,ec: Byte,
		siz,rotation: CARDINAL,
		sa: StreamDefs.StreamIndex,
		len: LONG CARDINAL
		],
	chars =>
		[fam,face,bc,ec: Byte,
		siz,rotation: CARDINAL,
		sa: StreamDefs.StreamIndex,
		len: LONG CARDINAL,
		resolutionx,resolutiony: CARDINAL
		],
	ENDCASE
 ];

--RawIndexHeader types
	IndexTypeEnd: CARDINAL = 0;
	IndexTypeName: CARDINAL = 1;
	IndexTypeSplines: CARDINAL = 2;
	IndexTypeChars: CARDINAL = 3;
	IndexTypeWidths: CARDINAL = 4;

--IndexHeader lengths
	IndexLEnd: CARDINAL = 1;
	IndexLName: CARDINAL = 11;
	IndexLSplines: CARDINAL = 9;
	IndexLChars: CARDINAL = 11;
	IndexLWidths: CARDINAL = 9;
	IndexLMax: CARDINAL = 11;

-- W I D T H   segment definitions

WTB: TYPE = MACHINE DEPENDENT RECORD
 [		--Width Table Block
	XL: CARDINAL,			--X offset
	YB: CARDINAL,			--Y offset
	XW: CARDINAL,			-- width
	YH: CARDINAL,			-- height
	XWidthFixed: BOOLEAN,
	YWidthFixed: BOOLEAN,
	spare14:	[0..37777B]
 ];

-- S P L I N E     segment definitions

--SplineWidth: RECORD
-- [		//Block describing spline widths
--	WX word 2		//X width - FP
--	WY word 2		//Y width - FP
--	XL word 2		//X left - FP
--	YB word 2		//Y bottom - FP
--	XR word 2		//X right - FP
--	YT word 2		//Y top - FP
--	]

--Codes in the height entry for a char that indicate something else
	HNonExCode: INTEGER = -1;
	HSplineCode: INTEGER = -2;

--DL Types (for Spline File)
	DSplineFontMoveTo: INTEGER = 1;
	DSplineFontDrawTo: INTEGER = 2;
	DSplineFontDrawCurve: INTEGER = 3;

	DSplineFontNewObject: INTEGER = -1;
	DSplineFontEndObjects: INTEGER = -2;


-- C H A R      segment definitions (scan-converted chars)

CharWidth: TYPE = RECORD
 [		--Block describing char widths
	WX: LONG CARDINAL,		--X width - DP
	WY: LONG CARDINAL,		--Y width - DP
	XL: CARDINAL,			--X left (offset) integer
	YB: CARDINAL,			--Y bottom (offset) integer
	W: CARDINAL,			--Width (integer)
	H: CARDINAL			--Height (integer) or special code
 ];

FHEAD: TYPE = RECORD
 [		--Font header, scan converted
	hw: [0..63],			--Height in words
	ns: [0..1023]			--width in scan lines
 ];


--Misc.
Convert: TYPE = RECORD
 [ Monotone: BOOLEAN,	--True if input to conversion is monotone
	SplineOk: BOOLEAN,		--True if output can be spline (too big)
	BBGood: BOOLEAN,		--True if bounding box will be correct
	PressFontPart: BOOLEAN,--True if scan converting a press font part
	Len: CARDINAL			--	(if so, this is the length)
 ];

END.

(635)\f1 192b13B23b9B24b6B46b13B82b10B75b14B193b15B