| 1234567891011121314151617181920212223242526272829303132333435363738394041424344 |
- ; Load3DSound Example
- ; -------------------
- Graphics3D 640,480
- SetBuffer BackBuffer()
- camera=CreateCamera()
- PositionEntity camera,0,1,-10
- light=CreateLight()
- RotateEntity light,90,0,0
- plane=CreatePlane()
- ground_tex=LoadTexture("media/Chorme-2.bmp")
- EntityTexture plane,ground_tex
- cube=CreateCube()
- cube_tex=LoadTexture("media/b3dlogo.jpg")
- EntityTexture cube,cube_tex
- PositionEntity cube,0,1,0
- microphone=CreateListener(camera) ; Create listener, make it child of camera
- sound=Load3DSound("media/ufo.wav") ; Load 3D sound
- While Not KeyDown(1)
- If KeyDown(205)=True Then TurnEntity camera,0,-1,0
- If KeyDown(203)=True Then TurnEntity camera,0,1,0
- If KeyDown(208)=True Then MoveEntity camera,0,0,-0.05
- If KeyDown(200)=True Then MoveEntity camera,0,0,0.05
- ; If left mouse button hit then emit sound from cube
- If MouseHit(1) = True Then EmitSound(sound,cube)
- RenderWorld
- Text 0,0,"Use cursor keys to move about"
- Text 0,20,"Press left mouse button to make a sound be emitted from the cube"
- Flip
- Wend
- End
|
