wanted: program to process Windows Font files

[bplus]

Here is a quicky using a number of useful keywords for font:

Code: (Select All)

DefLng A-Z
Screen _NewImage(800, 600, 32)
s$ = "Hello World!"
h = 10
y = 10
While h < 400
    f = _LoadFont("arial.ttf", h)
    _Font f
    w = _PrintWidth(s$)
    _PrintString ((800 - w) / 2, y), s$
    h = 2 * h
    y = y + _FontHeight(f) + 5
Wend
Sleep