-
Notifications
You must be signed in to change notification settings - Fork 1
/
14-MusicSpacial.sb
65 lines (52 loc) · 1.77 KB
/
14-MusicSpacial.sb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
;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("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
; IDE Options = SpiderBasic 2.20 (Windows - x86)
; CursorPosition = 32
; Folding = -
; WebAppName = MusicSpatial
; HtmlFilename = musicspatial.html
; JavaScriptFilename = musicspacial.js
; JavaScriptPath = sb
; iOSAppOrientation = 0
; AndroidAppOrientation = 0
; EnableXP
; CompileSourceDirectory