Modulate2x

Graphics 800,600
image:TImage=LoadImage("max.png")
While Not KeyHit(key_escape)
  Cls
    setmod2x()
    DrawImage image,0,0
    setmodnormal()
	DrawImage image,250,0
  Flip
Wend
Function setmod2x()
		PrimaryDevice.device.SetTextureStageState(0,D3DTSS_COLOROP,D3DTOP_MODULATE2X)
End Function
Function setmodnormal()
  		PrimaryDevice.device.SetTextureStageState(0,D3DTSS_COLOROP,D3DTOP_MODULATE) 
End Function