Code: Select all
OpenWindow(0, 0, 0, 530, 320, "", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
StringGadget(0, 0, 0, 200, 200, "...")
OpenGLGadget(1, 0, 0, 200, 200)
SplitterGadget(2, 0, 0, WindowWidth(0), WindowHeight(0), 0, 1)
AddWindowTimer(0, 1, 16) ; about 60 fps
Repeat
Event = WaitWindowEvent()
Select Event
Case #PB_Event_Timer
If EventTimer() = 1
glClear_(#GL_COLOR_BUFFER_BIT)
EndIf
EndSelect
Until Event = #PB_Event_CloseWindow