SUB RgbaPset(x,y,r,g,b,a)
    c = POINT(x,y)
    c$ = RIGHT$("000000" + HEX$(c), 6)
    cr = VAL("0x" + LEFT$(c$,2))
    cg = VAL("0x" + MID$(c$,3,2))
    cb = VAL("0x" + RIGHT$(c$,2))
    PSET(x,y), _RGB( [cr * (255-a)/255 + r * a / 255], _
                     [cg * (255-a)/255 + g * a / 255], _
                     [cb * (255-a)/255 + b * a / 255] )
END SUB

SCREEN _NEWIMAGE(1000,400,27)

for i = 1 to 1000
CIRCLE (RND*1000,RND*400), 10, _RGB(RND*256,RND*256,rnd*256), , , ,F
_delay 0.001
next i

for y = 399 TO 0 step -1
for x = 999 TO 299 step -1
 RgbaPset(x,y,0,0,255, int((x-299)/999*255) )
next x
_delay 0.001
next 7