Разработка приложения с использованием OpenGL для динамического изображения трехмерной модели изображения

Разработка приложения с использованием OpenGL для динамического изображения трехмерной модели изображения

Пензенский государственный университет

Кафедра "Информационно-вычислительные системы"

Пояснительная записка к курсовому проекту по дисциплине

«Компьютерная графика»

Тема: Разработка приложения с использованием OpenGL для динамического изображения трехмерной модели изображения

Введение

Сегодня трехмерная компьютерная графика нашла широкое распространение и применение в повседневной жизни. Ученые используют компьютерную графику для анализа результатов моделирования. Инженеры и архитекторы используют трехмерную графику для создания виртуальных моделей. Кинематографы создают удивительные спецэффекты или полностью анимированные фильмы. В последние годы широкое распространение получили также компьютерные игры, максимально использующие трехмерную графику для создания виртуальных миров.

Таким образом, визуализация трехмерных сцен на компьютере является очень актуальной задачей на сегодняшний день.

Целью данной курсовой работы является создание трехмерной сцены, на которой изображены фигуры (треугольники и квадраты с общей вершиной), вращающиеся вокруг одной точки. Работа должна быть выполнена в среде разработки Lazarus.

В результате выполнения данной курсовой работы изучены правила создания сцен на компьютере и приобретены навыки работы с графической библиотекой.

В программе для отображения трехмерной сцены использована готовая графическая библиотека, причем не в полном объеме. Для выполнения задания курсовой работы достаточно воспользоваться лишь базовой функциональностью библиотеки.

В данной работе произведен обзор популярной графической библиотеки (OpenGL), позволяющих создавать трехмерные сцены, доступных в Lazarus.

В заключительной части приведено описание создания пользовательского интерфейса программы в Lazarus, а в приложении - текст программы.

1. Анализ предметной области

Библиотека OpenGL предназначена для моделирования компьютерной графики на высоком уровне, и является программным интерфейсом к аппаратному обеспечению. Главное назначение библиотеки - преобразовывать 2-х и 3- х мерные объекты в специальный формат в специальном буфере. Эти объекты описываются как последовательности точек в пространстве, которые определяют геометрические объекты, или пикселов, которые определяют изображения.производит несколько последовательных операций обработки этих данных, чтобы сконвертировать их в пикселы для формирования окончательного требуемого изображения в буфере.

В задании требуется разработать приложение, имитирующее движение примитива относительно заданной общей стороны треугольников.

2. Техническое задание

.1 Основание для разработки

Программа разрабатывается на основании задания на курсовое проектирование по дисциплине «Компьютерная графика». Задание утверждено заведующим кафедрой ИВС Пензенского государственного университета Косниковым Ю.Н. и выдано доцентом кафедры ИВС Стариковой А.Ю.

2.2 Назначение разработки

Данное приложение предназначено для демонстрации возможностей библиотеки OpenGL и для реализации имитации движения заданного графического примитива в пространстве.

2.3 Требования к программе

.3.1 Требования к функциональным характеристикам

В программе должны выполняться следующие действие, а именно после нажатия кнопки запуска, должно происходить вращение двух треугольников вокруг их общей стороны, против часовой стрелки.

2.3.2 Требования к составу и параметрам технических средств

Программа предназначена для работы на IBM-совместимых персональных компьютерах, имеющих следующие минимальные характеристики:

Оперативная память 1Гб;

Операционная система Windows XP;

Процессор Intel Pentium 3;

Объем графической памяти 128 Мб.

2.3.3 Требования к информационной и программной совместимости

Так как программа должна быть написана на языке программирования Lazarus, ее требуется разрабатывать в объектно-ориентированной среде Lazarus.

2.4 Требования к программной документации

Разрабатываемая программа должна сопровождаться следующими программными документами:

Описание программы;

Описание применения;

Текст программы.

3. Описание программы

.1 Общие сведения

