LightColor + Shininess bug

Hi,

It seems that changing the light color does not alter the lights shininess/specular properties. Try the following:

Graphics3D 640,480,0,2
SetBuffer BackBuffer()

camera = CreateCamera()
MoveEntity camera,0,0,-3

ball = CreateSphere(32)
EntityShininess ball,1

lite = CreateLight()
MoveEntity lite,10,0,-15
PointEntity lite,ball

Local r#,g#,b#

While Not KeyDown(1)

	If KeyHit(57)
		r# = 255
		g# = 200
		b# = 20
	Else
		r = r*0.95
		g = g*0.95
		b = b*0.95
		If r<1 Then r = 0
		If g<1 Then g = 0
		If b<1 Then b = 0
	EndIf

	LightColor lite,r,g,b

	RenderWorld
	
	Text 0,0,"Press Space"
	Text 0,10,"(R,G,B) = ("+r+","+g+","+b+")"
	
	Flip

	Delay 10

Wend

End

It shows a grey sphere with a white highlight, although the lightcolor is 0,0,0.

Tested on both Radeon and GeForce cards, so it's not a driver issue.