Initial commit

NewBitmap.pbi

@@ -0,0 +1,29 @@
+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