je ne suis pas vraiment familier avec la 3D est-ce normal ou est-ce un bug ?
Code : Tout sélectionner
InitSprite()
InitSprite3D()
Global main =OpenWindow(#PB_Any,80,120,1280,900,"",#PB_Window_ScreenCentered|#PB_Window_SystemMenu)
Global scr =OpenWindowedScreen(WindowID(main),0,0,WindowWidth(main),WindowHeight(main),0,0,0)
; cree un sprite de 32x64 pixels
CreateSprite(0,32,64,#PB_Sprite_Texture)
StartDrawing(SpriteOutput(0))
Box(0,0,32,32,$ff00ff)
Box(0,32,32,32,$ffff00)
StopDrawing()
CreateSprite3D(0,0)
CreateSprite3D(1,0)
CreateSprite3D(2,0)
CreateSprite3D(3,0)
CreateSprite3D(4,0)
CreateSprite3D(5,0)
;
RotateSprite3D(1,90,0)
RotateSprite3D(2,180,0)
RotateSprite3D(3,270,0)
RotateSprite3D(4,360,0)
;
a=1
Repeat
ClearScreen(0)
Start3D()
DisplaySprite3D(0,0,0)
DisplaySprite3D(1,64,0)
DisplaySprite3D(2,128,0)
DisplaySprite3D(3,192,0)
DisplaySprite3D(4,256,0)
DisplaySprite3D(5,320,64)
counter+1
If counter=250
A=-A
counter=0
RotateSprite3D(5,A,1)
EndIf
;
DisplaySprite3D(1,0,128)
DisplaySprite3D(2,0,192)
DisplaySprite3D(3,0,256)
DisplaySprite3D(4,0,320)
Stop3D()
StartDrawing(ScreenOutput())
DrawText(0,96,"0°")
DrawText(64,96,"90°")
DrawText(128,96,"180°")
DrawText(192,96,"270°")
DrawText(256,96,"360°")
;
DrawText(128,128,"90°")
DrawText(128,192,"180°")
DrawText(128,256,"270°")
DrawText(128,320,"360°")
;
DrawText(380,64,"probleme des que le sprite 'tourne' l'affichage se decale ")
DrawText(380,80,"se produira quand le compteur "+Str(250-counter)+" atteind zero")
StopDrawing()
FlipBuffers()
Until WaitWindowEvent(1)=#PB_Event_CloseWindow