Для текстурирования примитивов и фона потребуется 3 варианта текстур в формате .png. Для включения текстур в проект требуется дополнительная библиотека, реализующая функции преобразования и добавления текстуры в проект. Данные функции реализованы в библиотеке BMP. Остальные функции работы с примитивами уже реализованы в библиотеке OpenGL.

3.2 Функциональное назначение

Приложение реализует имитацию движения графических примитивов по заданной траектории.

3.3 Описание логической структуры

Программа состоит из модуля exampleform.pp- содержащий исходный код программы, текстуры, и служебных файлов проекта.

Выполним необходимые действия для создания программы по шагам.

Для отрисовки треугольников использовалась команда из библиотеки OpenGL - GL_LINE_LOOP.

Выполним расстановку объектов в сцене. Спроектировал сцену, выбрав необходимые команды и их параметры. Разработал последовательность геометрических преобразований, необходимых для поворота на заданный угол каждого объекта сцены в отдельности - команды нужного поворота ставятся непосредственно перед рисованием фигуры, после прорисовки фигуры необходимо возвращать всё в начальное положение.

Для получения нескольких одинаковых изображений было создано 3 дисплейных списка:

ParticleList:=glGenLists(1);(ParticleList, GL_COMPILE); // лист для рисования точки(GL_TEXTURE_2D, textures[0]);(GL_TRIANGLE_STRIP);f( 0.0, 0.0, 1.0);f( 1.0, 1.0); glVertex3f(+0.025, +0.025, 0);f( 0.0, 5.0); glVertex3f(-0.025, +0.025, 0);f( 1.0, 0.0); glVertex3f(+0.025, -0.025, 0);

glTexCoord2f( 0.0, 0.0); glVertex3f(-0.025, -0.025, 0);;; В программу добавил команды сдвига и поворота системы координат.

Провел текстурирование сцены. Залил фон текстурой «texture2.png».

В программу заготовку ввел команды подготовки и наложения текстур на объекты сцены.

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

Задал соответствующие координаты текстур для объектов (Рисунок 2 Приложение Б).

Для создания анимации воспользуемся компонентом Timer, который необходим для того, чтобы выполнять преобразования (сдвиг) фигур.

Установил интервал таймера = 16, чтобы достичь оптимальной плавности движения.

Для вращения фигуры по собственной эллипсоидной траектории в пространстве, после установки начального положения фигур, с помощью математических операций происходит определение новых точек, согласно которым объект будет перемещаться в сцене. (Рисунок 3 Приложение Б).

3.4 Используемые технические средства

Работа программы обеспечивается на вычислительной машине с нижеприведёнными минимальными характеристиками:

Оперативная память 1Гб;

Операционная система Windows XP;

Процессор Intel Pentium 3;

Объем графической памяти 128 Мб.

3.5 Вызов и загрузка

Запуск программы осуществляется при открытии файла openglcontrol.exe.

В каталоге с программой должны находиться текстуры для фона и для объектов, а так же сам файл программы формата .exe.

4. Программа и методика испытаний

.1 Объект испытаний

Объектом испытания является программа, предназначенная для имитации движения заданных графических примитивов - двух треугольников.

4.2 Цель испытаний

4.3 Требования к программе

Программа должна выполнять все функции, указанные в техническом задании. Работа программы не должна приводить к сбою в работе операционной системы в заданном промежутке времени.

4.4 Требования к программной документации

Состав программной документации, предъявляемой на испытания:

Техническое задание;

Требования к программе;

Описание программы;

Описание применения;

Текст программы;

4.5 Средства и порядок испытаний

Работа программы обеспечивается на вычислительной машине с нижеприведёнными минимальными характеристиками:

Оперативная память 1Гб;

Операционная система Windows XP;

Процессор Intel Pentium 3;

Объем графической памяти 128 Мб.

Программа разработана в среде Lazarus работающей под управлением операционной системы Windows 7.

Для проверки правильности работы системы был принят следующий порядок действий:

