Mac font Class/module

[JesseParticipant]

I just made a simple font Class to work with Glyph Designer for Mac
its pretty basic. It displays text based on the Angel Font format and it should work with any program that produces the angel code font format.
the code does what I need for now so I am posting what I got so far.

here it is in case it’s useful to anybody:

Monkey

[crayon-5cba823fbc448526626090 inline="true" ]#import "<mojo>" #import "<std>" #import "mygliph.fnt" #import "mygliph.png" Using mojo.. Using std.. Class MyGameWindow Extends Window Field font:Font Method New(title:String, width:Int, height:Int) ClearColor = Color.Black font = New Font() font.LoadFont("mygliph") End Method OnRender( canvas:Canvas ) Override canvas.PushMatrix() canvas.Translate(100,300) canvas.Scale(.5,.5) canvas.Rotate(1) font.Render(canvas,"This is a test...",0,0) canvas.Translate(0,0) canvas.PopMatrix() End Method End Class Function Main() New AppInstance New MyGameWindow("test",640,480 ) App.Run() End Function Class Font Method New() font = New Map<Int,Glyph> End Method Method LoadFont(url:String) Local text:string = LoadString("asset::"+url+".fnt") If text = Null Print "unable to load text" Local lines:= text.Split(String.FromChar(10)) font.Clear() For Local line := Eachin lines Select True Case line.Contains("info face") Local i := 10 If line[i] = 34 i += 1 Local n:String = "" While line[i]<>34 n += line.Mid(i,1) i+=1 Wend fontName = n Endif size = Int(GetString(line,"Size=")) Case line.Contains("common") lineHeight = Float(GetString(line,"lineHeight=")) atlasWidth = Float(GetString(line,"scaleW=")) atlasHeight = Float(GetString(line,"scaleH=")) pages = Float(GetString(line,"pages=")) atlas = New Image[pages] Case line.Contains("page id") atlasName = GetString(line,"file=") atlasName = atlasName.Mid(1,atlasName.Length-2) atlas[0] = Image.Load("asset::"+atlasName) If atlas[0] = Null Print "invalid image "+atlasName Case line.Contains("chars count") charsCount = Int(GetString(line,"chars count=")) Case line.Contains("char id") Local glyph := New Glyph glyph.id = Int( GetString(line,"char id=")) glyph.x = Int(GetString(line,"x=")) glyph.y = Int(GetString(line,"y=")) glyph.width = Int(GetString(line,"width=")) glyph.height = Int(GetString(line,"height=")) glyph.xOffset = Int(GetString(line,"xoffset=")) glyph.yOffset = Int(GetString(line,"yoffset=")) glyph.xAdvance = Int(GetString(line,"xadvance=")) glyph.page = Int( GetString(line,"page=")) glyph.characterName = GetString(line,"letter=") glyph.characterName = glyph.characterName.Mid(1,glyph.characterName.Length-2) glyph.atlas = atlas[glyph.page] font.Add(glyph.id,glyph) End Select Next End Method Property Name:String() Return fontName End Property Height:Float() Return size End Property CharacterCount:int() Return charsCount End Method TextWidth:Int(text:string) Local width := 0 For Local char := Eachin text Local glyph := font.Get(char) If glyph width += glyph.xAdvance Else width += 8 Endif Next Return width End Method Method Render(canvas:Canvas,txt:String,x:float,y:Float) For Local char := Eachin txt Local glyph := font.Get(char) If glyph = Null Print "Invalid Character in text " + txt Else glyph.Render(canvas,x,y) x += glyph.xAdvance Endif Next End Method Private Method GetString:String(line:String,s:String) Local index:Int = s.Length + line.Find(s) Local text:String = "" While line[index] <> 32 And index < line.Length text += line.Mid(index,1) index += 1 Wend Return text End Method Field fontName:string Field size:Float Field lineHeight:Float Field atlasWidth:Float Field atlasHeight:Float Field pages:Float Field charsCount:Int Field atlas:Image[] Field atlasName:string Field font:Map<Int,Glyph> End Class Class Glyph Field id:Int Field x:Int Field y:Int Field width:Int Field height:Int Field xOffset:Float Field yOffset:Float Field xAdvance:Float Field page:Int Field characterName:String Field atlas:Image Method Render(canvas:Canvas,px:Float,py:Float,angle:float = 0) canvas.DrawRect(px+xOffset,py+yOffset,width,height,atlas,x,y) End Method End Class

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174

