Hier lasse ich es im MP_Viewport laufen.
Wenn ich x jetzt auf -150 setze,setzt eine Bildstarre ein mit Streifen im Viewport ein, statt nur ein Teil des Viewport zu zeigen.
Gruss
Code: Alles auswählen
MP_Graphics3D (800,600,0,3)
SetWindowTitle(0, "Einfache Physik mit Cubes")
MP_Viewport(-150,10, 650,510)
camera=MP_CreateCamera()
light=MP_CreateLight(1)
Max = 30 ; Was der Rechner kann = ?
Dim wuerfel(Max)
Dim x(Max)
Dim y(Max)
Dim z(Max)
For n = 0 To Max
wuerfel (n) = MP_CreateCube()
MP_EntitySetColor (wuerfel (n),RGB(Random(255),Random(255),Random(255)))
MP_PositionEntity (wuerfel(n),10-Random(20),10-Random(20),10+Random(40))
x(n) = Random (20)/10
y(n) = Random (20)/10
z(n) = Random (20)/10
MP_EntitySetGravity(wuerfel(n), 0,-1 ,0)
MP_EntitySetVelocity(wuerfel(n), Random (1000)/100-5, Random (1000)/100-5,Random (1000)/100-5,0) ; Letzter Paramter = 0.1 testen
MP_EntitySetPhysik(wuerfel(n), 1 , 0.8 , 0.005 )
Next n
While Not MP_KeyDown(#PB_Key_Escape) And Not MP_WindowEvent() = #PB_Event_CloseWindow; Esc abfrage oder schliessen
MP_DrawText (2,2,Str(MP_FPS()))
For n = 0 To Max
MP_TurnEntity (wuerfel (n),x(n),y(n),z(n))
Next n
MP_UpdateWorld()
MP_RenderWorld ()
MP_Flip ()
Wend