Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Курсовая работа: Управление элементами поверхности

Название: Управление элементами поверхности
Раздел: Рефераты по информатике, программированию
Тип: курсовая работа Добавлен 17:40:58 28 ноября 2010 Похожие работы
Просмотров: 32 Комментариев: 2 Оценило: 0 человек Средний балл: 0 Оценка: неизвестно     Скачать

КУРСОВОЙ ПРОЕКТ

на тему:

«Управление элементами поверхности»

Орел, 2010

Введение

Понятие «компьютерная графика» существует уже давно. Трудно определить, когда именно и кем были разработаны первые понятия компьютерной графики. В настоящее время компьютерная графика – это огромный мир, такой же, как мир операционных систем, или программирования, это нечто большее, чем просто графика. Вообще, все, что на компьютере рисует пользователь – это и есть компьютерная графика.

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

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

Компьютерная графика широко используется на телевидении. Все больше и больше последнее время компьютерная графика используется при создании красивых телевизионных заставок, которые вещают на телеканалах. Красивые заставки – это залог успеха телеканала. Последнее время проводятся даже соревнования между телеканалами, у кого лучше заставка. Компьютерная графика стала самым основный ресурсом, который затрачивается при создании компьютерных игр. Любая компьютерная графика представляется в играх в так называемом трехмерном виде, или 3d. Данным подразделением компьютерной графики занимаются специализированные графические редакторы, например Maya, 3d-Studio Max.

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

Задачами является изучение основных возможностей создания трехмерных объектов в OpenGL, наложения текстур.

1. Постановка задачи

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

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

2. Описание алгоритма решения задачи

Для упрощения описания работы программы, алгоритм выполнения

был разбит на части: подключение библиотек, создание поверхности ландшафта, изменение поверхности ландшафта, реализация ориентирования на поверхности.

2.1 Подключение библиотек

Сначала необходимо инициализировать библиотеки и установить

общие свойства сцены. Для этого создадим обработчик события onCreate формы и занесем в него следующий код:

InitOpenGL(Handle);

glViewport (0, 0, ClientWidth-Panel1. Width, ClientHeight);

glClearColor (0,0,0,0);

glEnable (GL_DEPTH_TEST);

glMatrixMode (GL_PROJECTION);

gluPerspective (30.0, ClientWidth / ClientHeight, 0.1, 1000.0);

glMatrixMode (GL_MODELVIEW);

glLoadIdentity;

Первый оператор инициализирует библиотеку OpenGL и устанавливает связь с окном приложения, в котором будет производиться вывод. После получения контекста воспроизведения сообщаем системе OpenGL о том, что необходимо корректировать построения в соответствии с глубиной командой glEnable (GL_DEPTH_TEST). Команда glClearColor определяет величину, которой будет заполняться буфер цвета при его очистке, т.е. это будет цвет фона – черный.

2.2 Создание поверхности ландшафта

Для того чтобы создать ландшафт, было принято решение использовать массив, в котором будет храниться высота координат:

Var

height:array [-11..11, -11..11] of single;

При создании формы происходит вызов процедуры initmas, которая инициализирует массив высот:

procedure initmas;

var i, j:integer;

begin

for i:= -11 to 11 do

for j:=-11 to 11 do

begin

height [i, j]:=-1;

end;

end;

Рисование поверхности производится вызовом процедуры Draw в обработчике события OnPaint:

procedure Draw;

for i:=-10 to 10 do

for j:=-10 to 10 do

begin

x:=i*zoom;

z:=j*zoom;

glBindTexture (GL_TEXTURE_2D, MyTextureTex);

glBegin (GL_QUADS);

glTexCoord2f (0.0, 0.0); glVertex3f (x, height [i, j], z);

glTexCoord2f (1.0, 0.0); glVertex3f (x, height [i, j+1], z+zoom);

glTexCoord2f (1.0, 1.0); glVertex3f (x+Zoom, height [i+1, j+1], z+zoom);

glTexCoord2f (0.0, 1.0); glVertex3f (x+Zoom, height [i+1, j], z);

glEnd;

end;

end;

В этой процедуре по каждому значению массива height строится ландшафт.

2.3 Реализация ориентирования на поверхности

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

case key of

27: Form1. Close;

65: begin

Human. Position.z:=Human. Position.z+

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

87: begin

Human. Position.z:=Human. Position.z+

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

68: begin