[crayon-5cba823fbc448526626090 inline="true" ]#import "<mojo>" #import "<std>"   #import "mygliph.fnt" #import "mygliph.png"   Using mojo.. Using std..   Class MyGameWindow Extends Window Field font:Font Method New(title:String, width:Int, height:Int) ClearColor = Color.Black font = New Font() font.LoadFont("mygliph") End   Method OnRender( canvas:Canvas ) Override canvas.PushMatrix() canvas.Translate(100,300) canvas.Scale(.5,.5) canvas.Rotate(1) font.Render(canvas,"This is a test...",0,0) canvas.Translate(0,0) canvas.PopMatrix() End Method   End Class   Function Main() New AppInstance New MyGameWindow("test",640,480 ) App.Run() End Function   Class Font Method New() font = New Map<Int,Glyph> End Method Method  LoadFont(url:String) Local text:string = LoadString("asset::"+url+".fnt") If text = Null Print "unable to load text" Local lines:= text.Split(String.FromChar(10)) font.Clear() For Local line := Eachin lines Select True Case line.Contains("info face") Local i := 10 If line[i] = 34 i += 1 Local n:String = "" While line[i]<>34 n += line.Mid(i,1) i+=1 Wend fontName = n Endif size = Int(GetString(line,"Size=")) Case line.Contains("common") lineHeight = Float(GetString(line,"lineHeight=")) atlasWidth = Float(GetString(line,"scaleW=")) atlasHeight = Float(GetString(line,"scaleH=")) pages = Float(GetString(line,"pages=")) atlas = New Image[pages] Case line.Contains("page id") atlasName = GetString(line,"file=") atlasName = atlasName.Mid(1,atlasName.Length-2) atlas[0] = Image.Load("asset::"+atlasName) If atlas[0] = Null Print "invalid image "+atlasName Case line.Contains("chars count") charsCount = Int(GetString(line,"chars count=")) Case line.Contains("char id") Local glyph := New Glyph glyph.id = Int( GetString(line,"char id=")) glyph.x = Int(GetString(line,"x=")) glyph.y = Int(GetString(line,"y=")) glyph.width = Int(GetString(line,"width=")) glyph.height = Int(GetString(line,"height=")) glyph.xOffset = Int(GetString(line,"xoffset=")) glyph.yOffset = Int(GetString(line,"yoffset=")) glyph.xAdvance = Int(GetString(line,"xadvance=")) glyph.page = Int( GetString(line,"page=")) glyph.characterName = GetString(line,"letter=") glyph.characterName = glyph.characterName.Mid(1,glyph.characterName.Length-2) glyph.atlas = atlas[glyph.page] font.Add(glyph.id,glyph) End Select Next End Method Property Name:String() Return fontName End Property Height:Float() Return size End Property CharacterCount:int() Return charsCount End Method TextWidth:Int(text:string) Local width := 0 For Local char := Eachin text Local glyph := font.Get(char) If glyph width += glyph.xAdvance Else width += 8 Endif Next Return width End Method Method Render(canvas:Canvas,txt:String,x:float,y:Float) For Local char := Eachin txt Local glyph := font.Get(char) If glyph = Null Print "Invalid Character in text " + txt Else glyph.Render(canvas,x,y) x += glyph.xAdvance Endif Next End Method Private Method GetString:String(line:String,s:String) Local index:Int = s.Length + line.Find(s) Local text:String = "" While line[index] <> 32 And index < line.Length text += line.Mid(index,1) index += 1 Wend Return text End Method Field fontName:string Field size:Float Field lineHeight:Float Field atlasWidth:Float Field atlasHeight:Float Field pages:Float Field charsCount:Int Field atlas:Image[] Field atlasName:string Field font:Map<Int,Glyph> End Class   Class Glyph Field id:Int Field x:Int Field y:Int Field width:Int Field height:Int Field xOffset:Float Field yOffset:Float Field xAdvance:Float Field page:Int Field characterName:String Field atlas:Image Method Render(canvas:Canvas,px:Float,py:Float,angle:float = 0) canvas.DrawRect(px+xOffset,py+yOffset,width,height,atlas,x,y) End Method End Class

[/crayon]

You will need the “*.png” and “*.fnt” file produced by GLyphDesigner.

[Mark SiblyKeymaster]

Nice!

[JesseParticipant]

Thanks Mark!

