'
' 2D Fixed-width PNG font
'
Strict

Import mojo

Class TNoddyboxPNGFont

Private
	Field	img:Image
	Field	char_width:Int
	Field	charmap:String
	
Public

	Method New(filename:String, chars:String, width:Int)
		char_width = width
		charmap = chars
		img = LoadImage(filename, chars.Length())
	End Method
	
	Method Draw:Void(x:Int, y:Int, s:String)
		For Local f:Int = 0 To s.Length() - 1
			Local i:Int = charmap.Find(s[f..f+1])
			
			If i > -1
				DrawImage(img, x, y, i)
			Endif

			x += char_width
		Next
	End Method
	
End Class