Does this work?
` move mouse left/right to set the red diffuse value
` move mouse up/down to set the green diffuse value
` We will ignore blue for this test
sync on : sync rate 40
dw# = 255.0 / bitmap width()
dh# = 255.0 / bitmap height()
box 0,0,64,64 : get image 1,0,0,64,64,1
sprite 1,0,0,1 : offset sprite 1,32,32
do
mx = mousex() : my = mousey()
diffR = dw#*mx : diffG = dh#*my
set sprite diffuse 1, diffR, diffG, 0
sprite 1,mx,my,1
text 0,0,"Diffuse Values: Red = " + str$(diffR) + " Green = " + str$(diffG)
sync
loop
If not then it's either:
1) You're not updated with Patch 4 (sprite diffuse didn't work before this patch)
2) Your Gfx card is not capable of diffusing. To be honest I'm not sure if diffuse is hardware sensitive.
3) A third possiblity is you're are running a 24bit display. DBPro has a few issues running in 24bit, this may be one of them, although I'm not 100 percent sure about that.
Programming anything is an art, and you can't rush art.
Unless your name is Bob Ross, then you can do it in thirty minutes.
