Outils pour utilisateurs

Outils du site


playground:music

Différences

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

Lien vers cette vue comparative

Les deux révisions précédentesRévision précédente
Prochaine révisionLes deux révisions suivantes
playground:music [2017/05/12 14:45] falsamplayground:music [2017/05/12 15:51] falsam
Ligne 1: Ligne 1:
 +**14-Music.sb**
 +
 +[[http://falsam.com/sbbjs/music.html|Voir]]
 +
 +<file purebasic  14-Music.sb>;Babylon.sbi - Music
 +;Babylon.sbi - Template minimum
 +
 +EnableExplicit
 +
 +IncludeFile "babylon/babylon.sbi"
 +UseModule BJS
 +
 +Global Scene, Camera, Light, Pop, Ground, GroundMat, Mesh
 + 
 +Declare LoadGame()
 +Declare RenderGame()
 +
 +InitEngine(@LoadGame())
 +
 +Procedure LoadGame()    
 +  Scene = CreateScene()
 +  If Scene
 +    
 +    ;Load Music
 +    MusicLoad("Loop", "data/sounds/loop.mp3", #True, #True)
 +    Pop = MusicLoad("pop", "data/sounds/pop.wav")
 +    
 +    ;Camera
 +    Camera = CreateCamera("camera", 0, 40, 20, #Free)
 +    CameraBodySize(Camera, 2, 20, 2)
 +    CameraLookAt(Camera, 500, 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")
 +    SetMaterialColor(GroundMat, #Specular, RGBA(0, 0, 0, 255))
 +    ScaleMaterial(GroundMat, 40, 40)
 +    SetMaterial(Ground, GroundMat)    
 +    CreateBody(Ground, #PlaneBody, 0, 0, 0)
 +    
 +    ;Shadow
 +    InitShadow(Light, 2048)
 +    RenderShadows(Ground)
 +    
 +    RenderLoop(@RenderGame())
 +  EndIf
 +EndProcedure
 +
 +Procedure RenderGame()  
 +  Select Random(1000, 1)
 +    Case 5, 25, 35
 +      
 +      Mesh = CreateSphere("sphere", Random(40, 20))
 +      CreateBody(Mesh, #SphereBody, 1, 0.5, 0.5)
 +      MoveMesh(Mesh, Random(500, 200), Random(500, 200), Random(500, 200))
 +      CreateBody(Mesh, #SphereBody, 10, 0.5, 10)
 +      ShadowEmitter(Mesh)
 +      MusicPlay(Pop)
 +      
 +    Case 10, 20, 30
 +      Mesh = CreateBox("Box", 1)
 +      ScaleMesh(Mesh, Random(40, 20), Random(20, 10), Random(40, 20))  
 +      CreateBody(Mesh, #BoxBody, 1, 0.5, 0.5)
 +      MoveMesh(Mesh, Random(500, 200), Random(500, 200), Random(500, 200))
 +      RotateMesh(Mesh, 0, Random(360), 0)
 +      CreateBody(Mesh, #BoxBody, 2, 1, 1)
 +      ShadowEmitter(Mesh)
 +      MusicPlay(Pop)
 +      
 +  EndSelect
 +     
 +  RenderWorld() 
 +EndProcedure
 +
 +</file>
  
playground/music.txt · Dernière modification : 2023/03/15 15:49 de 127.0.0.1