Declare Function ScreenGLProc ( ByRef procname As Const String ) As Any Ptr

procname

Эта функция может быть использована для получения адреса какой-либо процедуры OpenGL, который будет использоваться для получения ссылки на новые функции, связанные с расширениями OpenGL. Если данная процедура с именем procname не может быть найдена, ScreenGLProc вернет ноль (0).

'' Подключаем fbgfx.bi для некоторых полезных определений
#include "fbgfx.bi"

Dim SwapInterval As Function(ByVal interval As Integer) As Integer
Dim extensions As String

'' Установка OpenGL и извлечение поддерживаемых расширений
ScreenRes 640, 480, 32,, FB.GFX_OPENGL
ScreenControl FB.GET_GL_EXTENSIONS, extensions

If (InStr(extensions, "WGL_EXT_swap_control") <> 0) Then
    '' расширение поддерживается, получаем адрес процедуры
    SwapInterval = ScreenGLProc("wglSwapIntervalEXT")
    If (SwapInterval <> 0) Then
        '' Хорошо, мы его получили. Установим OpenGL ждать вертикальной синхронизации при смене буферов
        SwapInterval(1)
    End If
End If

• Не доступно в диалекте -lang qb , но есть псевдоним __Screenglproc.
  
  

• Не доступно для версии DOS.
  
  

• Новое в FreeBASIC
  
  

• Screen (Графика)
  
• ScreenControl