BTW this works with FPS Counter:
Code: (Select All)
'$Dynamic
Screen _NewImage(640, 480, 32)
_PrintMode _KeepBackground
Dim Shared Texture As Long, allowGL As _Bit
TMPTexture = _NewImage(64, 64, 32)
_Dest TMPTexture
For X = 0 To 63
For Y = 0 To 63
PSet (X, Y), _RGB32(255 - X * 2 - Y * 2, X * 4, Y * 4)
Next Y, X
_Dest 0
Texture = _CopyImage(TMPTexture, 32)
_FreeImage TMPTexture
While Texture: Wend
Dim Shared As _Unsigned Integer LFPS, GFPS, LFPSCount, GFPSCount: LFPS = 60
F = _FreeTimer
On Timer(F, 1) GoSub FPSCounter
Timer(F) On
Cls
_GLRender _Behind
allowGL = -1
Do
_Limit 60
LFPSCount = LFPSCount + 1
Cls 2, 0
Print "FPS (G/L):"; GFPS; "/"; LFPS
_Display
Loop Until Inp(&H60) = 1
System
FPSCounter:
If LFPSCount Then LFPS = LFPSCount
LFPSCount = 0
GFPS = GFPSCount
GFPSCount = 0
Return
Sub _GL
Static As Long TextureHandle
If Texture < -1 Then GL_Generate_Texture TextureHandle, Texture
If allowGL = 0 Then Exit Sub
_glViewport 0, 0, _Width - 1, _Height - 1
_glEnable _GL_DEPTH_TEST
_glClearColor 0, 0.5, 1, 0
_glClear _GL_DEPTH_BUFFER_BIT Or _GL_COLOR_BUFFER_BIT
_glTranslatef 0, 0, -5
_glRotatef Timer, 1, 0, 0
_glRotatef 10 * Timer, 0, 1, 0
_glMatrixMode _GL_PROJECTION
_glLoadIdentity
_gluPerspective 70, _Width / _Height, 0.1, 256
_glMatrixMode _GL_MODELVIEW
_glEnable _GL_TEXTURE_2D
_glBindTexture _GL_TEXTURE_2D, TextureHandle
_glBegin _GL_QUADS
_glVertex3f -2, 2, 0
_glTexCoord2f 0, 1
_glVertex3f -2, -2, 0
_glTexCoord2f 0, 0
_glVertex3f 2, -2, 0
_glTexCoord2f 1, 0
_glVertex3f 2, 2, 0
_glTexCoord2f 1, 1
_glEnd
_glDisable _GL_TEXTURE_2D
_glDisable _GL_DEPTH_TEST
_glFlush
GFPSCount = GFPSCount + 1
End Sub
Sub GL_Generate_Texture (Handle As Long, Image As Long)
Dim M As _MEM
_glGenTextures 1, _Offset(Handle)
_glBindTexture _GL_TEXTURE_2D, Handle
M = _MemImage(Image)
_glTexImage2D _GL_TEXTURE_2D, 0, _GL_RGBA, _Width(Image), _Height(Image), 0, _GL_BGRA_EXT, _GL_UNSIGNED_BYTE, M.OFFSET
_MemFree M
_FreeImage Image
Image = 0
_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MIN_FILTER, _GL_NEAREST
_glTexParameteri _GL_TEXTURE_2D, _GL_TEXTURE_MAG_FILTER, _GL_NEAREST
End Sub
Someone please find why the code in the above post doesn't work.
When I debug it correctly, it shows FPSCounter is duplicate label.
QB Blocks 4 Alpha 26092024.zip (Size: 85.52 KB / Downloads: 63)
