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

[bplus]

Hello in red on white at 12X's height in the middle of the screen:

Code: (Select All)

Screen _NewImage(800, 600, 32): _ScreenMove 250, 60
s$ = " Hello "
ls = Len(s$)
mult = 12
Text (800 - ls * _FontWidth * mult) / 2, (600 - _FontHeight * mult) / 2, mult * _FontHeight, &HFFFF0000, &HFFFFFFFF, s$


Sub Text (x, y, textHeight, fore As _Unsigned Long, back As _Unsigned Long, txt$)
    Dim fg As _Unsigned Long, bg As _Unsigned Long, cur&, i&
    fg = _DefaultColor: bg = _BackgroundColor: cur& = _Dest
    i& = _NewImage(8 * Len(txt$), 16, 32)
    _Dest i&: Color fore, back: _PrintString (0, 0), txt$
    _PutImage (x, y)-Step(Len(txt$) * textHeight / 2, textHeight), i&, cur&
    Color fg, bg: _FreeImage i&: _Dest cur&
End Sub