Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: TempodiBasic on May 12, 2020, 07:32:50 pm

Title: _fontwidth & monospace
Post by: TempodiBasic on May 12, 2020, 07:32:50 pm
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]
  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")
  7. COLOR Green, white
  9. COLOR Black, Green
  11.  
and here the wiki
http://www.qb64.org/wiki/FONTWIDTH (http://www.qb64.org/wiki/FONTWIDTH)
Title: Re: _fontwidth & monospace
Post by: Petr on May 13, 2020, 02:02:24 pm
Hi. You can use _PRINTWIDTH (t$), this return complete t string width in this font.
Title: Re: _fontwidth & monospace
Post by: TempodiBasic on May 14, 2020, 03:39:14 am
Thanks Petr
this info save my goal with a workaround

_PRINTWIDTH(t$)/LEN(t$) will give me the pixel for each monospace character.
Title: Re: _fontwidth & monospace
Post by: TempodiBasic on May 14, 2020, 12:41:16 pm
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
  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.  
  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
  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
  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
  45. COLOR Green, White
  46. PRINT " by _printwidth() with same calculation"
  47. COLOR Black, Green
  48. _PRINTSTRING (X2, Y2), t
  50. COLOR Green, White
  51. PRINT " by _printwidth() "
  52. COLOR Black, Green
  53. _PRINTSTRING (X3, Y3), t
  55.  
Title: Re: _fontwidth & monospace
Post by: moises1953 on May 15, 2020, 01:28:40 am
Also you can use variables to loadfont:

Code: QB64: [Select]
  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$)
  11.  
  12. COLOR Green, white
  14. COLOR Black, Green
  16.  
Title: Re: _fontwidth & monospace
Post by: TempodiBasic on May 15, 2020, 07:13:03 am
Thank Moises1953

strange glitch

Code: QB64: [Select]
  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$)
  12.  
  13. COLOR Green, white
  14. LOCATE 1, 1
  16. COLOR Black, Green
  18.  
  20. LOCATE 10, 1
  21. COLOR Green, white
  23.  
  24. COLOR Black, Green
  26.  
  27.  
Title: Re: _fontwidth & monospace
Post by: bplus on May 15, 2020, 11:23:19 am
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.
Title: Re: _fontwidth & monospace
Post by: TempodiBasic on May 16, 2020, 09:18:19 am
Surely better with variables!  :-)
Text Only | Text with Attachments