QB64 Phoenix Edition
print + scroll text big to an image (is there a better way?) - Printable Version

+- QB64 Phoenix Edition (https://qb64phoenix.com/forum)
+-- Forum: QB64 Rising (https://qb64phoenix.com/forum/forumdisplay.php?fid=1)
+--- Forum: Code and Stuff (https://qb64phoenix.com/forum/forumdisplay.php?fid=3)
+---- Forum: Works in Progress (https://qb64phoenix.com/forum/forumdisplay.php?fid=9)
+---- Thread: print + scroll text big to an image (is there a better way?) (/showthread.php?tid=3558)

Pages: 1 2 3

RE: print + scroll text big to an image (is there a better way?) - ukdave74 - 06-07-2025

(06-06-2025, 08:33 PM)ukdave74 Wrote: Here's one I wrote last year that uses an image for the font. The characters are 40*40, but it displays them 80*80
...
For extra weirdness change the _putimage line at 147 to
Code: (Select All)
_PutImage (MSG.PTR2, 120 - Lookup((MSG.PTR2 + MSG.Offset) * 2 Mod 1440).lSIN * 80)-(MSG.PTR2 + 80, 360 - Lookup((MSG.PTR2 + MSG.Offset) * 2 Mod 1440).lCOS * 80), iFont(Scroll(MSG.Ltr).Ltr)

Or
Code: (Select All)
_PutImage (MSG.PTR2, 220 - Lookup((MSG.PTR2 + MSG.Offset) * 2 Mod 1440).lSIN * 80)-(MSG.PTR2 + 80, 220 - Lookup((MSG.PTR2 + MSG.Offset) Mod 1440).lCOS * 80), iFont(Scroll(MSG.Ltr).Ltr)