SkyDome()

Syntaxe

Resultat = SkyDome(TextureID, CouleurCiel , CouleurAurore, [NbCoucheNuage, Hauteur.f, VitesseX.f, VitesseZ.f])

Crée un ciel artificiel nuageux et animé en forme de dôme.

Arguments

TextureID	L'identifiant de la texture 'nuage' à utiliser. TextureID() peut être utilisé pour obtenir une valeur valide.
CouleurCiel	La couleur du ciel au format RGBA().
CouleurAurore	La couleur du levé de soleil au format RGBA().
NbCoucheNuage (optionnel)	Le nombre de couche de nuage, en commançant par 1.
Hauteur.f (optionnel)	La hauteur des nuages en unité monde (World).
VitesseX.f, VitesseZ.f (optionnel)	La vitesse de déplacement des nuages.

Valeur de retour

Renvoie une valeur non nulle en cas de succès, zéro sinon.

Exemple

  #EndDistance = 1024*4

  InitEngine3D() : InitSprite() : InitKeyboard()

  ExamineDesktops() : dx = DesktopWidth(0)*0.9 : dy = DesktopHeight(0)*0.9
  OpenWindow(0, 0, 0, DesktopUnscaledX(dx), DesktopUnscaledY(dy), "SkyDome - Press ESC to quit", #PB_Window_ScreenCentered)
  OpenWindowedScreen(WindowID(0), 0, 0, dx, dy, 0, 0, 0)

  Add3DArchive(#PB_Compiler_Home + "examples/3d/Data/Textures", #PB_3DArchive_FileSystem)
  Parse3DScripts()

  ; Camera
  CreateCamera(0, 0, 0, 100, 100)
  MoveCamera(0,0,5,0) 
  CameraLookAt(0,2,5,10)

  ; Sky
  TextureSky = LoadTexture(#PB_Any,"sky.png")
  SkyDome(TextureID(TextureSky), $cc6600, $0088ff, 3, 400, -0.5, 0)

  ; Sun
  CreateLight(0, $ff88ff, 20000, 40000, 20000)
  AmbientColor($010101)
  Fog($554488,1, 0, #EndDistance)

  Repeat
    While WindowEvent() : Wend
    ExamineKeyboard()
    
    RenderWorld()
    FlipBuffers()    
  Until KeyboardReleased(#PB_Key_Escape)

Voir aussi

SkyBox()

OS Supportés

Tous