微々たる差かもしれませんが、あともう少しだけ結果を変えずに手を入れるなら……… FOR D#=256 TO 0-0.01 STEP -25.6 (略) D%=ROUND(D#) L%=LEN(PTN%)-1 FOR I%=0 TO L% RGBREAD (略) PTN%[I%]=(A%<<24)OR((R%*D%)>>8<<16)OR((G%*D%)AND &HFF00)OR((R%*D%)>>8) NEXT (以下略)