05-17-2023, 02:10 PM
Further testing shows that this is a glitch on our c-side of things, and is something that we should be able to sort out and correct in a future patch. For now, you can load your font with the "dontblend" option and it should display without any issues, as showcased below:
Good news is this doesn't seem to be an overtly complex issue to replicate and isolate, and hopefully won't be too hard to fix for when the next version of QB64PE comes out.
Code: (Select All)
Dim As Long Screen1, Font24, Font12
$NoPrefix
Screen1 = NewImage(1280, 720, 32)
Font24 = NewImage(600, 300, 32)
Font12 = NewImage(210, 100, 32)
Screen Screen1
Font LoadFont("arial.ttf", 60, "dontblend")
Print "1234567890-=`~!@#$%^&*()_+?:<>"
Print "abcdefghijklmonpqrstuvwxyz"
Print UCase$("abcdefghijklmonpqrstuvwxyz")
Sleep
UPrintString (0, 4 * ULineSpacing), "1234567890-=`~!@#$%^&*()_+?:<>"
UPrintString (0, 5 * ULineSpacing), "abcdefghijklmonpqrstuvwxyz"
UPrintString (0, 6 * ULineSpacing), UCase$("abcdefghijklmonpqrstuvwxyz")
Sleep
Cls
Font LoadFont("arial.ttf", 48, "dontblend")
Print "1234567890-=`~!@#$%^&*()_+?:<>"
Print "abcdefghijklmonpqrstuvwxyz"
Print UCase$("abcdefghijklmonpqrstuvwxyz")
Print
UPrintString (0, 4 * ULineSpacing), "1234567890-=`~!@#$%^&*()_+?:<>"
UPrintString (0, 5 * ULineSpacing), "abcdefghijklmonpqrstuvwxyz"
UPrintString (0, 6 * ULineSpacing), UCase$("abcdefghijklmonpqrstuvwxyz")
Sleep
Cls
Font LoadFont("arial.ttf", 24, "dontblend")
Print "1234567890-=`~!@#$%^&*()_+?:<>"
Print "abcdefghijklmonpqrstuvwxyz"
Print UCase$("abcdefghijklmonpqrstuvwxyz")
Print
UPrintString (0, 4 * ULineSpacing), "1234567890-=`~!@#$%^&*()_+?:<>"
UPrintString (0, 5 * ULineSpacing), "abcdefghijklmonpqrstuvwxyz"
UPrintString (0, 6 * ULineSpacing), UCase$("abcdefghijklmonpqrstuvwxyz")
_Delay 5
Sleep
Cls
Font LoadFont("arial.ttf", 12, "dontblend")
Print "1234567890-=`~!@#$%^&*()_+?:<>"
Print "abcdefghijklmonpqrstuvwxyz"
Print UCase$("abcdefghijklmonpqrstuvwxyz")
'LINE (0, 0)-(209, 39), , B
Print
UPrintString (0, 4 * ULineSpacing), "1234567890-=`~!@#$%^&*()_+?:<>"
UPrintString (0, 5 * ULineSpacing), "abcdefghijklmonpqrstuvwxyz"
UPrintString (0, 6 * ULineSpacing), UCase$("abcdefghijklmonpqrstuvwxyz")
Sleep
System
Good news is this doesn't seem to be an overtly complex issue to replicate and isolate, and hopefully won't be too hard to fix for when the next version of QB64PE comes out.