少し前にatellさんが質問しているので記事検索したら見つかると思います。
-------------------------------------------------------------------
http://hsp.tv/play/pforum.php?mode=all&num=47020
に在りました。
gradf,,,,1,0xFF0000,0x0000FF
wait 100
gmode 3,,,100
grect 320,240,0,640,480
-------------------------------------------------------------------
http://hsp.tv/play/pforum.php?mode=all&num=47020
先ほどと同じ↑を参考に作りました。
少しずつ明るさを変える。
gradf,,,,1,0xFF0000,0x0000FF
repeat 255
gmode 3,,,
grect 320,240,0,640,480
await 1
loop
suzi=255
repeat 255
redraw 0
gradf,,,,1,0xFF0000,0x0000FF
gmode 3,,,suzi
grect 320,240,0,640,480
suzi=suzi-1
await 1
redraw 1
loop