height [i, j]:=vis;

…

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

Заключение

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

Список литературы

1. Михаил Краснов, OpenGL в Delphi, электронный вариант.

2. Эйнджел, Эдвард, Интерактивная компьютерная графика. Вводный курс на базе OpenGL, 2 изд.: Пер. с англ. – М.: Издательский дом «Вильяме», 2001. – 592 с: ил. – Парал. тит. Англ.

3. Райт, OpenGL. Суперкнига, 3-е издание [Электронный ресурс] / Райт, Ричард С.-мл., Липчак, Бенджамин // Книги по программированию. [Режим доступа: http://www.pmg.org.ru/nehe/nehe07.htm

Приложение А

unitUnit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, OpenGL, ExtCtrls, Math, StdCtrls, ComCtrls, TEXTURES;

type

TForm1 = class(TForm)

Timer1: TTimer;

Panel1: TPanel;

Button1: TButton;

Button2: TButton;

Button3: TButton;

Button4: TButton;

TrackBar1: TTrackBar;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Button5: TButton;

Button6: TButton;

procedure FormKeyDown (Sender: TObject; var Key: Word;

Shift: TShiftState);

procedure FormCreate (Sender: TObject);