Trasparent color not being set correctly here...

[Dav]

Ah.. Just got it working.  I needed to put _ClearColor AFTER printing the text.  Now it's scrolling. 

- Dav   (still holding the idiot of the day award )

Code: (Select All)

Screen _NewImage(800, 800, 32)

credits& = _NewImage(800, 800, 32)



_Dest credits&



'just some sample text for now

For t = 1 To 1000

    Print Rnd;

Next



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





_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