// Text of project Monaco written on 5/9/95 at 3:50 PM
// Beginning of text file monaco.f
constant kUnicode := 0;
constant kFix1 := 0x00010000;

x := OpenResFileX(HOME & "Monaco 9 Plain");
gMonacoPlain := GetNamedResource("sfnt", "monaco", 'sfnt);
CloseResFileX(x);

x := OpenResFileX(HOME & "Courier Widths");
gCourierWidths := GetNamedResource("sfnt", "Courier Widths", 'sfnt);
CloseResFileX(x);

output := {
	Monaco: {
		name:			"Monaco",
		encoding:		kUnicode,
		macFontID:		4,		// 4 is the FOND number of Macintosh Monaco -- other fonts should start at around 1027
		screenSym:		'Monaco,
		psName:			'|MonacoCourier:Newton|,
		psScale:		(110 * kFix1) DIV 100,		// scale up 10%
	
		plainData:		gMonacoPlain,
		boldData:		nil,
		italicData:		nil,
		boldItalicData:	nil,
	},
	|MonacoCourier:Newton|: {
		name:			"MonacoCourier:Newton",
		encoding:		kUnicode,
		macFontID:		1027,   // would be 22 if normal courier -- but just to be safe we avoid 
		                    // duplicating a real 'courier substitution font ID for future compatibility
							
		// screenSym:	'|MonacoCourier:Newton|,  	// NOT FOR "substitution" fonts!
		psSym:			'|MonacoCourier:Newton|,
		psName:			'|MonacoCourier:Newton|,     // is this right?
		psScale:		kFix1,		// no scaling
	
		plainData:		gCourierWidths,
		boldData:		gCourierWidths,
		italicData:		gCourierWidths,
		boldItalicData:	gCourierWidths,
	
		// additional slots for PS printers
		normal: "Courier-Roman",
		bold: "Courier-Bold",
		italic: "Courier-Oblique",
		bolditalic: "Courier-BoldOblique"
	
	}
};
// End of text file monaco.f