Контекст воспроизведения

Рассмотрим процедуру FormCreate, которая выполняет подготовительные действия для работы сOpenGL. Главное, что здесь требуется – созданиеконтекста воспроизведенияOpenGLи установка его текущим.OpenGLнедостаточно просто ссылки на окноWindowsили контекст устройства. Контекст воспроизведения связывает окно с так называемым конвейеромOpenGLс учетом установленного формата пикселов.

procedure TfrmGL.FormCreate(Sender: TObject);

var

pfd : TPixelFormatDescriptor;

nPixelFormat : integer;

begin

hdc := GetDC (Panel1.Handle);

FillChar(pfd,SizeOf(pfd),0);

pfd.nSize:= SizeOf(pfd);

pfd.dwFlags:=PFD_DOUBLEBUFFER;

nPixelFormat:= ChoosePixelFormat(hdc,@pfd);

if nPixelFormat = 0 then

begin

ShowMessage(‘Ошибка OpenGL’);

Halt;

end;

SetPixelFormat(hdc,nPixelFormat,@pfd);

RContext := wglCreateContext(hdc);

WglMakeCurrent(hrc,RContext);

glClearColor (0.0, 0.0, 0.0,1.0); // цвет фона

glEnable(GL_DEPTH_TEST);

SphereObj:=gluNewQuadric;

CylObj :=gluNewQuadric;

LightObj :=gluNewQuadric;

end;

Первый оператор в этой процедуре – получение оконного контекста устройства с помощью вызова функции GetDC. На основе полученного значения выбираем и устанавливаем формат пиксела. Формат пиксела – это структура на С или, как в данном случае, запись наObjectPascalтипаTPixelFormatDescriptor.В документации эта структура содержит следующие поля:

typedef struct tagPIXELFORMATDESCRIPTOR { // pfd

WORD nSize;//размер структуры данных

WORD nVersion;//версия структуры данных – всегда 1.

DWORD dwFlags;//битовые флаги, например: PFD_SUPPORT_GDI

BYTE iPixelType;//тип пиксела: PFD_TYPE_RGBA или //PFD_TYPE_COLORINDEX

BYTE cColorBits;//битов для описания цвета пиксела, кроме Alpha

BYTE cRedBits;//битов красной компоненты пиксела

BYTE cRedShift;

BYTE cGreenBits; //битов зеленой компоненты пиксела

BYTE cGreenShift;

BYTE cBlueBits; //битов синей компоненты пиксела

BYTE cBlueShift;

BYTE cAlphaBits;

BYTE cAlphaShift;

BYTE cAccumBits;

BYTE cAccumRedBits;

BYTE cAccumGreenBits;

BYTE cAccumBlueBits;

BYTE cAccumAlphaBits;

BYTE cDepthBits;//битов элемент глубины в z-буфере

BYTE cStencilBits;

BYTE cAuxBuffers;

BYTE iLayerType;//для этой версии всегда PFD_MAIN_PLANE

BYTE bReserved;

DWORD dwLayerMask;

DWORD dwVisibleMask;

DWORD dwDamageMask;

} PIXELFORMATDESCRIPTOR;

Для выбора требуемого формата пиксела необходимо заполнить наиболее важные поля записи и сделать запрос к OpenGL. Если система в состоянии работать с заданным форматом, то результат вызова функцииChoosePixelFormat(hdc,@pfd)будет ненулевым.

Для установки формата пиксела, который наиболее близок к тому, который установлен в операционной системе, достаточно обнулить все поля записи, и вызвать ChoosePixelFormat, предварительно указав в поле pfd.nSize размер самой записи в байтах. В качестве единственного требования указываем на необходимость двойной буферизации графического вывода:pfd.dwFlags:=PFD_DOUBLEBUFFER. При этом изображение будет строиться на невидимой области, а затем полностью выводиться на экран. Это гарантирует нам отсутствие мерцания изображения при смене кадров.

При успешном получении номера формата пикселов устанавливаем его:

SetPixelFormat(hdc,nPixelFormat,@pfd).

Далее, на основе контекста устройства и формата пикселов создаем контекст воспроизведения OpenGL:

RContext := wglCreateContext(hdc);

и устанавливаем его текущим:

wglMakeCurrent(hdc,RContext).

Для завершения работы с OpenGLтребуется освободить текущий контекст устройства:

wglMakeCurrent(0, 0) ,

и затем удалить его:

wglDeleteContext(RContext).

Как видим, с помощью функции wglMakeCurrentможно не только устанавливать текущий контекст воспроизведения, но и освобождать его. Рассмотрим определение этой функции:

BOOL wglMakeCurrent(

HDC hdc, //Контекст устройства на который осуществляется вывод графики

HGLRC hglrc //Контекст воспроизведенияOpenGLдля текущего потока

);

Для освобождении контекста воспроизведения потока первый параметр игнорируется, а второй должен иметь нулевое значение. При успешном выполнении функция возвращает значение True.

Завершающие действия описаны в процедуре FormDestroy:

procedure TfrmGL.FormDestroy(Sender: TObject);

begin

wglMakeCurrent(0, 0);

wglDeleteContext(RContext);

ReleaseDC (Handle, RContext);

DeleteDC (hdc);

end;