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

glVertex3f(1.0, -1.0, -1.0);

glVertex3f(1.0, 1.0, -1.0);

glEnd;

glBegin(GL_POLYGON);

glNormal3f(0.0, 1.0, 0.0);

glVertex3f(-1.0, 1.0, -1.0);

glVertex3f(-1.0, 1.0, 1.0);

glVertex3f(1.0, 1.0, 1.0);

glVertex3f(1.0, 1.0, -1.0);

glEnd;

glBegin(GL_POLYGON);

glNormal3f(0.0, -1.0, 0.0);

glVertex3f(-1.0, -1.0, -1.0);

glVertex3f(1.0, -1.0, -1.0);

glVertex3f(1.0, -1.0, 1.0);

glVertex3f(-1.0, -1.0, 1.0);

glEnd;

SwapBuffers(DC); // конец работы

end;

// обычные действия OpenGL, Создание окна

procedure TForm1.FormCreate(Sender: TObject);

begin

Angle:=0;

AngleX:=30;

AngleY:=-30;

AngleZ:=0;

c:=1;

DC:=GetDC(Handle);

SetDCPixelFormat;