а) запустить программу на выполнение;

б) сравнить реакцию программы с ожидаемым результатом;

в) сделать выводы по результатам тестирования о работоспособности программы.

Результаты работы программы приведены в приложении Б.

5. Описание применения

.1 Назначение программы

Программа позволяет имитировать движение треугольников относительно общей стороны в пространстве.

5.2 Условия применения

Работа программы обеспечивается на вычислительной машине с нижеприведёнными минимальными характеристиками:

Оперативная память 1Гб;

Операционная система Windows XP;

Процессор Intel Pentium 3;

Объем графической памяти 128 Мб.

Программа разработана в среде Lazarus работающей под управлением операционной системы Windows 7.

5.3 Описание задачи

Для пересчёта координат используется параметрическое уравнение эллипса. При срабатывании таймера через определенный интервал времени происходит перерасчет координат.

5.4 Входные и выходные данные

Ввод исходных данных в программу не предусмотрен. Все необходимые действия инициализации переменных происходят без вмешательства пользователя.

Заключение

При выполнении курсового проекта были выполнены следующие работы:

Анализ предметной области.

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

Проектирование программных средств.

Реализация программы.

Тестирование программы.

В результате было разработано приложение, иллюстрирующее имитацию движения треугольников относительно общей стороны в пространстве.

Тестирование показало, что программа полностью соответствует всем разработанным требованиям.

Список использованных источников

1. Ву М., Девис Т., Дж. Нейдер, Шрайнер Д. OpenGL. Руководство по программированию./пер. с англ. - СПб.: ”Питер” 2006.

2.      Косников Ю.Н. Геометрические преобразования в компьютерной графике. Конспект лекций. - Пенза.: "ПГУ", 2010.

.        Краснов М.В. OpenGL графика в проектах Delphi. 2002.

.        Тихомиров Ю.В.Программирование трехмерной графики. - СПб.:”БХВ” 1998.

Приложение А

Файл ExampleForm.pp

unit ExampleForm;

{$mode objfpc}{$H+}, SysUtils, FileUtil, LCLProc, Forms, LResources, Buttons,, Dialogs, Graphics, IntfGraphics, GL, FPimage, OpenGLContext;_CLAMP_TO_EDGE = $812F;= class,Height: longint;: pointer;Destroy; override;;

{ TExampleForm }= class(TForm): TOpenGLControl;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TButton;: TLabel;IdleFunc(Sender: TObject; var Done: Boolean);FormResize(Sender: TObject);ExitButton1Click(Sender: TObject);LightingButton1Click(Sender: TObject);BlendButton1Click(Sender: TObject);MoveCubeButton1Click(Sender: TObject);MoveBackgroundButton1Click(Sender: TObject);RotateZButton1Click(Sender: TObject);RotateZButton2Click(Sender: TObject);OpenGLControl1Paint(Sender: TObject);OpenGLControl1Resize(Sender: TObject);Create(TheOwner: TComponent); override;Destroy; override;LoadTextures;: boolean;;= class, y, z: GLfloat;, vy, vz: GLfloat;: single;;= class: GLfloat;: array [1..2001] of TParticle;MoveParticles;DrawParticles;Start;Create;Destroy; override;RespawnParticle(i: integer);;AnExampleForm: TExampleForm;, left1: GLuint;, ry, rz, rrx, rry, rrz: single;: array [0..3] of GLfloat;, blended, lighted, ParticleBlended, MoveCube, MoveBackground: boolean;: array [0..2] of GLuint; // Storage For 3 Textures: array [0..2] of TglTexture;, lightdif, lightpos, light2pos, light2dif,pos, light3dif, light4pos, light4dif, fogcolor: array [0..3] of GLfloat;: TParticleEngine;, CubeList, BackList: GLuint;direction: boolean;: single;: integer;LoadFileToMemStream(const Filename: string): TMemoryStream;LoadglTexImage2DFromPNG(PNGFilename:string;: TglTexture): boolean;LoadFileToMemStream(const Filename: string): TMemoryStream;FileStream: TFileStream;:=TMemoryStream.Create;:=TFileStream.Create(UTF8ToSys(Filename), fmOpenRead);.CopyFrom(FileStream,FileStream.Size);.Position:=0;.Free;;.Free;:=nil;;;LoadglTexImage2DFromPNG(PNGFilename: string; Image: TglTexture

): boolean;: TPortableNetworkGraphic;: TLazIntfImage;: Integer;: Integer;: TFPColor;: PByte;:=false;:=TPortableNetworkGraphic.Create;:=nil;.LoadFromFile(PNGFilename);:=png.CreateIntfImage;.Width:=IntfImg.Width;.Height:=IntfImg.Height;(Image.Data,Image.Width*Image.Height * 3);:=PByte(Image.Data);y:=0 to IntfImg.Height-1 do beginx:=0 to IntfImg.Width-1 do begin:=IntfImg.Colors[x,y];^:=c.red shr 8;(p);^:=c.green shr 8;(p);^:=c.blue shr 8;(p);;;.Free;.Free;;:=true;;