I think It works with any program that produces the angel code font format, as long as it’s one page atlas. it’s not set up to work with multiple pages as Glyph Designer only produces a single page. so I can’t test it other wise I would set it up for multiple pages.

[AdamStrangeParticipant]

Excellent!

I’ve done some tests with bmGlyph exported fnt and it works. I did need to make some modification to the code though.

Here’s the code modified into a more compact class:

Monkey

class BitmapFont class BitmapGlyph method New() End method Field id:Int Field x:Int Field y:Int Field width:Int Field height:Int Field xOffset:Float Field yOffset:Float Field xAdvance:Float Field page:Int Field characterName:String End Field font:Map<Int, BitmapGlyph> Method New( fontName:string ) font = New Map<Int, BitmapGlyph> LoadFont( fontName ) End method Property Name:String() Return fontName End Property Height:Float() Return fontHeight End Property CharacterCount:int() Return charsCount End Method TextWidth:Int(text:string, xscale:float = 1 ) Local width:int = 0 For Local char := Eachin text Local glyph := font.Get(char) If glyph <> null Then width += glyph.xAdvance Else width += 8 Endif Next Return width * xscale End Method method LoadFont( fontName:string ) fontName = StripExt( fontName ) Local text:string = LoadString( fontName+".fnt" ) If text = Null Print "unable to load text" Local img:string = fontName+".png" _fontImage = Image.Load( img ) Local lines := text.Split( String.FromChar(10) ) For Local line := Eachin lines Select True Case line.Contains( "info face" ) Local i:int = 10 If line[i] = 34 i += 1 Local n:String = "" While line[i]<>34 n += line.Mid(i,1) i+=1 Wend fontName = n Endif size = Int(GetString(line,"Size=")) Case line.Contains("common") lineHeight = Float(GetString(line,"lineHeight=")) atlasWidth = Float(GetString(line,"scaleW=")) atlasHeight = Float(GetString(line,"scaleH=")) pages = Float(GetString(line,"pages=")) atlas = New Image[pages] Case line.Contains("page id") atlasName = GetString(line,"file=") atlasName = atlasName.Mid(1,atlasName.Length-2) atlas[0] = Image.Load("asset::"+atlasName) If atlas[0] = Null Print "invalid image "+atlasName Case line.Contains("chars count") charsCount = Int(GetString(line,"chars count=")) Case line.Contains("char id") ' Print Int( GetString(line,"char id=")) Local glyph:BitmapGlyph = New BitmapGlyph() glyph.id = Int( GetString(line,"char id=") ) glyph.x = Int( GetString(line,"x=") ) glyph.y = Int( GetString(line,"y=") ) glyph.width = Int( GetString(line,"width=") ) glyph.height = Int( GetString(line,"height=") ) If glyph.height > fontHeight Then fontHeight = glyph.height glyph.xOffset = Int( GetString(line,"xoffset=") ) glyph.yOffset = Int( GetString(line,"yoffset=") ) glyph.xAdvance = Int( GetString(line,"xadvance=") ) glyph.page = Int( GetString(line,"page=") ) glyph.characterName = GetString(line,"letter=" ) glyph.characterName = glyph.characterName.Mid( 1, glyph.characterName.Length-2 ) font.Add( glyph.id, glyph ) End Select Next End Method Method Render(canvas:Canvas, txt:String, x:float, y:Float, xscale:float = 1, yscale:float = 1) canvas.TextureFilteringEnabled = False For Local char := Eachin txt Local glyph := font.Get(char) If glyph = Null Then Print "Invalid Character in text " + txt Else canvas.DrawRect( x + (glyph.xOffset*xscale), y + (glyph.yOffset*yscale), glyph.width * xscale, glyph.height*yscale, _fontImage, glyph.x, glyph.y, glyph.width, glyph.height ) x += glyph.xAdvance * xscale Endif Next End Method private Field fontName:string Field size:Float Field lineHeight:Float Field atlasWidth:Float Field atlasHeight:Float Field pages:Float Field charsCount:Int Field atlas:Image[] Field atlasName:string field fontHeight:int = 0 field _fontImage:Image Method GetString:String( line:String ,s:String ) Local index:Int = s.Length + line.Find( s ) Local text:String = "" While line[index] <> 32 And index < line.Length text += line.Mid(index, 1) index += 1 Wend Return text End Method End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154

