Oberon/V2/Fonts

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.