Снова Ландшафт

[Bonesnapper]

vitalik_b
круто

DirectXManiac
я думаю надо писать собственный формат
ато 2 картинки таскать както не очень по мойму
не обязательно даже сжимать данные
сделать просто что то вроде этого

запись
Open TrimNull(OpenFileName.File) & ".map" For Binary As #f
Put #f, , MapInf
Put #f, , arr()
Put #f, , arr2()
Close #f

чтение
Open fName For Binary As #F
Get #F, , MapInf
ReDim arr(MapInf.SizeY - 1, MapInf.SizeX - 1) As Byte - карта высот
ReDim arr2(MapInf.SizeY - 1, MapInf.SizeX - 1) As Byte - текстур карта
Get #F, , arr()
Get #F, , arr2()
Close #F

я так делал для создания ландшафта
чтоб не разбираться с форматами ТГА/БМП

[Mikle]

Bonesnapper
Я тоже думаю, что нужно писать в своем формате, но дело не в сложности форматов текстур - TGA очень прост, а в ограничении в 256 градаций, это очень мало, нужно делать хотя бы Integer, а лучше сразу Single, и не придется пользоваться FilterHeight.
Сейчас я делаю полностью новую версию ландшафта с LOD на QTree, думаю, скоро выложу.

[Mikle]

Удалил дубль.

[DirectXManiac]

Mikle, Bonesnapper:
Я уже написал свой формат и не ношу с собой текстуры... всё в одном файле... Причём файл сцены весит 150-200 КБ

[Bonesnapper]

а как мен отключить вертекс шейдер
достаточно просто написать
d3dDevice.SetPixelShader 0
или нет

[Mikle]

Код: Выделить всё

d3dDevice.SetPixelShader

Отключает не вертексный, а пиксельный шейдер. А вот

Код: Выделить всё

d3dDevice.SetVertexShader d3dfvf_.....

заменяет вертексный шейдер на комбинацию флагов.

[Bonesnapper]

ну я пиксельный имел ввиду
ошибся просто
спасибо

[DirectXManiac]

Bonesnapper
А зачем его выключать?

[Bonesnapper]

ну кроме ландшафта наверно
есть что рисовать с другими текстурами

[DirectXManiac]

Bonesnapper
Понятно...
ЗЫ Чего не заходишь на мой форум?

[vitalik_b]

Вот сделал мултитекстурирование с 8 текстурами.
Работает в 2 раза медленнее, т.к. рисуется через 2 прохода.

[DirectXManiac]

vitalik_b
Ты просто маньяк! Как и я...

[DirectXManiac]

Теперь вопрос посложнее... По поводу динамики вертексов... Есть такая структура
1111
1221
1321
1111
4х4 полигона... У каждого есть высота(цифра)... Мне надо посчитать высоты для каждого полигона чтоба сгладить ланд т.е. чтобы было между рядом стоящими было меньше расстояние... подскажите как это сделать? Я думал брать среднее но может получиться ужнасно

[DirectXManiac]

Вот примерно так как на картинке

[Mikle]

DirectXManiac
Не понял, ты хочешь сгладить, не добавляя вертексов, или добавляя?

[DirectXManiac]

Без разницы...
P.S. Посмотри личку

[Mikle]

Ну, не добавляя можно сделать только с потерей детализации, это, например, делает FilterHeight в ландшафте.
А вот добавляя вертексы:

Код: Выделить всё

Option Explicit
Dim m(511) As Single

Private Sub Form_Load()
  Me.ScaleMode = vbPixels
  Me.Width = 500 * Screen.TwipsPerPixelX
  Me.Height = 300 * Screen.TwipsPerPixelY
End Sub

Private Sub Form_Click()
Dim x As Long
  Randomize Timer
  Me.Cls
  For x = 0 To 511 Step 64
    m(x) = Rnd * 256
    Me.Circle (x, m(x)), 3, RGB(255, 0, 0)
  Next x
  Filter
End Sub

Private Sub Filter()
Dim x As Long, dx As Long, Ind As Long
  dx = 64
  Do
    Ind = 0
    Do
      x = Ind * dx + dx \ 2
      m(x) = mVal(Ind - 1, dx) * -0.0625 + mVal(Ind, dx) * 0.5625 + mVal(Ind + 1, dx) * 0.5625 + mVal(Ind + 2, dx) * -0.0625
      Me.PSet (x, m(x)), RGB(0, 0, 0)
      Ind = Ind + 1
      If Ind * dx > 511 Then Exit Do
    Loop
    dx = dx \ 2
    If dx < 2 Then Exit Do
  Loop
End Sub

Private Function mVal(ByVal Ind As Long, ByVal dx As Long) As Single
  If Ind < 0 Then Ind = 0
  If Ind * dx > 511 Then Ind = 511 \ dx
  mVal = m(Ind * dx)
End Function


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

[DirectXManiac]

О! Спасибо! Попробую...

[DirectXManiac]

Вот! Я тут усовершенствовал свои знания в шейдерах и вместо 4ой тексутры сделал детализированную! Очень даже ничего вышло! Как вам? На скрине видно разницу между использованием без неё и с ней...

[vitalik_b]

Нормально, только снег на снег не похож, и трава на траву.

Вот если для каждой текстуры свою детализированную...
А ещё лучше бамп сделать.
(гм тормозить будет, 4 прохода получится)

[DirectXManiac]

vitalik_b
Зато можно использовать текстуры 32х32 и не бояться потери качества! Это утопия делать на ps.1.1 такое! Надо делать на ps.1.4 через 2,3 прохода(phase) так будет намного быстрее!

[vitalik_b]

А лучше на ps.2.0, там можно сразу 8 текстур за проход рисовать.
Жаль только DX8 их не поддерживает.

А разве ps.1.4 можно использовать в DX8

[Bonesnapper]

По сдк вроде как можно
но у меня почемуто
ps.1.4
не проходит

[vitalik_b]

DX8 поддерживает только ps.1.0 - ps.1.3
ps.1.4 появились в DX8.1

[Bonesnapper]

я конечно не знаю но сдк у меня по 8.1
а что там к вб подключается не ясно

[Mikle]

Bonesnapper

у меня почемуто
ps.1.4
не проходит

А у тебя, случайно, не Ti4200 ?

[Bonesnapper]

Нет у меня 6800гт

[DirectXManiac]

Mikle
Расскажи как юзать ps.1.4...
Там как-то регистрировать надо через texld r0,t0... и можно тогда использовать до 6 текстур!

[vitalik_b]

Вот ландшафт на 16 текстур.
Видны швы между текстурами.
(наверное, я в шейдерах что-то не так сделал)

[DirectXManiac]

Ничего себе 16 текстур.... Только вот зачем? 4 прохода это слишком уже тормозит скорость! А вообще круто! Я например переделал шейдер и сделал 6 текстур и 2 дет. карты... Т.е. снег и песок в одной - остальное в другой и получилось неплохо + скорость больше намного!