10 lines code test - I need your eyes
Posted: Mon Nov 06, 2017 1:11 pm
Hello !
Here is a simple test code of OpenGLGadget(). I need you test it and you write below what configuration, and what result you see.
The normal process is a green square which changes sweetly from green to black and then from black to green near every second.
On Windows 8, it is okay, but if I change Windows themes on the system properties to high contrasted themes, whatever this black high constrasted or white high contrasted, the future restart of OpenGl is washing to, respectively black or white square, and the green square is only displayed when I update the window (i.e. moving the window).
Here is a simple test code of OpenGLGadget(). I need you test it and you write below what configuration, and what result you see.
The normal process is a green square which changes sweetly from green to black and then from black to green near every second.
On Windows 8, it is okay, but if I change Windows themes on the system properties to high contrasted themes, whatever this black high constrasted or white high contrasted, the future restart of OpenGl is washing to, respectively black or white square, and the green square is only displayed when I update the window (i.e. moving the window).
Code: Select all
;******************************************************************************************************************************************
OpenWindow(0, 0, 0, 220, 220, "OpenGL Gadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
OpenGLGadget(0, 10, 10, 200, 200)
Repeat
Event = WaitWindowEvent(16)
SetGadgetAttribute(Gadget, #PB_OpenGL_SetContext, #True)
glClear_ (#GL_COLOR_BUFFER_BIT | #GL_DEPTH_BUFFER_BIT)
t.D = ElapsedMilliseconds() / 100.0
glClearColor_(0.0, (1.0 + Cos(t) ) / 2.0, 0.0, 1.0)
SetGadgetAttribute(Gadget, #PB_OpenGL_FlipBuffers, #True)
Until Event = #PB_Event_CloseWindow