_SETALPHA Question

[TerryRitchie]

Well son of a pup that worked. Thank you.

The Wiki entry for _SETALPHA needs to be rewritten to make this more clear. I'm also going to need to revise Lesson 14 of the tutorial to reflect this information.

Code: (Select All)

'|
'| Fade in a red box test
'|

DIM RedBox AS LONG
DIM TempBox AS LONG
DIM c AS INTEGER

SCREEN _NEWIMAGE(640, 480, 32)

RedBox = _NEWIMAGE(320, 240, 32)
_DEST RedBox
CLS , _RGB32(255, 0, 0)
_DEST 0

c = 0
DO
    CLS
    _LIMIT 30
    _SETALPHA c, _RGBA(255, 0, 0, 0) TO _RGBA32(255, 0, 0, 255), RedBox
    _PUTIMAGE (159, 119), RedBox
    _DISPLAY
    c = c + 1
LOOP UNTIL c = 256