VPF::OpenGL & Delphi Камера - Форум программистов

SoftKoc

Дата 30.10.2009, 05:19 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 17.10.2009

Репутация: нет
Всего: -1

Здравствуйте!!!

Помогите пожалуйста.

Я рисую на форме куб. И мне нужно чтобы камера была внутри него, а с помощью клавиатуры ней можно было бы управлять!!! ( Что-то типа комнаты в которой можно было бы перемещаться ).
Желательно самые простые методы и подробней описаны ( Новенький в этом всем ).

Код


procedure TForm1.DrawElement;
begin
glClear(GL_COLOR_BUFFER_BIT or GL_DEPTH_BUFFER_BIT);
glRotatef(1.0, 0.0, 0.1, 0.0);
glBegin(GL_QUADS);

glVertex3f(-10.2, -10.2, 0.0);
glVertex3f(10.2, -10.2, 0.0);
glVertex3f(10.2, 10.2, 0.0);
glVertex3f(-10.2, 10.2, 0.0);

glColor3f(0.0, 1.0, 0.0);

glVertex3f(-10.2, -10.2, 0.4);
glVertex3f(10.2, -10.2, 0.4);
glVertex3f(10.2, 10.2, 0.4);
glVertex3f(-10.2, 10.2, 0.4);

glColor3f(0.0, 0.0, 1.0);

glVertex3f(-10.2, -10.2, 0.0);
glVertex3f(10.2, -10.2, 0.0);
glVertex3f(10.2, -10.2, 0.4);
glVertex3f(-10.2, -10.2, 0.4);

glColor3f(1.0, 0.0, 1.0);

glVertex3f(10.2, 10.2, 0.0);
glVertex3f(-10.2, 10.2, 0.0);
glVertex3f(-10.2, 10.2, 0.4);
glVertex3f(10.2, 10.2, 0.4);

glColor3f(0.4, 1.9, 1.0);

glVertex3f(10.2, -10.2, 0.0);
glVertex3f(10.2, 10.2, 0.0);
glVertex3f(10.2, 10.2, 0.4);
glVertex3f(10.2, -10.2, 0.4);

glColor3f(0.7, 0.9, 0.5);

glVertex3f(-10.2, -10.2, 0.0);
glVertex3f(-10.2, 10.2, 0.0);
glVertex3f(-10.2, 10.2, 0.4);
glVertex3f(-10.2, -10.2, 0.4);
glEnd;
SwapBuffers(DC);
end;

Заранее благодарен!!! smile

Alexeis

Дата 30.10.2009, 10:05 (ссылка)

(нет голосов)

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 55
Всего: 459

http://pmg.org.ru/nehe/nehe10.htm

--------------------

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

gekkoN

Дата 6.11.2009, 20:34 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 6.11.2009

Репутация: нет
Всего: нет

GLScene скачай и поставь.Мне кажеться с ней проще работать и с камерой в частности.да и вообще
http://glscene.ru/

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »