Font Clipping

[xband]

Some fonts are getting cut off at the top using _PRINTSTRING. It happens with consolas and a handful of other fonts.

Is this a bug?

Code: QB64: [Select]

1. OPTION _EXPLICIT
2. DIM mscreen AS INTEGER
3. DIM rootpath AS STRING
4. DIM fontfile AS STRING
5. DIM fonthandle AS INTEGER
6.  
7. DIM xoffset AS INTEGER
8. DIM yoffset AS INTEGER
9.  
10. DIM CH(1 TO 72) AS STRING
11. DIM i AS INTEGER
12. FOR i = 1 TO 63
13.     CH(i) = CHR$(33 + i)
14. NEXT
15. CH(64) = "{"
16. CH(65) = "|"
17. CH(66) = "}"
18. CH(67) = "~"
19. CH(68) = CHR$(30)
20. CH(69) = CHR$(31)
21. CH(70) = CHR$(16)
22. CH(71) = CHR$(17)
23. CH(72) = CHR$(1)
24.  
25.  
26. rootpath = ENVIRON$("SYSTEMROOT")
27. fontfile = "consola.ttf"
28. fonthandle = _LOADFONT(fontfile, 60, "MONOSPACE")
29.  
30. mscreen = _NEWIMAGE(1024, 1024, 32)
31. SCREEN mscreen
32.  
33. _FONT fonthandle, mscreen
34. xoffset = 0
35. yoffset = 0
36.  
37. '_CLEARCOLOR _RGB(0, 0, 0), mscreen
38. _PRINTMODE _KEEPBACKGROUND , mscreen
39.  
40. DO
41.     CLS , _RGB(30, 30, 30)
42.     '===============
43.     xoffset = 0
44.     yoffset = 0
45.     FOR i = 1 TO 72
46.         _PRINTSTRING (xoffset, yoffset), CH(i)
47.         xoffset = xoffset + 64
48.         IF xoffset > 960 THEN
49.             xoffset = 0
50.             yoffset = yoffset + 64
51.         END IF
52.     NEXT
53.     '===============
54.     _LIMIT 60
55.     _DISPLAY
56. LOOP
57.  
58.  
59.  

[Petr]

Hi. It's a known bug. I wouldn't expect any repair anytime soon.
We talking about this year back.... https://www.qb64.org/forum/index.php?topic=247.msg1301;topicseen#msg1301

[xband]

ah ok, fortunately i was able to find a different font with a similar style that didn't clip. thanks.

[OldMoses]

OK, that explains the effect I'm seeing in my project, though it seems to manifest at different points inconsistently. Not a major issue as it can still be read well enough to tell what's going on.