Babylon.sbi for SpiderBasic

Ceci est une ancienne révision du document !
09-Water.sb
;Babylon.sbi - Water
 
EnableExplicit
 
IncludeFile "babylon/babylon.sbi"
 
Global Camera, Light, Sky, Ground, GroundMat, Water
 
Declare LoadGame()
Declare RenderGame()
 
UseModule BJS
 
InitEngine(@LoadGame())
 
Procedure LoadGame()  
  If CreateScene()
 
    ;Camera & Light
    Camera = CreateCamera("camera", 0, 20, 80, #Free)
    CameraBodySize(Camera, 1, 10, 1)
 
    Light = CreateLight("Light", 0, 100, 100, 0.8, #Hemispheric)
 
    ;SkyBox
    Sky = SkyBox("Santa", "data/textures/sky/cloud", 1000)
 
    ;Ground
    Ground = CreateGround("grass", 1000, 1000)
    GroundMat = CreateMaterial("grass", "data/textures/grass.jpg")
    ScaleMaterial(GroundMat, 64, 64)
    SetMaterial(Ground, GroundMat)
    MoveMesh(Ground, 0, -2, 0)
 
    ;Water
    Water = CreateWater("water", "data/textures/waterbump.png", 1000, 1000, 64)
 
    WaterRenderList(Water, Ground)
    WaterRenderList(Water, Sky)
 
    RenderLoop(@RenderGame())
  EndIf
EndProcedure
 
Procedure RenderGame()   
  RenderWorld() 
EndProcedure