; BMPF_Benchmark.bb
; V0.1, 2005/01/20, Ayman
; Test Modul / Benchmark für LibBMPFont.bb
;
Include "LibBMPFont.bb"

Graphics3D 1024, 768        ; wahlweise: Graphics 1024, 768
SetBuffer FrontBuffer()

; init BitmapFont
BMPF_SetFont BMPF_LoadFont ("wide16x16.png")

; init Windows True Type Font
SetFont LoadFont ("Arial", 24)

; Benchmark TTF
BMPF_Text 10,200, "DOING SOME BENCHMARKS ..."


; TTF
Color 255,255,0
t = MilliSecs()
For i = 1 To 10000
   Text 10,230, "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG."
Next
Text 10,250,"10000 outputs with TTF took "+Str(MilliSecs()-t)+" milliseconds."


; BMPF
t = MilliSecs()
For i = 1 To 10000
   BMPF_Text 10,300, "THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG."
Next
BMPF_Text 10,320,"10000 outputs with BMPF took "+Str(MilliSecs()-t)+" milliseconds."


BMPF_Text 10,400, "HIT ANY KEY TO QUIT."
WaitKey()
End