Trasparent color not being set correctly here...

[Dav]

What am I missing in this code?  I've done this before using _CLEARCOLOR, but for some reason it's not working this time.  I must have forgotten how to use it correctly....

I was going to make a scrolling credits over the screen, using a separate screen image of text to scroll over the main display.  Setting the background color of the credits screen as transparent it should work, but I'm not getting there.  Using _CLEARCOLOR.

- Dav

Code: (Select All)

Screen _NewImage(800, 800, 32)

credits& = _NewImage(800, 800, 32)



_Dest credits&

_ClearColor _RGB(0, 0, 0), credits&



'just some sample text for now

For t = 1 To 1000

    Print Rnd;

Next



_Dest 0

For x = 1 To _Width

    For y = 1 To _Height

        PSet (x, y), _RGB(Rnd * 100, Rnd * 100, Rnd * 100)

    Next

Next

back& = _CopyImage(_Display)



y = _Height

Do

    _PutImage (0, 0), back&

    _PutImage (0, y), credits&

    y = y - 10

    _Display

    _Limit 30

Loop Until y < -_Height