playground:musicspacial
Ceci est une ancienne révision du document !
14-MusicSpacial.sb
- 14-MusicSpacial.sb
EnableExplicit IncludeFile "babylon/babylon.sbi" UseModule BJS Global Scene, Camera, Light, Sound1, Sound2, Ground, GroundMat, Pole1, Pole2 Declare LoadGame() Declare RenderGame() InitEngine(@LoadGame()) Procedure LoadGame() Scene = CreateScene() If Scene ;Load Music MusicLoad("Loop", "data/sounds/loop.mp3", #True, #True) Sound1 = MusicLoad("Sound1", "data/sounds/calm.wav", #True, #True) Sound2 = MusicLoad("Sound2", "data/sounds/ambience.wav", #True, #True) ;Camera Camera = CreateCamera("camera", 0, 40, 20, #Free) CameraBodySize(Camera, 2, 20, 2) CameraLookAt(Camera, 0, 10, 1000) ClearScene(RGB(0, 0, 0)) Light = CreateLight("Light", 0, 100, 0, 1, #Point) ;Ground Ground = CreateGround("Ground", 5000, 5000, 4) GroundMat = CreateMaterial("Ground", "data/textures/Beton1.png") ScaleMaterial(GroundMat, 40, 40) SetMaterial(Ground, GroundMat) ;Music Pole Pole1 = CreateSphere("Sound1", 10) MoveMesh(Pole1, -100, 30, 200) MusicAttachToMesh(Sound1, Pole1) Pole2 = CreateSphere("Sound2", 10) MoveMesh(Pole2, 100, 30, 200) MusicAttachToMesh(Sound2, Pole2) RenderLoop(@RenderGame()) EndIf EndProcedure Procedure RenderGame() RenderWorld() EndProcedure
playground/musicspacial.1494612475.txt.gz · Dernière modification : 2023/03/15 15:51 (modification externe)