Big ugly font difference between QB64 v1.4 and QB64 1.5 (and QB64 v2.0)

[SMcNeill]

Repeat:
That Monospace is worthless to me, it's way too wide. How can I get like a guaranteed 12 X 24, 32 X 64, 48 x 96, 10 X 20 for all characters?

Choose a font designed in that 2:1 ratio by its designer.  Arial isn't a monospaced font natively, as that "W" is 3 times the width as that "l".  Check your system for monospace fonts and see how they're designed.  Many are on a .5 ratio, a few are .6, and I've seen some that are .8 ratios.  It all depends on how they were created at design time.

The only monospaced TrueType fonts shipped by Microsoft are Courier New, which shipped with Windows 3.1, and Lucida Sans Typewriter, which was included in the TrueType Font Pack. All other TrueType fonts included with Windows 3.1 and the TrueType Font Pack are proportional fonts.

If neither of those work for you, get one from here that you like: https://www.1001fonts.com/monospaced-fonts.html

[bplus]

Thankyou Steve, that link looks perfect but I will try the two as well.

Well looks like I have to rewrite my calendar code to fit in boxes, I am testing sub for centering unpredictable length text on x, y midpoints:

Code: QB64: [Select]

1. Screen _NewImage(600, 600, 32)
2. _Delay .25
3.  
4. Line (300, 50)-(500, 200), , B
5. FH = _LoadFont("Arial.ttf", 24)
6. If FH <= 0 Then Print "Trouble with font load file, goodbye.": Sleep: End
7. CH = _FontHeight(FH): CW = _FontWidth(FH)
8. _Font FH
9. Print "Hello World", CW, CH, _PrintWidth("Hello World")
10. centerText (500 + 300) / 2, 100, "Hello World"
11. FH2 = _LoadFont("Arial.ttf", 18)
12. CH2 = _FontHeight(FH): CW2 = _FontWidth(FH2)
13. _Font FH2
14. Locate 2, 1
15. Print "Hello World", CW, CH, _PrintWidth("Hello World")
16. centerText (500 + 300) / 2, 150, "Hello World"
17.  
18.  
19. Sub centerText (midx, midy, s$)
20.     ' if you want to center fit a string between two goal posts x1, and x2
21.     ' for midx plug in (x1+x2)/2 and let the computer do the calcs
22.     pw = _PrintWidth(s$)
23.     _PrintString (midx - pw / 2, midy - _FontHeight(_Font) / 2), s$
24. End Sub
25.  
26.  
27.  

[SMcNeill]

As long as you're using PRINTWIDTH and not FONTWIDTH, the only real change you'll probably need to make is to remove that last parameter from your LOADFONT statement.

[bplus]

Courier and Lucinda pretty good as Monospaced:

Code: QB64: [Select]

1. Screen _NewImage(600, 600, 32)
2. _Delay .25
3.  
4. 'center lines
5. Line (300, 50)-(500, 200), , B
6. Line (300, 100)-(500, 100)
7. Line (300, 150)-(500, 150)
8. Line (400, 50)-(400, 200)
9.  
10. FH = _LoadFont("courbd.ttf", 24, "MONOSPACE") 'Courier New Bold
11. If FH <= 0 Then Print "Trouble with font load file, goodbye.": Sleep: End
12. CH = _FontHeight(FH): CW = _FontWidth(FH)
13. _Font FH
14. Print "Hello World"; CW; CH; _PrintWidth("Hello World")
15. centerText 500, 300, 100, "Hello World"
16. FH2 = _LoadFont("LTYPEB.TTF", 10, "MONOSPACE") 'Lucinda Sans Typewriter  Bold
17. CH2 = _FontHeight(FH2): CW2 = _FontWidth(FH2)
18. _Font FH2
19. Locate 4, 1
20. Print "Hello World"; CW2; CH2; _PrintWidth("Hello World")
21. centerText 500, 300, 150, "Hello World"
22.  
23.  
24. Sub centerText (x1, x2, midy, s$) ' ' if you want to center fit a string between two goal posts x1, and x2
25.     _PrintString ((x1 + x2) / 2 - _PrintWidth(s$) / 2, midy - _FontHeight(_Font) / 2), s$
26. End Sub
27.  
28.  
29.  

[bplus]

Update: Just removing the "MONOSPACE" did easily fix my calendar update, thanks again plus, I now have a couple ways to manage fonts either by Monospace with a proper Monospace font or use CenterText sub perhaps with a mod for destination handle. I just got a new printer going and I am sure this issue of fitting font inside rectangles will come up again.

PS learned MONOSPACE no longer required for .ttf type files.