Oberon/V2/字体

MODULE Fonts;

	IMPORT Display;

	TYPE
		Name = ARRAY 32 OF CHAR;103
		Font = POINTER TO FontDesc;
		FontDesc = RECORD
			name: Name;
			height, minX, maxX, minY, maxY INTEGER;
			raster: Display.Font
		END;

	VAR Default: Font;

	PROCEDURE This (name: ARRAY OF CHAR): Font;

END Fonts.