Games Different sized text output

    cnv.DrawText( "Test", 50,200, xui.CreateFont2(Main.ninjaFont,32), 0xffffffff, "LEFT" )
    
    Dim rect As B4XRect
    rect.Initialize( 45,110,380,210 )
    cnv.DrawRect( rect, 0xffffffff, False, 1 )

   cnv.DrawText( "Test", 50dip,200dip, xui.CreateFont2(Main.ninjaFont,32), 0xffffffff, "LEFT" )
    
    Dim rect As B4XRect
    rect.Initialize( 45dip,110dip,380dip,210dip )
    cnv.DrawRect( rect, 0xffffffff, False, 1 )

Sub GetRealHeightFont( fontHeightInPixel As Float ) As B4XFont

    Dim fontHeight As Float = 50
    Dim realHeight As Float = 1000
    Do While Abs(realHeight - fontHeightInPixel) > 1
        Dim font As B4XFont = xui.CreateDefaultFont( fontHeight )
        Dim r As B4XRect = cnv.MeasureText( "Wq", font )
        Dim realHeight As Float = r.Bottom-r.Top
        fontHeight = fontHeight / ( realHeight / fontHeightInPixel )
    Loop

    Return font
End Sub