VPF::3d - без DirectX - Форум программистов

Mind_master

Дата 14.4.2007, 14:33 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть ли алгоритмы, для отрисовки 3d стандартными способами(Canvas) в delphi???

smile

Это сообщение отредактировал(а) Alexeis - 14.4.2007, 15:05

Alexeis

Дата 14.4.2007, 17:24 (ссылка)

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

Загрузка ...

Амеба

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

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

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

Это сообщение отредактировал(а) Alexeis - 14.4.2007, 17:25

Присоединённый файл ( Кол-во скачиваний: 74 )

CubeModified.rar 5,35 Kb

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

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

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

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

Mind_master

Дата 17.4.2007, 14:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Пасибо большое!!!!!!!!!!!!!!!!!!!!!!!!!!!
smile

Snowy

Дата 17.4.2007, 14:35 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

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

Только StrToFloat нужно переписать:

Код


function StrtoFloat(s: string): Double;
begin
  s := StringReplace(s, ',', DecimalSeparator, [rfReplaceAll]);
  result := StrToFloatDef(s, 0);
end;

А то вылетает при других региональных настройках.

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