-
Notifications
You must be signed in to change notification settings - Fork 1
/
01-Tube.sb
86 lines (65 loc) · 1.98 KB
/
01-Tube.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
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;Babylon.sbi - Tube
EnableExplicit
IncludeFile "babylon/babylon.sbi"
UseModule BJS
Enumeration
#mf
#mfRender
EndEnumeration
Global Scene, Camera, Tube, TubeMat, TubeTex, Light,
;A tube consists of an array of 3D vectors. Example with 5 vectors
Dim TubeVectors.NewVector(4)
Declare LoadGame()
Declare RenderGame()
;Window & Render
OpenWindow(#mf, 0, 0, 900, 600, "CreateTube()", #PB_Window_ScreenCentered)
CanvasGadget(#mfRender, 0, 0, 900, 600, #PB_Canvas_Transparent)
;Init Babylon with a canvas and load game
InitEngine(@LoadGame(), #mfRender)
Procedure LoadGame()
Scene = CreateScene()
If Scene
;Camera & Light
Camera = CreateCamera("camera", 0, 10, 20, #BJS_ArcRotate)
Light = CreateLight("light", 0, 20, 0, 0.8)
;Create Tube
TubeVectors(0)\x = 0
TubeVectors(0)\y = -2
TubeVectors(0)\z = 0
TubeVectors(1)\x = 0
TubeVectors(1)\y = 1
TubeVectors(1)\z = 0
TubeVectors(2)\x = 0
TubeVectors(2)\y = 2
TubeVectors(2)\z = 0
TubeVectors(3)\x = 0
TubeVectors(3)\y = 3
TubeVectors(3)\z = 0
TubeVectors(4)\x = 3
TubeVectors(4)\y = 4
TubeVectors(4)\z = 0
Tube = CreateTube("My tube", TubeVectors(), 2)
;Important : Assign a material
TubeTex = LoadTexture("data/textures/misc.jpg")
TubeMat = CreateMaterial("tube material")
SetMaterialTexture(TubeMat, #BJS_Diffuse, TubeTex)
SetMeshMaterial(Tube, TubeMat)
RenderLoop(@RenderGame())
EndIf
EndProcedure
Procedure RenderGame()
RotateMesh(Tube, 0, 0.01, 0, #PB_Relative)
RenderWorld()
EndProcedure
; IDE Options = SpiderBasic 2.20 (Windows - x86)
; CursorPosition = 63
; FirstLine = 11
; Folding = -
; WebAppName = Create Tube
; HtmlFilename = tube.html
; JavaScriptFilename = tube.js
; JavaScriptPath = sb
; iOSAppOrientation = 0
; AndroidAppOrientation = 0
; EnableXP
; CompileSourceDirectory