29 lines
582 B
Plaintext
29 lines
582 B
Plaintext
Structure myFontData
|
|
x.l
|
|
y.l
|
|
Width.l
|
|
Height.l
|
|
EndStructure
|
|
|
|
Structure BitmapFont
|
|
Array FontData.myFontData(90)
|
|
EndStructure
|
|
|
|
Global NewList BitmapFont.BitmapFont()
|
|
|
|
Procedure LoadBitmapFont()
|
|
AddElement(BitmapFont())
|
|
If OpenFile(0,"FontsCompress.dat")
|
|
ReadData(0,@BitmapFont()\FontData(),SizeOf(myFontData)*ArraySize(BitmapFont()\FontData()))
|
|
CloseFile(0)
|
|
EndIf
|
|
For z=0 To 90
|
|
Debug "Width="+Str(BitmapFont()\FontData(z)\Width)
|
|
Next
|
|
EndProcedure
|
|
|
|
|
|
; IDE Options = PureBasic 6.00 Beta 5 (Windows - x64)
|
|
; CursorPosition = 24
|
|
; Folding = -
|
|
; EnableXP |