Реферат: Отчет по OpenGL

wglMakeCurrent(DC, hrc);

InitializeRC;

// свойства материала - лицевые стороны - рассеянный

// цвет материала и диффузное отражение материала - значения из массива

glMaterialfv(GL_FRONT,GL_AMBIENT_AND_DIFFUSE,@MaterialColor);

end;

// Установка формата пикселей

procedure TForm1.SetDCPixelFormat;

var

nPixelFormat: integer;

pfd: TPixelFormatDescriptor;

begin

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

with pfd do

begin

nSize :=sizeof(pfd);

nVersion:=1;

dwFlags :=PFD_DRAW_TO_WINDOW or PFD_SUPPORT_OPENGL or

PFD_DOUBLEBUFFER;

iPixelType:=PFD_TYPE_RGBA;

cColorBits:=24; // 24

cDepthBits:=32; // 32

iLayerType:= PFD_MAIN_PLANE;

end;

nPixelFormat := ChoosePixelFormat(DC, @pfd);

SetPixelFormat(DC, nPixelFormat, @pfd);

end;

// Изменение размеров окна

procedure TForm1.FormResize(Sender: TObject);