{ TExampleForm }TExampleForm.Create(TheOwner: TComponent);CreateNew(TheOwner);LazarusResources.Find(ClassName)=nil then begin((Screen.Width-800) div 2,(Screen.Height-600) div 2,800,600);:='LCL example for the TOpenGLControl';.OnIdle:=@IdleFunc;:=@FormResize;:=false;:=false;:=TParticleEngine.Create;:=TButton.Create(Self);ExitButton1 do begin:='ExitButton1';:=Self;(320,10,80,25);:='Exit';:=@ExitButton1Click;;:=TButton.Create(Self);MoveCubeButton1 do begin:='MoveCubeButton1';:=Self;(320,10,80,25);:='Move';:=false;:=@MoveCubeButton1Click;;

// resize the components first, because the opengl context needs some time to setup(Self);:=TOpenGLControl.Create(Self);OpenGLControl1 do begin:='OpenGLControl1';:=Self;(10,90,380,200);:=@OpenGLControl1Paint;:=@OpenGLControl1Resize;;;;

// now resize(Self);;TExampleForm.Destroy;i: integer;i:=0 to 2 do begin[i]:=0;(MyglTextures[i]);;(ParticleEngine);Destroy;;TExampleForm.LoadTextures;LoadglTexture(Filename:string; Image:TglTexture);:=ExpandFileNameUTF8(Filename);not LoadglTexImage2DFromPNG(Filename,Image) then begin('File not found',

'Image file not found: '+Filename,,[mbOk],0);Exception.Create('Image file not found: '+Filename);;;: Integer;

begin

for i:=0 to 2 do begin[i]:=0;[i]:=TglTexture.Create;;

{loading the texture and setting its parameters}('data/particle.png',MyglTextures[0]);('data/texture2.png',MyglTextures[1]);('data/texture3.png',MyglTextures[2]);;

// --------------------------------------------------------------------------

// Particle Engine

// --------------------------------------------------------------------------TParticleEngine.Create;i: integer;i:=1 to 2001 do Particle[i]:=TParticle.Create;:=0;;TParticleEngine.Destroy;i: integer;i:=1 to 2001 do FreeAndNil(Particle[i]);Destroy;;TParticleEngine.DrawParticles;i: integer;i:=1 to 2001 do begin;(Particle[i].x, Particle[i].y, Particle[i].z);(ParticleList);;;;TParticleEngine.RespawnParticle(i: integer);(xspawn>2) and (direction=true) then direction:=false;(xspawn<-2) and (direction=false) then direction:=true;direction then:=xspawn+0.0002*(timer/10):=xspawn-0.0002*(timer/10);[i].x:=xspawn;[i].y:=-0.5;[i].z:=0;[i].vx:=-0.005+GLFloat(random(2000))/200000;[i].vy:=0.035+GLFloat(random(750))/100000;[i].vz:=-0.005+GLFloat(random(2000))/200000;[i].life:=GLFloat(random(1250))/1000+1;;TParticleEngine.MoveParticles;i: integer;i:=1 to 2001 do beginParticle[i].life>0 then begin[i].life:=Particle[i].life-0.01*(timer/10);[i].x:=Particle[i].x+Particle[i].vx*(timer/10);[i].vy:=Particle[i].vy-0.00035*(timer/10); // gravity[i].y:=Particle[i].y+Particle[i].vy*(timer/10);[i].z:=Particle[i].z+Particle[i].vz*(timer/10);else begin(i);;;;

