全画面を予めその加工をするなら、 var bgx,bgy,bgr,bgg,bgb,bgc=399 for bgy=0 to 239 for bgx=0 to 399 rgbread gspoit(bgx,bgy) out bgr,bgg,bgb gpset bgx,bgy,rgb(bgr+0+200*(bgx>=bgc and bgx<=bgc+10),bgg+128+200*(bgx>=bgc and bgx<=bgc+10),bgb+255+200*(bgx>=bgc and bgx<=bgc+10) bgc=bgc-1 next next という文にするかな。 あえてスパゲッティ。