'OpenGL context capture example
'by Ashish Kushwaha
_TITLE "Rendering OpenGL Context on Software" PRINT "Software screen text"
BufferDone = 1
' CLS , _RGB(255,0,0)
'_DISPLAYORDER _SOFTWARE ' Easy test. IF is this row enabled, program do none sound. So i think, SUB _GL is ignored? Comment this row, then is visible OpenGL Layer and program do sounds.
glAllow = -1 ' Therefore my query.
g = 1
'if this three rows are enbled, program after time work very bad
' f = f + g: IF f > 150 OR f < 1 THEN g = g * -1
' IF SGN(g) = 1 THEN CIRCLE (_WIDTH / 2, _HEIGHT / 2), &HFFFF0000, f 'do something SOFTWARE
' IF SGN(g) = -1 THEN CIRCLE (_WIDTH / 2, _HEIGHT / 2), &HFF000000, f 'do something SOFTWARE
' CLS , &H99000000 'in backgroud is visible OpenGL content
'CLS
' _GLRENDER _BEHIND
RenderGLToSoftwareScreen
0: tt#
= TIMER
fps = fps + 1
SUB RenderGLToSoftwareScreen
(dest&
)
' $CHECKING:OFF
'storing GL Color Buffer in our GL_Color_Buffer() array
m
= _MEM(GL_Color_Buffer~%%
())
' _CLEARCOLOR _RGBA(0,0,0,255), tmp&
' _PUTIMAGE (0, 0)-(_WIDTH(dest&) - 1, _HEIGHT(dest&) - 1), tmp&, dest&
' $CHECKING:ON