Code: Select all
InitSprite()
EnableExplicit
Define sprite_ID
Define output_width=800, output_height=800
Define window_ID=OpenWindow(#PB_Any, #PB_Ignore, #PB_Ignore, output_width, output_height, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
If Not OpenWindowedScreen(WindowID(window_ID), 0, 0, output_width, output_height) : End : EndIf
sprite_ID=CreateSprite(#PB_Any, 600, 100)
StartDrawing(SpriteOutput(sprite_ID))
Box(0, 0, 600, 100, $FF)
StopDrawing()
Repeat
FlipBuffers()
ClearScreen(RGB(0, 0, 0))
DisplaySprite(sprite_ID, 50, 50) ; Output at 50, 50 , OK
RotateSprite(sprite_ID, 45, #PB_Absolute)
DisplaySprite(sprite_ID, 50, 50) ; Fails, wrong output pos, fails on Lin and Mac
DisplaySprite(sprite_ID, 50, -150) ; Fails complete on all OS, you should see it
Until WaitWindowEvent()=#PB_Event_CloseWindow