ASCII font display

[Helium5793]

I have about 750 true type fonts on my computer.  Thus I needed some way to display them before I commit a program to using a particular font.  So I wrote a simple program to display all the ascii characters and the upper and lower case alphabet.   For this program it starts asking the name of the .ttf font.  One would just type in 'arial' and it will fill in the .ttf.  It then goes to a 1200x800 screen and displays the characters.  At the end it asks for another font to display. 

John

Code: (Select All)

top:

Input "font name: "; ttfont$

handle& = _NewImage(1200, 800, 32)

Screen handle&

_Title "Font Display: " + ttfont$

'ttfont$ = "courbd"

$Color:32

colorx

Color Black, LightBlue

Cls

height& = 20

fnt& = _LoadFont("./" + ttfont$ + ".ttf", height&, style$)

_Font fnt&



TextSize wide&, high& 'get the font or current screen mode's text block pixel size

For i = 1 To 255

    If i > 8 And i < 14 Then Print i; "NA",: GoTo x 'these cause screen problems (linefeed, carriage return)

    Print i; Chr$(i);

    Print " ",

    x:

    If i / 10 = Int(i / 10) Then Print



Next

Print "  "

Print " "

Print "abcdefghijklmnopqrstuvwxyz"

Print UCase$("abcdefghijklmnopqrstuvwxyz")

Print

GoTo top

End



Sub TextSize (TextWidth&, TextHeight&)

    TextWidth& = _PrintWidth("W") 'measure width of one font or text character

    TextHeight& = _FontHeight 'can measure normal text block heights also

End Sub

Sub colorx

    Cls

    Color Black, DarkCyan

End Sub