Différences

Ci-dessous, les différences entre deux révisions de la page.

--- playground:musicspacial [2017/05/12 15:50] – créée falsam
+++ playground:musicspacial [2023/03/15 15:49] (Version actuelle) – modification externe 127.0.0.1
@@ Ligne 1: / Ligne 1: @@
+**14-MusicSpacial.sb**
+[[http://falsam.com/sbbjs/musicspatial.html|Voir]]
+<file purebasic  14-MusicSpacial.sb>
+;Babylon.sbi - Music Spatial
+EnableExplicit
+IncludeFile "babylon/babylon.sbi"
+UseModule BJS
+Global Scene, Camera, Light, Sound1, Sound2, Ground, GroundTex, 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, #BJS_Free)
+    CameraBodySize(Camera, 2, 20, 2)
+    CameraLookAt(Camera, 0, 10, 1000)
+    ClearScene(RGB(0, 0, 0))
+    Light = CreateLight("Light", 0, 100, 0, 1, #BJS_Point)
+    ;Ground
+    Ground = CreateGround("Ground", 5000, 5000, 4)
+    GroundTex = LoadTexture("Ground", "data/textures/Beton1.png")
+    GroundMat = CreateMaterial("Ground")
+    SetMaterialTexture(GroundMat, #BJS_Diffuse, GroundTex)
+    ScaleMaterial(GroundMat, 40, 40)
+    SetMeshMaterial(Ground, GroundMat)
+    ;Music Pole
+    Pole1 = CreateSphere("Sound1", 10)
+    MoveMesh(Pole1, -100, 30, 200)
+    MusicAttachToMesh(Pole1, Sound1)
+    Pole2 = CreateSphere("Sound2", 10)
+    MoveMesh(Pole2, 100, 30, 200)
+    MusicAttachToMesh(Pole2, Sound2)
+    RenderLoop(@RenderGame())
+  EndIf
+EndProcedure
+Procedure RenderGame()
+  RenderWorld()
+EndProcedure
+</file>