' draw BMFont sample
'
' Usage: test_bmfont.exe [INPUT.fnt] [--dump]
'
' by mieki256
' License: CC0 / Public Domain
' Last updated: <2024/02/15 05:12:43 +0900>

#include "bmfont.bi"

Const SCRW = 640
Const SCRH = 480
Dim As Integer sdepth = 32

Dim As String infile

' infile = "bmfont_dejavu.fnt"
' infile = "bmfont_roboto.fnt"
infile = "bmfont_vegur.fnt"

If Command(1) = "/?" Or Command(1) = "--help" Or Command(1) = "-h" Then
    Print "Usage: test_bmfont.exe [INPUT.fnt] [--dump]" : end
End If

If Command(1) <> "" And Command(1) <> "--dump" Then infile = Command(1)

Dim As bmfont bmfnt
bmfnt.loadInfo(infile)

If Command(1) = "--dump" Or Command(2) = "--dump" Then
    bmfnt.dump() : end
End If

ScreenRes SCRW, SCRH, sdepth

bmfnt.loadImage()

color RGB(255, 255, 255), RGB(40, 80, 160)
cls

' Put (0, 0), bmfnt.img, TRANS

Dim As String testtext(7) = { _
  infile, _
  "Hello World ! 0123456789", _
  " ! #$%&'()*+,-/\0123456789:;<=>?", _
  "@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_", _
  "`abcdefghijklmnopqrstuvwxyz{|}~", _
  "The quick brown fox jumps over the lazy dog", _
  "Push Any Key" }

Dim As Integer h = bmfnt.size + 2
For i As Integer = 0 To UBound(testtext)
    bmfnt.drawstring(10, 10 + h * i, testtext(i))
Next i

sleep
bmfnt.destroy()