my current GUI-project

[Petr Schreiber]

Hi Rene,

okay, I will check. In the meantime, can you verify that this script gives you graphical output in the attachement?

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

[ReneMiner]

your script does print - but as soon as you change line 21 to its correct syntax

  TBGL_RenderMatrix2D( 0, 480, 640, 0)

the text vanishes...

[Petr Schreiber]

I have tweaked the code further, please check, if you have a minute


Petr

[ReneMiner]

great- works

[Petr Schreiber]

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


Petr