procedure TParticleEngine.Start;i: integer;i:=1 to 2001 do begin(i);;;

// ---------------------------------------------------------------------------

// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

// ---------------------------------------------------------------------------TExampleForm.IdleFunc(Sender: TObject; var Done: Boolean);.Invalidate;

//OpenGLControl1Paint(Self);:=false; // tell lcl to handle messages and return immediatly;

// Buttons

// --------------------------------------------------------------------------TExampleForm.LightingButton1Click(Sender: TObject);lighted then glDisable(GL_LIGHTING) else glEnable(GL_LIGHTING);:=not lighted;.Invalidate;// not need;TExampleForm.BlendButton1Click(Sender: TObject);:=not blended;.Invalidate;;TExampleForm.MoveCubeButton1Click(Sender: TObject);:=not MoveCube;.Invalidate;;TExampleForm.MoveBackgroundButton1Click(Sender: TObject);:=not MoveBackground;.Invalidate;;TExampleForm.RotateZButton1Click(Sender: TObject);.Start;.Invalidate;;TExampleForm.RotateZButton2Click(Sender: TObject);:=not ParticleBlended;.Invalidate;;

// +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

// ---------------------------------------------------------------------------TExampleForm.FormResize(Sender: TObject);OpenGLControl1<>nil then.SetBounds(10, 30, Width-120, Height-40);.SetBounds(Width-90, 5, 80, 25);.SetBounds(Width-90, 50, 80, 25);;TExampleForm.ExitButton1Click(Sender: TObject);;;TExampleForm.OpenGLControl1Paint(Sender: TObject);myInit;

{init lighting variables}

{ambient color}[0]:=0.5;[1]:=0.5;[2]:=0.5;[3]:=1.0;

{diffuse color}[0]:=0.8;[1]:=0.0;[2]:=0.0;[3]:=1.0;

{diffuse position}[0]:=0.0;[1]:=0.0;[2]:=3.0;[3]:=1.0;

{diffuse 2 color}dif[0]:=0.0;dif[1]:=0.8;dif[2]:=0.0;dif[3]:=1.0;

{diffuse 2 position}pos[0]:=3.0;pos[1]:=0.0;pos[2]:=3.0;pos[3]:=1.0;

{diffuse 3 color}dif[0]:=0.0;dif[1]:=0.0;dif[2]:=0.8;dif[3]:=1.0;

{diffuse 3 position}pos[0]:=-3.0;pos[1]:=0.0;pos[2]:=0.0;pos[3]:=1.0;

{fog color}[0]:=0.5;[1]:=0.5;[2]:=0.5;[3]:=1.0;;GLInitialized: boolean = false;InitGL;: Integer;GLInitialized then exit;:=true;

