_fontwidth & monospace

[TempodiBasic]

Hi guys
I run in this issue
using a font monospace I get _FontWidth = 0 while the wiki says me that this case is the only exception to the result = 0....
What have I made wrong?
Thanks to take a look
here the code

Code: QB64: [Select]

1. DIM f AS LONG, t AS STRING
2. CONST white = _RGB32(255, 255, 255), Black = _RGB32(0, 0, 0), Green = _RGB32(0, 255, 0)
3. SCREEN _NEWIMAGE(800, 600, 32)
4. t = "text to attempt to write onscreen"
5. f = _LOADFONT("cour.ttf", 22, "monospace")
6. _FONT f
7. COLOR Green, white
8. PRINT f, _FONTWIDTH(f), _FONTHEIGHT(f)
9. COLOR Black, Green
10. PRINT t
11.  

and here the wiki
http://www.qb64.org/wiki/FONTWIDTH

[Petr]

Hi. You can use _PRINTWIDTH (t$), this return complete t string width in this font.

[TempodiBasic]

Thanks Petr
this info save my goal with a workaround

_PRINTWIDTH(t$)/LEN(t$) will give me the pixel for each monospace character.

[TempodiBasic]

thanks again

now I can center the text ...

example/demo

Code: QB64: [Select]

1. DIM f AS LONG, t AS STRING, Wfon AS INTEGER, Wfo AS INTEGER
2. DIM Hfo AS INTEGER, Wscr AS LONG, Hscr AS LONG, Lstr AS LONG
3. DIM Lstr2 AS LONG, X3 AS INTEGER, Y3 AS INTEGER
4. DIM X1 AS INTEGER, X2 AS INTEGER, Y1 AS INTEGER, Y2 AS INTEGER
5. CONST White = _RGB32(255, 255, 255), Black = _RGB32(0, 0, 0)
6. CONST Red = _RGB32(255, 0, 0), Green = _RGB32(0, 255, 0)
7.  
8. $CONSOLE
9. _CONSOLE ON
10.  
11. SCREEN _NEWIMAGE(800, 600, 32)
12. t = "text to attempt to write onscreen" ' the text to write
13. f = _LOADFONT("cour.ttf", 22, "monospace") ' the font used
14. _FONT f ' loading the font for output
15. Wscr = _WIDTH 'widht of screen
16. Hscr = _HEIGHT ' height  of screen
17. Wfo = _FONTWIDTH(f) ' width of font
18. Lstr2 = _PRINTWIDTH(t) ' pixel width of lenght of string
19. Wfon = Lstr2 / LEN(t) ' width of font calculate from _PrintWidth()
20. Hfo = _FONTHEIGHT(f) ' height of font
21. Lstr = Wfo * LEN(t) ' lenght of string calculated using _FontWidht
22. _SCREENMOVE _MIDDLE
23. _DEST _CONSOLE
24. PRINT f, Wfo, Hfo ' it shows _FontWidht 0 result
25. PRINT f, Wfon, Hfo
26. PRINT Wscr, Hscr, Lstr, Lstr2
27. X1 = (Wscr / 2) - (Wfo * LEN(t) / 2)
28. Y1 = 250
29. X2 = (Wscr / 2) - (Wfon * LEN(t) / 2)
30. Y2 = 350
31. X3 = (Wscr - Lstr2) / 2
32. Y3 = 420
33. PRINT X1, Y1
34. PRINT X2, Y2
35. PRINT X3, Y3
36. _DEST 0
37.  
38. LINE (Wscr / 2, 1)-(Wscr / 2, Hscr), Red
39. COLOR Green, White
40. PRINT "Text centered"
41. PRINT " by _Fontwidth"
42. COLOR Black, Green
43. _PRINTSTRING (X1, Y1), t
44. _DELAY 1
45. COLOR Green, White
46. PRINT " by _printwidth() with same calculation"
47. COLOR Black, Green
48. _PRINTSTRING (X2, Y2), t
49. _DELAY 1
50. COLOR Green, White
51. PRINT " by _printwidth() "
52. COLOR Black, Green
53. _PRINTSTRING (X3, Y3), t
54. _DELAY 1
55.  

[moises1953]

Also you can use variables to loadfont:

Code: QB64: [Select]

1. DIM f AS LONG, t AS STRING
2. CONST white = _RGB32(255, 255, 255), Black = _RGB32(0, 0, 0), Green = _RGB32(0, 255, 0)
3. SCREEN _NEWIMAGE(800, 600, 32)
4. t = "text to attempt to write onscreen"
5.  
6. myfont$ = "cour.ttf"
7. mysize% = 22
8. style$ = "monospace"
9. f = _LOADFONT(myfont$, mysize%, style$)
10. _FONT f
11.  
12. COLOR Green, white
13. PRINT f, _FONTWIDTH(f), _FONTHEIGHT(f)
14. COLOR Black, Green
15. PRINT t
16.  

[TempodiBasic]

Thank Moises1953

strange glitch

Code: QB64: [Select]

1. DIM f AS LONG, t AS STRING, f1 AS LONG
2. CONST white = _RGB32(255, 255, 255), Black = _RGB32(0, 0, 0), Green = _RGB32(0, 255, 0)
3. SCREEN _NEWIMAGE(800, 600, 32)
4. t = "text to attempt to write onscreen"
5.  
6. myfont$ = "cour.ttf"
7. mysize% = 22
8. style$ = "monospace"
9. f1 = _LOADFONT("cour.ttf", 22, "monospace")
10. f = _LOADFONT(myfont$, mysize%, style$)
11. _FONT f
12.  
13. COLOR Green, white
14. LOCATE 1, 1
15. PRINT f, _FONTWIDTH(f), _FONTHEIGHT(f)
16. COLOR Black, Green
17. PRINT t
18.  
19. _FONT f1
20. LOCATE 10, 1
21. COLOR Green, white
22. PRINT f1, _FONTWIDTH(f1), _FONTHEIGHT(f1)
23.  
24. COLOR Black, Green
25. PRINT t
26.  
27.  

[bplus]

Interesting! I wonder if _LOADFONT changes or attempts to change the passed value (ie byref) in the mySize% spot.

Update: No, it ( _FONTWIDTH(f) ) just works better with a variable.

[TempodiBasic]

Surely better with variables!  :-)