А теперь поговорим о программировании с этой библиотекой. 

Откройте новый проект: File -> New -> Application

Теперь в дириктиву "uses" добавьте "glaux" вот так

(файл GLAUX.pas должен быть у вас):

Code:

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls,

Forms,ExtCtrls, Dialogs, glaux

//Подключаем Glaux.pas

Далее в процедуре TForm1.draww, после того как переведём

камеру в нужную точку функцией

glTranslatef(0.0, 0.0, -7.0);

можно рисовать всё, что угодно.

Code:

procedure TForm1.draww;

Begin

glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);

glClearColor(0.7,0.7,0.7,0.0);

glLoadIdentity;

glTranslatef(0.0, 0.0, -7.0);

{}

auxSolidSphere(2.0);

{}

SwapBuffers(DC);

end;

Вот список того, что можно построить:

auxWireSphere(1);

auxSolidSphere(1);

auxWireCube(1);

auxSolidCube(1);

auxWireBox(1,2,3);

auxSolidBox(1,2,3);

auxWireTorus(1,2);

auxSolidTorus(1,2);

auxWireCylinder(1,2);

auxSolidCylinder(1,2);

auxWireIcosahedron(1);

auxSolidIcosahedron(1);

auxWireOctahedron(1);

auxSolidOctahedron(1);

auxWireTetrahedron(1);

auxSolidTetrahedron(1);

auxWireDodecahedron(1);

auxSolidDodecahedron(1);

auxWireCone(1,0.5);

auxSolidCone(1,0.5);

auxWireTeapot(1);

auxSolidTeapot(1);

Вот и всё!

Источник: http://www.ogldelphi.km.ru/about.html


 Похожие публикации
2010-02-01 • Просмотров [ 2700 ]