SCREENGLPROC

FreeBASIC-Referenz » Alphabetische Befehlsreferenz » S » SCREENGLPROC

Syntax: SCREENGLPROC (OpenGL_Prozedurname)
Typ: Funktion
Kategorie: Grafik

SCREENGLPROC ermittelt die Adresse einer OpenGL-Prozedur. Sie wird eingesetzt, um Zeiger zu neuen Funktionen bei OpenGL-Erweiterungen abzufragen.

Beispiel:

#include "fbgfx.bi"     ' für einige nützliche Definitionen

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

' OpenGL initialisieren und unterstützte Erweiterungen ermitteln
ScreenRes 640, 480, 32,, FB.GFX_OPENGL
ScreenControl FB.GET_GL_EXTENSIONS, extensions

If InStr(extensions, "WGL_EXT_swap_control") <> 0 Then
  ' Erweiterung unterstützt; Adresse der Prozedur ermitteln
  SwapInterval = ScreenGLProc("wglSwapIntervalEXT")
  If SwapInterval <> 0 Then
    ' Adresse ermittelt; mit OpenGL auf vertikale Synchronisation warten
    SwapInterval(1)
  End If
End If
Sleep

Unterschiede zu QB: neu in FreeBASIC

Plattformbedingte Unterschiede: wird unter DOS nicht unterstützt

Unterschiede unter den FB-Dialektformen:
In der Dialektform -lang qb steht SCREENGLPROC nicht zur Verfügung und kann nur über __SCREENGLPROC aufgerufen werden.

Siehe auch:
SCREENRES, SCREENSET, Grafik