OpenGL и Delphi на практике

Издательский Дом "КОМИЗДАТ"

Любая теория хороша, если она может быть реализована на Delphi :-). Поэтому предлагаю не откладывая в долгий ящик написать первую программу на OpenGL - а потом, окрылившись успехом, вернуться к теории и как следует проштудировать все книги и сайты по сабжу, чтобы уж стать настоящими монстрами трехмерного моделирования.

Для начала придется проделать подготовительную работу:

настроить формат пикселей с учетом отображаемой информации;

создать контекст OpenGL и подготовить сам движок OpenGL к работе.

Формат пикселей удобно вынести в отдельную процедуру, которую мы оформим следующим образом:

procedure SetDCPixelFormat (dc: HDC);

var pfd: TPixelFormatDescriptor;

nPixelFormat: Integer;

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:= 16;

cDepthBits:= 64;

iLayerType:= PFD_MAIN_PLANE;

end;

nPixelFormat:=ChoosePixelFormat (DC,@pfd);

SetPixelFormat (DC, nPixelFormat,@pfd);

end;

Рекомендуем скачать другие рефераты по теме: реферат сила, культурология как наука.



1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки