Babylon.sbi for SpiderBasic

Outils pour utilisateurs

Outils du site

Piste :
playground:light

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évision		Révision précédente
playground:light [2017/05/09 02:23] – falsamplayground:light [2023/03/15 15:49] (Version actuelle) – modification externe 127.0.0.1
Ligne 9: Ligne 9:
  
 IncludeFile "babylon/babylon.sbi" IncludeFile "babylon/babylon.sbi"
 +UseModule BJS
  
-Global Scene, Camera, Light0, Light1, Light2, Ligh3, Mesh, Material+Global Scene, Camera, Light0, Light1, Light2, Ligh3, Mesh, Texture, Material
  
 Declare LoadGame() Declare LoadGame()
Ligne 20: Ligne 21:
   Scene = CreateScene()   Scene = CreateScene()
   If Scene   If Scene
-    Camera = CreateCamera("camera", 0, 10, 20, #ArcRotate)+    Camera = CreateCamera("camera", 0, 10, 20, #BJS_ArcRotate)
          
     ;Lights     ;Lights
-    CreateLight("General", 0, 20, 0, 0.2, #Hemispheric)+    CreateLight("General", 0, 20, 0, 0.2, #BJS_Hemispheric)
                  
-    Light0 = CreateLight("Red Light", -1, 10, -1, 1, #Spot) +    Light0 = CreateLight("Red Light", -1, 10, -1, 1, #BJS_Spot) 
-    SpotLightRange(Light0, 2, 10) +    SpotLightRange(Light0, 120, 40) 
-    SetLightColor(Light0, #Diffuse, RGB(255, 0, 0)) +    SetLightColor(Light0, #BJS_Diffuse, RGB(255, 0, 0)) 
-    SetLightColor(Light0, #Specular, RGB(0, 255, 0))+    SetLightColor(Light0, #BJS_Specular, RGB(0, 255, 0))
          
-    Light1 = CreateLight("Green Light", 5, 10, 1, 0.8, #Spot) +    Light1 = CreateLight("Green Light", 5, 10, 1, 0.8, #BJS_Spot) 
-    SpotLightRange(Light1, 2, 5) +    SpotLightRange(Light1, 130, 40) 
-    SetLightColor(Light1, #Diffuse, RGB(0, 255, 0)) +    SetLightColor(Light1, #BJS_Diffuse, RGB(0, 255, 0)) 
-    SetLightColor(Light1, #Specular, RGB(0, 255, 0))+    SetLightColor(Light1, #BJS_Specular, RGB(0, 255, 0))
                  
-    Light2 = CreateLight("Blue Light", -9, 10, -9, 1, #Spot) +    Light2 = CreateLight("Blue Light", -9, 10, -9, 1, #BJS_Spot) 
-    SpotLightRange(Light2, 2, 6) +    SpotLightRange(Light2, 140, 40) 
-    SetLightColor(Light2, #Diffuse, RGB(0, 0, 255)) +    SetLightColor(Light2, #BJS_Diffuse, RGB(0, 0, 255)) 
-    SetLightColor(Light2, #Specular, RGB(0, 255, 0))+    SetLightColor(Light2, #BJS_Specular, RGB(0, 255, 0))
                  
     ;Ground & Box     ;Ground & Box
-    Material = CreateMaterial("ground", "data/textures/floor.png")+    Texture = LoadTexture("Data/textures/floor.png") 
 +    Material = CreateMaterial("ground") 
 +    SetMaterialTexture(Material, #BJS_Diffuse, Texture)
     Mesh = CreateGround("ground", 30, 30)     Mesh = CreateGround("ground", 30, 30)
-    SetMaterial(Mesh, Material)+    SetMeshMaterial(Mesh, Material)
     ScaleMaterial(Material, 5, 5)     ScaleMaterial(Material, 5, 5)
          
-    Material = CreateMaterial("Box", "data/textures/crate.png") +    Texture = LoadTexture("Data/textures/crate.png") 
-    Mesh = CreateBox("Box", 5) +    Material = CreateMaterial("Box") 
-    SetMaterial(Mesh, Material)+    SetMaterialTexture(Material, #BJS_Diffuse, Texture) 
 +    SetMaterialColor(Material, #BJS_Emissive, RGB(80, 80, 80)) 
 +    Mesh = CreateBox("Box", 5, 5, 5) 
 +    SetMeshMaterial(Mesh, Material)
     MoveMesh(Mesh, 0, 2.5, 0)     MoveMesh(Mesh, 0, 2.5, 0)
                  
Ligne 56: Ligne 62:
  
 Procedure RenderGame() Procedure RenderGame()
-  Static z.f 
-    
   RenderWorld()    RenderWorld() 
 EndProcedure EndProcedure
 </file> </file>
playground/light.1494289393.txt.gz · Dernière modification : 2023/03/15 15:51 (modification externe)