; dxEntityShininess Example
; -----------------------

dxGraphics3D 640,480
dxSetBuffer dxBackBuffer()
camera=dxCreateCamera()
; Set ambient light to a low level, to increase effect of shininess

dxAmbientLight 32,32,32
light=dxCreateLight()
dxRotateEntity light,45,45,0

sphere=dxCreateSphere(100)
dxEntityColor Sphere,255,0,0
dxPositionEntity sphere,0,0,4

; Set initial shine value

shine#=0

While Not dxKeyDown(1)
; Change shine value depending on key pressed

If dxKeyDown(2)=True And shine#>0 Then shine#=shine#-0.01
If dxKeyDown(3)=True And shine#<1 Then shine#=shine#+0.01

; Set entity shininess using shine value
dxEntityShininess sphere,shine#

dxRenderWorld

dxText 0,0,"Press keys 1-2 to change dxEntityShininess Setting"
dxText 0,20,"Entity Shininess: "+shine#

dxFlip
Wend
End