05-17-2023, 12:51 AM
I have been playing around with various ideas but it seems the fonts are loaded differently or displayed differently from 3.6.0 and 3.7.0. Not sure if I have to adjust what I am doing to make it look good again but, personally, I can't accept how they look. Here is a comparision side by side of the two different versions.
You can see the new hotness on the left and the old and busted on the right. Look at the '2's and 'o's. They are cut-off. The problem seems to show itself on lower font sizes where letters are being cut off. (the 3rd line is using a large font and being scaled down as a temp work around but still doesn't look as good as it should if you ask me...)
Here is a quick program ran in 3.7.0
Same code on 3.6.0
You can see in 3.7.0 that 'J' and '2' is being cut (oddly the 'o' isn't) and gets worse the smaller the font size loaded.
Here is the code:
A copy of the font file I used is attached, it is the same as the system installed Arial
Any work arounds or new ways of doing things, please let me know! Thanks
You can see the new hotness on the left and the old and busted on the right. Look at the '2's and 'o's. They are cut-off. The problem seems to show itself on lower font sizes where letters are being cut off. (the 3rd line is using a large font and being scaled down as a temp work around but still doesn't look as good as it should if you ask me...)
Here is a quick program ran in 3.7.0
Same code on 3.6.0
You can see in 3.7.0 that 'J' and '2' is being cut (oddly the 'o' isn't) and gets worse the smaller the font size loaded.
Here is the code:
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)
PRINT "1234567890-=`~!@#$%^&*()_+?:<>"
PRINT "abcdefghijklmonpqrstuvwxyz"
PRINT UCASE$("abcdefghijklmonpqrstuvwxyz")
PRINT
FONT LOADFONT("arial.ttf", 48)
LOCATE 5
PRINT "1234567890-=`~!@#$%^&*()_+?:<>"
PRINT "abcdefghijklmonpqrstuvwxyz"
PRINT UCASE$("abcdefghijklmonpqrstuvwxyz")
PRINT
DEST Font24
FONT LOADFONT("arial.ttf", 24)
PRINT "1234567890-=`~!@#$%^&*()_+?:<>"
PRINT "abcdefghijklmonpqrstuvwxyz"
PRINT UCASE$("abcdefghijklmonpqrstuvwxyz")
PRINT
DEST Font12
FONT LOADFONT("arial.ttf", 12)
PRINT "1234567890-=`~!@#$%^&*()_+?:<>"
PRINT "abcdefghijklmonpqrstuvwxyz"
PRINT UCASE$("abcdefghijklmonpqrstuvwxyz")
'LINE (0, 0)-(209, 39), , B
PRINT
DEST Screen1
'No scaling
PUTIMAGE (0, 350), Font24
PUTIMAGE (0, 450), Font12
'Scaling to see better
PUTIMAGE (300, 450)-(1140, 850), Font12
FONT 16
SLEEP
A copy of the font file I used is attached, it is the same as the system installed Arial
Any work arounds or new ways of doing things, please let me know! Thanks
WHILE NOT EndOfLife(1)
HappyLife = HappyWife - (Money * Time * Travel * Gifts)
Kids = (NoTime * LackOfLove) MOD NumOfKids
IF Retirement <> Rich THEN YearsOnJob = YearsOnJob + 1 ELSE SeeTheWorld
WEND
HappyLife = HappyWife - (Money * Time * Travel * Gifts)
Kids = (NoTime * LackOfLove) MOD NumOfKids
IF Retirement <> Rich THEN YearsOnJob = YearsOnJob + 1 ELSE SeeTheWorld
WEND