{setting lighting conditions}(GL_LIGHT0,GL_AMBIENT,lightamb);(GL_LIGHT1,GL_AMBIENT,lightamb);(GL_LIGHT2,GL_DIFFUSE,lightdif);(GL_LIGHT2,GL_POSITION,lightpos);(GL_LIGHT3,GL_DIFFUSE,light2dif);(GL_LIGHT3,GL_POSITION,light2pos);(GL_LIGHT4,GL_POSITION,light3pos);(GL_LIGHT4,GL_DIFFUSE,light3dif);(GL_LIGHT0);(GL_LIGHT1);(GL_LIGHT2);(GL_LIGHT3);(GL_LIGHT4);(3, @textures[0]);i:=0 to 2 do begin(GL_TEXTURE_2D, Textures[i]);(GL_TEXTURE_2D,GL_TEXTURE_WRAP_S,GL_CLAMP_TO_EDGE);(GL_TEXTURE_2D,GL_TEXTURE_WRAP_T,GL_CLAMP_TO_EDGE);(GL_TEXTURE_2D,GL_TEXTURE_MAG_FILTER,GL_LINEAR);(GL_TEXTURE_2D,GL_TEXTURE_MIN_FILTER,GL_LINEAR);D(GL_TEXTURE_2D,0,3,MyglTextures[i].Width,MyglTextures[i].Height,0

,GL_RGB,GL_UNSIGNED_BYTE,MyglTextures[i].Data);;(GL_TEXTURE_ENV,GL_TEXTURE_ENV_MODE,GL_MODULATE);

{instead of GL_MODULATE you can try GL_DECAL or GL_BLEND}(GL_TEXTURE_2D); // enables 2d textures(0.0,0.0,0.0,1.0); // sets background color(1.0);(GL_LEQUAL); // the type of depth test to do(GL_DEPTH_TEST); // enables depth testing(GL_SMOOTH); // enables smooth color shading

{blending}f(1.0,1.0,1.0,0.5); // Full Brightness, 50% Alpha ( NEW )(GL_SRC_ALPHA, GL_ONE);(GL_LIGHT_MODEL_LOCAL_VIEWER, GL_TRUE);

{}(GL_LINE_SMOOTH_HINT,GL_NICEST);(GL_POLYGON_SMOOTH_HINT,GL_NICEST);(GL_PERSPECTIVE_CORRECTION_HINT,GL_NICEST);

// creating display lists:=glGenLists(1);(ParticleList, GL_COMPILE);(GL_TEXTURE_2D, textures[0]);(GL_TRIANGLE_STRIP);f( 0.0, 0.0, 1.0);f( 1.0, 1.0); glVertex3f(+0.025, +0.025, 0);f( 0.0, 5.0); glVertex3f(-0.025, +0.025, 0);f( 1.0, 0.0); glVertex3f(+0.025, -0.025, 0);f( 0.0, 0.0); glVertex3f(-0.025, -0.025, 0);;;:=ParticleList+1;(BackList, GL_COMPILE);(GL_TEXTURE_2D, textures[2]);(GL_QUADS);

{Front Face}f( 0.0, 0.0, 1.0);f( 1.0, 1.0); glVertex3f( 2.5, 2.5, 2.5);f( 0.0, 1.0); glVertex3f(-2.5, 2.5, 2.5);f( 0.0, 0.0); glVertex3f(-2.5,-2.5, 2.5);f( 1.0, 0.0); glVertex3f( 2.5,-2.5, 2.5);

{Back Face}f( 0.0, 0.0,-1.0);f( 0.0, 1.0); glVertex3f( 2.5, 2.5,-2.5);f( 0.0, 0.0); glVertex3f( 2.5,-2.5,-2.5);f( 1.0, 0.0); glVertex3f(-2.5,-2.5,-2.5);f( 1.0, 1.0); glVertex3f(-2.5, 2.5,-2.5);

{Left Face}f(-1.0, 0.0, 0.0);f( 1.0, 1.0); glVertex3f(-2.5, 2.5, 2.5);f( 0.0, 1.0); glVertex3f(-2.5, 2.5,-2.5);f( 0.0, 0.0); glVertex3f(-2.5,-2.5,-2.5);f( 1.0, 0.0); glVertex3f(-2.5,-2.5, 2.5);

