Oberon/V2/Fonts
< Oberon
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.