-
1 Attachment(s)
Hi Rene,
okay, I will check. In the meantime, can you verify that this script gives you graphical output in the attachement?
Code:
Uses "TBGL"
Function TBMain()
Local hWnd As DWord
Local FrameRate As Double
' -- Create and show window
hWnd = TBGL_CreateWindowEx("Testing clipping - press ESC to quit", 640, 480, 32, %TBGL_WS_WINDOWED Or %TBGL_WS_CLOSEBOX)
TBGL_ShowWindow
' -- Resets status of all keys
TBGL_ResetKeyState()
Dim hFont As DWord = TBGL_FontHandle("Courier New", 64)
TBGL_BuildFont( hFont )
' -- Main loop
While TBGL_IsWindow(hWnd)
FrameRate = TBGL_GetFrameRate
TBGL_RenderMatrix2D
TBGL_ClearFrame
TBGL_PrintFont "ThinBASIC", -175,230
TBGL_PrintFont "ThinBASIC", 460,230
TBGL_DrawFrame
' -- ESCAPE key to exit application
If TBGL_GetWindowKeyState(hWnd, %VK_ESCAPE) Then Exit While
Wend
TBGL_DestroyWindow
End Function
Petr
-
your script does print - but as soon as you change line 21 to its correct syntax
Code:
TBGL_RenderMatrix2D( 0, 480, 640, 0)
the text vanishes...
-
1 Attachment(s)
I have tweaked the code further, please check, if you have a minute :)
Petr
-
1 Attachment(s)
-
Great, will be part of thinBasic 1.9.14.0 :)
Sorry it took so long. The official advice for OpenGL with glBitmap sounded silly to me, so it took some time to get around it with some matrix magic :D
Petr
