Comtois a écrit :ce code fonctionne
Non! Le chemin est incomplet. + Pas d'images avec les suffixes adéquats (BK, FR, etc...)
Le week-end est parfois dur. Bon courage pour la semaine!
Comtois a écrit :tu as quelle version ?
@Zelfu
Mes hommages du jour! Bienvenu!
Je te repose la même question! Est-ce que tu pourrais préciser la version que tu as?
Zelfu a écrit :dans Subsystem, j'ai un fichier opengl, et un autre nommé NT4.
Moi j'ai TROIS répertoires : OpenGL, NT4 et DirectX9
Est-ce que tu as ces 3 répertoires aussi? Tu n'as pas posté de réponse formelle à ce sujet.
Voilà, si tu réponds aux questions posées, ça est un tout petit peu plus facile de cerner le problème, pour toi comme pour les futures personnes à utiliser Ogre sous Windows!
Il faut SIX fichiers image (Cf >> Documentation de SkyBox() )
Teste ce code qui (logiquement, et je l'espère grandement...) fonctionne:
(Si des questions te viennent sur ce code, c'est sans problème pour y répondre. Aussi n'hésite pas à répondre pour dire si ça marche, si ça marche pas, etc...)
Woilà! Tschuess!
Code : Tout sélectionner
Dim SkySfx$(5)
SkySfx$(0) = "FR"
SkySfx$(1) = "BK"
SkySfx$(2) = "UP"
SkySfx$(3) = "DN"
SkySfx$(4) = "LF"
SkySfx$(5) = "RT"
Procedure Err(Mess.S)
MessageRequester("Erreur", "Problème avec " + Mess)
EndProcedure
Chemin$ = "examples\sources\Data"
MessageRequester("Attention!", "Il ne faut pas oublier de préciser «directx9» dans la bibliothèque sous-système des options du compilateur! Sinon ça ne marche pas!")
If InitEngine3D()
If InitSprite()
InitKeyboard()
If OpenWindow(0, 0, 0, 320, 320, "Touches GAUCHE et DROITE !!!", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If OpenWindowedScreen(WindowID(0),0,0, 256, 256, 0,0,0)
If Add3DArchive(Chemin$, #PB_3DArchive_FileSystem)
For I = 0 To 5
CopyFile(Chemin$ + "clouds.jpg", Chemin$ + "clouds_" + SkySfx$(I) + ".jpg")
Next I
If SkyBox("clouds.jpg")
If CreateCamera(0, 0, 0, 256, 256)
Repeat
FlipBuffers()
ExamineKeyboard()
If KeyboardPushed(#PB_Key_Left)
RotateCamera(0, 0, 4, 0, #PB_Relative)
EndIf
If KeyboardPushed(#PB_Key_Right)
RotateCamera(0, 0, -4, 0, #PB_Relative)
EndIf
RenderWorld()
Event = WindowEvent()
Delay(25)
Until Event = #PB_Event_CloseWindow
Else
Err("CreateCamera()")
EndIf
Else
Err("SkyBox()")
EndIf
Else
Err("Add3DArchive()")
EndIf
Else
Err("OpenWindowedScreen()")
EndIf
Else
Err("OpenWindow()")
EndIf
Else
Err("InitSprite()")
EndIf
Else
Err("InitEngine3D()")
EndIf