Trasparent color not being set correctly here...

[bplus]

Basically I just moved the call to _ClearColor to after the image was made and back to _dest 0

Code: (Select All)

Screen _NewImage(800, 600, 32)
credits& = _NewImage(800, 600, 32)

_Dest credits&

'just some sample text for now
For t = 1 To 1000
    Print Rnd;
Next

_Dest 0
_ClearColor _RGB32(0, 0, 0), credits&


For x = 1 To _Width
    For y = 1 To _Height
        PSet (x, y), _RGB32(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

a minute late I see also using _RGB32 for exact coloring. So back to _dest 0 didn't matter.