Code : Tout sélectionner
;
IncludeFile "Screen3DRequester.pb"
Global EXEDIR$ = GetCurrentDirectory()
Define.f KeyX, KeyY, MouseX, MouseY
If InitEngine3D()
InitSprite()
InitKeyboard()
InitMouse()
Filter$ = " Mesh (*.mesh)|*.mesh;*.meshes|All files (*.*)|*.*"
Filter = 0
File$ = OpenFileRequester("Choose a mesh to view", GetCurrentDirectory(), Filter$, Filter)
If File$
Path$ = GetPathPart(File$)
MeshFileName$ = GetFilePart(File$)
Debug Path$
Else
MessageRequester("Information", "No file selected", 0)
End
EndIf
If Screen3DRequester()
refresh_rate.l = 60
SetRefreshRate(refresh_rate)
SetFrameRate(refresh_rate)
path$=RemoveString(path$,EXEDIR$)
Add3DArchive(Path$, #PB_3DArchive_FileSystem)
Add3DArchive("", #PB_3DArchive_FileSystem)
LoadMesh (1, MeshFileName$)
CreateEntity(1, MeshID(1), #PB_Material_None)
Parse3DScripts()
AmbientColor(RGB(255, 255, 255))
CreateLight(0, RGB(255, 255, 255))
LightLocate(0, -20000, 20000, 10000)
;--- Camera
;Little computation to convert our pixels window to the % ogre
level_min_x = 0
level_min_y = 0
level_max_x = 1024
level_max_y = 768
level_width = level_max_x - level_min_x
level_height = level_max_y - level_min_y
CreateCamera(0, (level_min_x * 100) / ScreenWidth, (level_min_y * 100) / ScreenHeight, (level_width * 100) / ScreenWidth, (level_width * 100) / ScreenWidth)
cam_x.f = 0
cam_y.f = 0
cam_z.f = 5
CameraLocate(0, cam_x, cam_y, cam_z)
Repeat
Screen3DEvents()
ClearScreen(RGB(0, 0, 0))
i.f+0.002
CameraLocate(0, (1 + Sin(i / 2)) * 5 * Sin(i * 0.4), 5 * Sin(i), (1 + Sin(i / 2)) * 5 * Cos(i * 0.4))
CameraLookAt(0, 0 , 0, 0)
RenderWorld()
Screen3DStats()
FlipBuffers(#PB_Screen_SmartSynchronization)
Until KeyboardPushed(#PB_Key_Escape) Or Quit = 1
EndIf
Else
MessageRequester("Error", "The 3D Engine can't be initialized",0)
EndIf
EndTu vois d'où ça peut venir?10:44:46: Added resource location './cube/' of type 'FileSystem' to resource group 'General'
10:44:46: Added resource location './.' of type 'FileSystem' to resource group 'General'
10:44:46: Mesh: Loading cube.mesh.
10:44:46: WARNING: cube.mesh is an older format ([MeshSerializer_v1.30]); you should upgrade it as soon as possible using the OgreMeshUpgrade tool.
10:44:46: Can't assign material cube to SubEntity of E1 because this Material does not exist. Have you forgotten to define it in a .material script?