Human. Position.z:=Human. Position.z-

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

83: begin

Human. Position.z:=Human. Position.z-

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

end;

При нажатии клавиши изменяется позиция наблюдателя в пространстве.

2.4 Изменение поверхности ландшафта

Чтобы изменить поверхность мы сначала должны получить координаты изменяемой поверхности. Получение координат реализуется процедурой GetCoordinate. Далее происходит изменение массива высот:

i:=Trunc(wx);

j:=Trunc(wz);

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);

procedure FormDestroy (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure FormResize (Sender: TObject);

procedure FormPaint (Sender: TObject);

procedure FormMouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Button3Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Button2Click (Sender: TObject);

procedure TrackBar1Change (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Button6Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

type

User=record

Position:record

x, y, z: Single;

end;

Rotation:record

y, zx: Single;

end;

end;

var

vis:single;

Form1: TForm1;

DC:HDC;

HRC:HGLRC;

Human: User;

MyTextureTex: glUint;

wx, wy, wz: GLdouble; // возвращаемые мировые x, у, z координаты

height:array [-11..11, -11..11] of single;

implementation

procedure glBindTexture (target: GLenum; texture: GLuint); stdcall; external opengl32;

{$R *.dfm}

procedure GetCoordinate (const x, y:integer);

var

Viewport: Array [0..3] of GLInt; // область вывода

mvMatrix, // матрица модели

ProjMatrix: Array [0..15] of GLDouble; // матрица проекций

RealY: GLint; // OpenGL у – координата

Zval: GLfloat; // оконная z – координата

Begin

glGetIntegerv (GL_VIEWPORT, @Viewport); // матрица области вывода

// заполняем массивы матриц

glGetDoublev (GL_MODELVIEW_MATRIX, @mvMatrix);

glGetDoublev (GL_PROJECTION_MATRIX, @ProjMatrix); // viewport[3] – высота окна в пикселах, соответствует Height

RealY:= viewport[3] – Y – 1;

FloatToStr (RealY);

glReadPixels (X, RealY, 1, 1, GL_DEPTH_COMPONENT, GL_FLOAT, @Zval);

gluUnProject (X, RealY, Zval,

@mvMatrix, @ProjMatrix, @Viewport, wx, wy, wz);

end;

procedure initmas;

var i, j:integer;

begin

for i:= -11 to 11 do

for j:=-11 to 11 do

begin

height [i, j]:=-1;

end;

end;

procedure changemas;

var i, j:integer;

begin

i:=Trunc(wx);

j:=Trunc(wz);

height [i, j]:=vis;

end;

procedure Draw;

var i, j:integer;

x, z:integer;

zoom:integer;

begin

glColor3f (1,0,0);

glPointSize (5);

glBegin (GL_POINTS);

glVertex3f (wx, wy, wz);

glEnd;

zoom:=1;

glColor3f (0. 7,1. 0,0.7);

for i:=-10 to 10 do

for j:=-10 to 10 do

begin

x:=i*zoom;

z:=j*zoom;

glPointSize (1);

glBindTexture (GL_TEXTURE_2D, MyTextureTex);

glBegin (GL_QUADS);

glTexCoord2f (0.0, 0.0); glVertex3f (x, height [i, j], z);

glTexCoord2f (1.0, 0.0); glVertex3f (x, height [i, j+1], z+zoom);

glTexCoord2f (1.0, 1.0); glVertex3f (x+Zoom, height [i+1, j+1], z+zoom);

glTexCoord2f (0.0, 1.0); glVertex3f (x+Zoom, height [i+1, j], z);

glEnd;

end;

end;

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

Shift: TShiftState);

const

SPEED=0.2;

begin

case key of

27: Form1. Close;

65: begin

Human. Position.z:=Human. Position.z+

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

87: begin

Human. Position.z:=Human. Position.z+

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

68: begin

Human. Position.z:=Human. Position.z-

sin (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x-

cos (DegToRad(Human. Rotation.y))*SPEED;

end;

83: begin

Human. Position.z:=Human. Position.z-

cos (DegToRad(Human. Rotation.y))*SPEED;

Human. Position.x:=Human. Position.x+

sin (DegToRad(Human. Rotation.y))*SPEED;

end;

end;

end;

procedure SetDCPixelFormat;

var

pfd:TPixelFormatDescriptor;

nPixelFormat: Integer;

begin

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

pfd.dwFlags:=PFD_DRAW_TO_WINDOW or

PFD_DOUBLEBUFFER or

PFD_SUPPORT_OPENGL;

nPixelFormat:=ChoosePixelFormat (DC,@pfd);

SetPixelFormat (DC, nPixelFormat,@pfd);

end;

procedure TForm1. Button1Click (Sender: TObject);

begin

Human. Rotation.y:=Human. Rotation.y-4;

if Human. Rotation.y>=360 then Human. Rotation.y:=0;

if Human. Rotation.y<0 then Human. Rotation.y:=360;

end;

procedure TForm1. Button2Click (Sender: TObject);

begin

Human. Rotation.y:=Human. Rotation.y+4;

if Human. Rotation.y>=360 then Human. Rotation.y:=0;

if Human. Rotation.y<0 then Human. Rotation.y:=360;

end;

procedure TForm1. Button3Click (Sender: TObject);

begin

glPolygonMode (GL_FRONT_AND_BACK, GL_LINE);

end;

procedure TForm1. Button4Click (Sender: TObject);

begin

glPolygonMode (GL_FRONT_AND_BACK, GL_FILL);

end;

procedure TForm1. Button5Click (Sender: TObject);

begin

Human. Rotation.zx:=Human. Rotation.zx+0.2;

end;

procedure TForm1. Button6Click (Sender: TObject);

begin

Human. Rotation.zx:=Human. Rotation.zx-0.2;

end;

procedure TForm1. FormCreate (Sender: TObject);

begin

vis:=0;

initmas;

DC:=GetDC(Handle);

SetDCPixelFormat;

HRC:=wglCreateContext(DC);

wglMakeCurrent (DC, HRC);

glViewport (0, 0, ClientWidth-Panel1. Width, ClientHeight);

glClearColor (0,0,0,0);

glEnable (GL_DEPTH_TEST);

glMatrixMode (GL_PROJECTION);

glLoadIdentity;

gluPerspective (30.0, ClientWidth / ClientHeight, 0.1, 1000.0);

glMatrixMode (GL_MODELVIEW);

glLoadIdentity;

glEnable (GL_TEXTURE_2D); // Enable Texture Mapping

LoadTexture ('texture.bmp', MyTextureTex, FALSE);

with Human do

begin

with Position do

begin

x:=6.4;

y:=0;

z:=-0.3878;

end;

with Rotation do

begin

y:=91;

zx:=10;

end;

end;

end;

procedure TForm1. FormDestroy (Sender: TObject);

begin

wglMakeCurrent (0,0);

wglDeleteContext(HRC);

ReleaseDC (Handle, DC);

DeleteDC(DC);

end;

procedure TForm1. Timer1Timer (Sender: TObject);

begin

InvalidateRect (Handle, nil, false);

end;

procedure TForm1. TrackBar1Change (Sender: TObject);

begin

Label2. Caption:=floattostr (TrackBar1. Position);

vis:=TrackBar1. Position;

end;

procedure TForm1. FormResize (Sender: TObject);

begin

glViewport (0, 0, ClientWidth-Panel1. Width, ClientHeight);

glMatrixMode (GL_PROJECTION);

glLoadIdentity;

gluPerspective (30.0, ClientWidth / ClientHeight, 0.1, 1000.0);

glMatrixMode (GL_MODELVIEW);

glLoadIdentity;

end;

procedure TForm1. FormPaint (Sender: TObject);

var

ps:TPaintStruct;

Const

LPos: Array [0..3] of GLFloat = (3.0, 10, -100.0, 1.0);

begin

BeginPaint (Handle, ps);

glClear (GL_COLOR_BUFFER_BIT or

GL_DEPTH_BUFFER_BIT);

glLoadIdentity;

glRotatef (Human. Rotation.zx, Abs (cos(DegToRad (Human. Rotation.y))), 0,0);

glRotatef (Human. Rotation.y, 0,1,0);

glTranslatef (Human. Position.x,

Human. Position.y,

Human. Position.z);

Draw;

EndPaint (Handle, ps);

SwapBuffers(DC);

end;

procedure TForm1. FormMouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

changemas;

end;

procedure TForm1. FormMouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

GetCoordinate (x, y);

end;

end.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений06:44:47 19 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
19:50:54 28 ноября 2015

Работы, похожие на Курсовая работа: Управление элементами поверхности

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

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



Результаты(150026)
Комментарии (1830)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru