Конференция VBStreets

**RADIST(vb2ar23)** » 28.04.2005 (Чт) 14:12

Вот есть у меня х - файлик. Там моделька анимирована. Как мне на ВБ6 реализовать эту анимацию под DX8.1

**Mikle** » 28.04.2005 (Чт) 15:18

В SDK есть пример воспроизведения анимированного X-файла. Если этого мало - недавно здесь Yurich выкладывал свой вариант, пройдись по темам, не так давно это было.

**Бутч** » 29.04.2005 (Пт) 17:50

Можешь зайти на vb.kiev.ua. Там должен быть толковый примерчик под названием Cyborg3D. Кроме анимации еще кучу вещей показывает. Проблема только в том, что он на 7-м директе написан.
Надеюсь сможешь и под восьмой переделать.

**d3drm** » 29.04.2005 (Пт) 21:52

Бутч, да ты прав, not up-to-date

Mikle, как выложил так и убрал =)

**Yurich** » 30.04.2005 (Сб) 3:27

d3drm писал(а):Mikle, как выложил так и убрал =)

Не помню, чтоб убирал! Вроде тут и лежит
http://bbs.vbstreets.ru/viewtopic.php?t=10186
Только я не сказал бы, что примеры просты для понимания, скорее наоборот

**RADIST(vb2ar23)** » 30.04.2005 (Сб) 20:40

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

**RADIST(vb2ar23)** » 30.04.2005 (Сб) 22:30

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

**Yurich** » 01.05.2005 (Вс) 0:18

RADIST(vb2ar23) писал(а):Ах да... я конечно, что ленивые мы и тд. Но может ктонить нписал контрольчик или еще что, чтоб эту требуху неперетрехать, а то у меня больше одной модели не грузится, переделывать-не получается.

Эта, как говоришь, "требуха" разрабатывалась 6 месяцев, ленивым не рекомендуется. Ну да ладно, держите.
Токмо не забывайте при инициализации передать в ДЛЛ устройство рендеринга.
Dim Model As DXModel
Set Model = New DXModel
Model.SetDevice DX, D3DX, D3DDevice
If Right(FileName, 4) = ".mDX" Then 'это мной разработанный формат
Model.Load_mDXModel FileName, BmpPath
Else
Model.Load_XModel FileName, BmpPath ' X-формат
End If
AnimTimeStep = 1
MinAnimTime = 0
EndAnimTime = Model.GetEndAnimTime()
AnimTime = MinAnimTime

**RADIST(vb2ar23)** » 01.05.2005 (Вс) 13:37

Yurich! Ты уж извини меня за наглость. А за длл спасибо огромнейшее. Молодежь.... что про нас скажешь. И еще раз спасибо огоромнейшее!

**d3drm** » 03.05.2005 (Вт) 15:08

Yurich писал(а):
d3drm писал(а):Mikle, как выложил так и убрал =)

Не помню, чтоб убирал! Вроде тут и лежит
http://bbs.vbstreets.ru/viewtopic.php?t=10186

Эх, пора мне очки покупать...

Конференция VBStreets

Ну как в DX8.1 рефлизовать анимацию? Помогите неведающему!

Ну как в DX8.1 рефлизовать анимацию? Помогите неведающему!

Кто сейчас на конференции