print + scroll text big to an image (is there a better way?)

[ukdave74]

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)