you can open a screen on a gadgetOpenWindowedScreen(GadgetID(0), 0, 0, ScreenW, ScreenH)
Code: Select all
#MainWin = 0
#ScreenWin = 1
ScreenW = 2048
ScreenH = 2048
InitSprite()
If OpenWindow(#MainWin, 0, 0, 400, 300, Str(ScreenW) + " x " + Str(ScreenH), #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget)
MDIGadget(0, 0, 0, WindowWidth(#MainWin), WindowHeight(#MainWin), 0, 0, #PB_MDI_AutoSize | #PB_MDI_BorderLess)
OpenWindowedScreen(GadgetID(0), 0, 0, ScreenW, ScreenH) ;, 0, 0, 0, #PB_Screen_NoSynchronization)
CreateSprite(101, ScreenW, ScreenH, #PB_Sprite_AlphaBlending)
If StartDrawing(SpriteOutput(101) )
For I = 1 To 1000
x = Random(ScreenW)
y = Random(ScreenH)
r = 50 + Random(50)
c = RGB(Random(255), Random(255), Random(255) )
Circle(x, y, r, c)
Circle(x - ScreenW, y, r, c)
Circle(x + ScreenW, y, r, c)
Next
StopDrawing()
EndIf
x = 0
Repeat
DisplaySprite(101, x, 0)
DisplaySprite(101, ScreenW + x, 0)
x - 1
If x <= 0 - ScreenW
X = 0
EndIf
FlipBuffers()
Delay(3)
Until WindowEvent() = #PB_Event_CloseWindow
EndIf