| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546 |
- ; FreeTexture Example
- ; -------------------
- Graphics3D 640,480
- SetBuffer BackBuffer()
- camera=CreateCamera()
- light=CreateLight()
- RotateEntity light,90,0,0
- cube=CreateCube()
- PositionEntity cube,0,0,5
- ; Load texture
- tex=LoadTexture("../media/b3dlogo.jpg")
- ; Texture cube with texture
- EntityTexture cube,tex
- While Not KeyDown( 1 )
- ; If spacebar pressed then free texture
- If KeyHit( 57 )=True Then FreeTexture tex
- pitch#=0
- yaw#=0
- roll#=0
- If KeyDown( 208 )=True Then pitch#=-1
- If KeyDown( 200 )=True Then pitch#=1
- If KeyDown( 203 )=True Then yaw#=-1
- If KeyDown( 205 )=True Then yaw#=1
- If KeyDown( 45 )=True Then roll#=-1
- If KeyDown( 44 )=True Then roll#=1
- TurnEntity cube,pitch#,yaw#,roll#
-
- RenderWorld
- Text 0,0,"Press spacebar to free texture"
- Text 0,20,"As you can see this will not effect already textured entities"
- Flip
- Wend
- End
|