{Right Face}f( 1.0, 0.0, 0.0);f( 1.0, 1.0); glVertex3f( 2.5, 2.5,-2.5);f( 0.0, 1.0); glVertex3f( 2.5, 2.5, 2.5);f( 0.0, 0.0); glVertex3f( 2.5,-2.5, 2.5);f( 1.0, 0.0); glVertex3f( 2.5,-2.5,-2.5);

{Top Face}f( 0.0, 1.0, 0.0);f( 1.0, 1.0); glVertex3f( 2.5, 2.5,-2.5);f( 0.0, 1.0); glVertex3f(-2.5, 2.5,-2.5);f( 0.0, 0.0); glVertex3f(-2.5, 2.5, 2.5);f( 1.0, 0.0); glVertex3f( 2.5, 2.5, 2.5);

{Bottom Face}f( 0.0,-1.0, 0.0);f( 1.0, 1.0); glVertex3f(-2.5,-2.5,-2.5);f( 0.0, 1.0); glVertex3f( 2.5,-2.5,-2.5);f( 0.0, 0.0); glVertex3f( 2.5,-2.5, 2.5);f( 1.0, 0.0); glVertex3f(-2.5,-2.5, 2.5);;;:=BackList+1;(CubeList, GL_COMPILE);(GL_TEXTURE_2D, textures[1]);(GL_TRIANGLES);

{Back Face}f( 0.0, 0.0,-1.0);f( 0.0, 0.0); glVertex3f( 0.5,-0.5,-0.5);f( 1.0, 0.0); glVertex3f(-0.5,-0.5,-0.5);f( 1.0, 1.0); glVertex3f(-0.5, 0.5,-0.5);;(GL_TEXTURE_2D, textures[1]);(GL_TRIANGLES);

{Left Face}f(-1.0, 0.0, 0.0);f( 0.0, 1.0); glVertex3f(-0.5, 0.5,-0.5);f( 0.0, 0.0); glVertex3f(-0.5,-0.5,-0.5);f( 1.0, 0.0); glVertex3f(-0.5,-0.5, 0.5);;(GL_TEXTURE_2D, textures[2]);;;: TDateTime;: integer;OpenGLControl1.MakeCurrent thennot AreaInitialized then begin;;(GL_PROJECTION); { prepare for and then }(); { define the projection }(-1.0, 1.0, -1.0, 1.0, 1.5, 20.0); { transformation }(GL_MODELVIEW); { back to modelview matrix }(0, 0, OpenGLControl1.Width, OpenGLControl1.Height);

{ define the viewport }:=true;;:=Now;:=round(CurTime*86400*1000) mod 1000;MSecs<0 then MSecs:=1000+MSecs;:=msecs-LastMsecs;timer<0 then timer:=1000+timer;:=MSecs;

// ParticleEngine.MoveParticles;(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);; { clear the matrix }(0.0, 0.0,-3.0); // -2.5); { viewing transformation }

{rotate};

// draw backgroundblended then begin(GL_BLEND);(GL_DEPTH_TEST);;(BackList);;;MoveCube then begin

// rx:=rx+0.5*(timer/10);:=ry+0.025*timer;

// rz:=rz+0.8*(timer/10);;

// glRotatef(rx,1.0,0.0,0.0);(ry,0.0,1.0,0.0);

// glRotatef(rz,0.0,0.0,1.0);

// draw cube(CubeList);blended then begin(GL_BLEND);(GL_DEPTH_TEST);;;.SwapBuffers;;;TExampleForm.OpenGLControl1Resize(Sender: TObject);(AreaInitialized)OpenGLControl1.MakeCurrent then(0, 0, OpenGLControl1.Width, OpenGLControl1.Height);;

{ TglTexture }TglTexture.Destroy;Data<>nil then FreeMem(Data);Destroy;;.

Приложение Б

Рисунок 1 - Расстановка объектов в сцене

программа испытание данная

Рисунок 2 - Текстурирование объектов

Рисунок 3 - Движение объектов относительно общей стороны в пространстве