| 12345678910111213141516171819202122232425262728293031323334353637 |
- ; EntityShininess Example
- ; -----------------------
- Graphics3D 640,480
- SetBuffer BackBuffer()
- camera=CreateCamera()
- ; Set ambient light to a low level, to increase effect of shininess
- AmbientLight 32,32,32
- light=CreateLight()
- RotateEntity light,45,45,0
- sphere=CreateSphere(100)
- EntityColor Sphere,255,0,0
- PositionEntity sphere,0,0,4
- ; Set initial shine value
- shine#=0
- While Not KeyDown(1)
- ; Change shine value depending on key pressed
- If KeyDown(2)=True And shine#>0 Then shine#=shine#-0.01
- If KeyDown(3)=True And shine#<1 Then shine#=shine#+0.01
- ; Set entity shininess using shine value
- EntityShininess sphere,shine#
- RenderWorld
- Text 0,0,"Press keys 1-2 to change EntityShininess Setting"
- Text 0,20,"Entity Shininess: "+shine#
- Flip
- Wend
- End
|
