Подскажите, delphi+openGl

[byblik]

Подскажите, пожалуйста как правильно подключить OpenGl и нарисовать там параболоид и гиперболоид что бы они могли вращаться там приближаться и отдаляться!)

[Maikom]

1) Запустить Delphi.

2) Сохранить «пустой» проект в отдельную папку, расположенную в папке вашей группы. Имя папки – OpenGL1.

Выполнение
а) выберите команду Save All из меню File

б) в открывшемся диалоговом окне перейдите в папку своей группы

в) создайте новую папку OpenGL1

г) оставьте предлагаемые имена файлов без изменений и нажмите кнопку «Сохранить»

3) Подключить библиотеку OpenGL.

Выполнение
а) используя функциональную клавишу F12, перейдите в окно редактора кода

б) найдите ключевое слово uses, за которым идет перечисление имен подключаемых модулей

в) добавьте в этот список OpenGL

4) Добавить в описание класса TForm1 описание двух переменных, в соответствие с приведенным фрагментом:



type

TForm1 = class(TForm)

private

{ Private declarations }

dc: HDC;

glrc: HGLRC;

public

{ Public declarations }

end;



5) Изменить цвет формы на clSilver.

Выполнение
а) в Инспекторе Объектов (Object Inspector) на закладке Свойства (Properties) найдите поле Color

б) измените значение свойства на clSilver

6) Создать обработчик события формы OnCreate, которое возникает в момент создания окна приложения, в соответствии с приведенным ниже примером.

Выполнение
а) в Инспекторе Объектов перейдите на закладку События (Events)

б) сделайте двойной щелчок левой кнопкой мыши в поле OnCreate, при этом будет создан обработчик выбранного события

в) заполните обработчик события в соответствии с приведенным ниже примером:



procedure TForm1.FormCreate(Sender: TObject);

var pfd: TPixelFormatDescriptor;

nPixelFormat: Integer;

begin

dc := GetDC(Handle);

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

pfd.dwFlags := PFD_DRAW_TO_WINDOW or

PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER;

nPixelFormat := ChoosePixelFormat(dc, @pfd);

SetPixelFormat(dc, nPixelFormat, @pfd);

glrc := wglCreateContext(dc);

wglMakeCurrent(dc, glrc);

end;



7) Создать обработчик события формы OnResize, которое возникает после изменения пользователем размеров окна приложения, в соответствии с приведенным ниже примером:



procedure TForm1.FormResize(Sender: TObject);

begin

// задание области вывода изображения

glViewport(0, 0, ClientWidth, ClientHeight);

// посылка сообщения, приводящего к запуску OnPaint

InvalidateRect(Handle, nil, false);

end;



8) Создать обработчик события формы OnPaint, которое возникает при необходимости перерисовать изображение окна приложения, в соответствии с приведенным ниже примером:



procedure TForm1.FormPaint(Sender: TObject);

begin

//очистка буфера изображения

glClearColor(0.75, 0.75, 0.75, 1.0);

glClear(GL_COLOR_BUFFER_BIT);

// здесь должны быть команды OpenGL,

// определяющие изображение

// ...

// запись из внеэкранного буфера в основной

glFlush;

SwapBuffers(DC);

end;



9) Создать обработчик события формы OnDestroy, которое возникает в момент разрушения окна приложения, в соответствии с приведенным ниже примером:



procedure TForm1.FormDestroy(Sender: TObject);

begin

wglMakeCurrent(0, 0);

wglDeleteContext(glrc);

ReleaseDC(Handle, dc);

DeleteDC(dc);

end;



10) Сохранить проект и сделать копию папки, в которой он находится. Имя новой папки – OpenGL2.

В результате выполнения задания мы получили программу, которая «умеет» только начинать и завершать работу с библиотекой OpenGL. Используйте этот проект в качестве шаблона при создании новых программ.

Для того чтобы наша программа смогла что-нибудь нарисовать, необходимо в обработчик события формы OnPaint на место, отмеченное многоточием, поместить команды OpenGL, описывающие задуманный нами графический образ.

Базовым понятием в библиотеке OpenGL является вершина. Вершина – это точка в трехмерном пространстве. Для ее определения в библиотеке OpenGL существуют несколько специальных команд. Одна из них

glVertex3f (x,y,z: GLfloat)

В библиотеке OpenGL определено десять геометрических примитивов, описание которых приведено в таблице
Примитив или группа однотипных примитивов определяются внутри командных скобок glBegin/glEnd:

glBegin (mode: GLenum);

// ...

glEnd;

Точки GL_POINTS Каждая вершина рассматрива*ется как отдельная точка

Линии GL_LINES Каждая пара вершин рассматривается как независимый отрезок

Связанные линии GL_LINE_STRIP Первая вершина задает начало первого отрезка, а вторая – конец первого, который является также началом второго и т.д.

Замкнутые линии GL_LINE_LOOP Связывает вершины аналогично предыдущему примитиву и соединяет последнюю вершину с первой

Треугольники GL_TRIANGLES Каждая тройка вершин рассматривается как независимый треугольник

Связанные треугольни*ки с общим ребром GL_TRIANGLE_STRIP Первые три вершины определяют первый треуголь*ник; вторая, третья и четвертая – второй и т.д.

Связанные треугольники с общей вершиной GL_TRIANGLE_FAN Первые три вершины определяют первый треуголь*ник; первая, третья и четвертая – второй и т.д.

Четырехугольники GL_QUADS Каждая группа из четырех вершин рассматривается как независимый четырехугольник

Связанные четырехугольники GL_QUAD_STRIP Первые четыре вершины определяют первый четырех*угольник; третья, четвертая, шестая и пятая (в таком порядке) – второй и т.д.

Многоугольник GL_POLYGON Определяет отдельный выпуклый многоугольник, заданный вершинами

[lew1987]

Попробуй библиотеку GLScene