Babylon.sbi for SpiderBasic

Ceci est une ancienne révision du document !
12-picking.sb
;Babylon.sbi - Picking
 
EnableExplicit
 
IncludeFile "babylon/babylon.sbi"
 
Declare LoadGame()
Declare RenderGame()
 
UseModule BJS
 
InitEngine(@LoadGame())
 
Procedure LoadGame()
  Protected Mesh
 
  If CreateScene()
    CreateCamera("camera", 5, 5, 10, #ArcRotate)
 
    CreateLight("Light", 0, 10, 0, 0.8, #Hemispheric)
 
    CreateGround("Sweet Ground", 10, 10)
    Mesh = CreateBox("My Box", 1)
    MoveMesh(Mesh, 0, 1, 0)
 
    Mesh = CreateSphere("Sphere", 0.5)    
    MoveMesh(Mesh, -2, 1, 1)
 
    Mesh = CreateCylinder("My Cylinder", 2, 1, 2)  
    MoveMesh(Mesh, 2, 1, -1)
 
    ;Active le systeme de picking
    PickEnable()
 
    RenderLoop(@RenderGame())
  EndIf
EndProcedure
 
Procedure RenderGame()
  Protected Mesh = IsPick() 
 
  If Mesh
    Debug "Name " + GetMeshName(Pick\mesh)
    Debug "Distance from camera " + PickDistance()  
    Debug "x/y/z " + StrD(PickX(), 3) + " / " + StrD(PickY(), 3) + " / " + StrD(PickZ(), 3) + #CRLF$
 
  EndIf  
 
  RenderWorld() 
EndProcedure