class BitmapFont class BitmapGlyph method New() End method   Field id:Int Field x:Int Field y:Int Field width:Int Field height:Int Field xOffset:Float Field yOffset:Float Field xAdvance:Float Field page:Int Field characterName:String End Field font:Map<Int, BitmapGlyph>   Method New( fontName:string ) font = New Map<Int, BitmapGlyph>   LoadFont( fontName ) End method Property Name:String() Return fontName End Property Height:Float() Return fontHeight End Property CharacterCount:int() Return charsCount End Method TextWidth:Int(text:string, xscale:float = 1 ) Local width:int = 0 For Local char := Eachin text Local glyph := font.Get(char) If glyph <> null Then width += glyph.xAdvance Else width += 8 Endif Next Return width * xscale End Method     method LoadFont( fontName:string ) fontName = StripExt( fontName ) Local text:string = LoadString( fontName+".fnt" ) If text = Null Print "unable to load text"   Local img:string = fontName+".png" _fontImage = Image.Load( img ) Local lines := text.Split( String.FromChar(10) ) For Local line := Eachin lines Select True Case line.Contains( "info face" ) Local i:int = 10 If line[i] = 34 i += 1 Local n:String = "" While line[i]<>34 n += line.Mid(i,1) i+=1 Wend fontName = n Endif size = Int(GetString(line,"Size=")) Case line.Contains("common") lineHeight = Float(GetString(line,"lineHeight=")) atlasWidth = Float(GetString(line,"scaleW=")) atlasHeight = Float(GetString(line,"scaleH=")) pages = Float(GetString(line,"pages=")) atlas = New Image[pages] Case line.Contains("page id") atlasName = GetString(line,"file=") atlasName = atlasName.Mid(1,atlasName.Length-2) atlas[0] = Image.Load("asset::"+atlasName) If atlas[0] = Null Print "invalid image "+atlasName Case line.Contains("chars count") charsCount = Int(GetString(line,"chars count=")) Case line.Contains("char id") ' Print Int( GetString(line,"char id=")) Local glyph:BitmapGlyph = New BitmapGlyph() glyph.id = Int( GetString(line,"char id=") ) glyph.x = Int( GetString(line,"x=") ) glyph.y = Int( GetString(line,"y=") ) glyph.width = Int( GetString(line,"width=") ) glyph.height = Int( GetString(line,"height=") ) If glyph.height > fontHeight Then fontHeight = glyph.height glyph.xOffset = Int( GetString(line,"xoffset=") ) glyph.yOffset = Int( GetString(line,"yoffset=") ) glyph.xAdvance = Int( GetString(line,"xadvance=") ) glyph.page = Int( GetString(line,"page=") ) glyph.characterName = GetString(line,"letter=" ) glyph.characterName = glyph.characterName.Mid( 1, glyph.characterName.Length-2 ) font.Add( glyph.id, glyph ) End Select Next End Method   Method Render(canvas:Canvas, txt:String, x:float, y:Float, xscale:float = 1, yscale:float = 1) canvas.TextureFilteringEnabled = False For Local char := Eachin txt Local glyph := font.Get(char) If glyph = Null Then Print "Invalid Character in text " + txt Else canvas.DrawRect( x + (glyph.xOffset*xscale), y + (glyph.yOffset*yscale), glyph.width * xscale, glyph.height*yscale, _fontImage, glyph.x, glyph.y, glyph.width, glyph.height ) x += glyph.xAdvance * xscale Endif Next End Method     private Field fontName:string Field size:Float Field lineHeight:Float Field atlasWidth:Float Field atlasHeight:Float Field pages:Float Field charsCount:Int Field atlas:Image[] Field atlasName:string field fontHeight:int = 0 field _fontImage:Image Method GetString:String( line:String ,s:String ) Local index:Int = s.Length + line.Find( s ) Local text:String = "" While line[index] <> 32 And index < line.Length text += line.Mid(index, 1) index += 1 Wend Return text End Method   End

it’s basically the same but with the font rendering moved about a bit and the class names renamed so they don’t clash with any mojo stuff

P.S. I’ve also added the ability to scale in the x and y direction and corrected the height property

[JesseParticipant]

Good job Adam! I didn’t think about putting the glyph class inside the font class but I like it.

[AdamStrangeParticipant]

If you’re like I can add italics and some other bits n bobs?

[JesseParticipant]

I just saw your last post. Yes, that would help.

[Author]

Posts