Свет (spot light)

[-=BADBOY=-]

Вот такая проблемка создаю источник света D3DLIGHT_SPOT, а он ничего не освещает

Сама функция

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


' Добавление напраленного источника света
Public Function AddLightSpot(X As Single, Y As Single, Z As Single, Xto As Single, Yto As Single, Zto As Single, Theta As Integer, Phi As Integer, Range As Single, Optional Attenuation1 As Single = 0.005)

    ReDim Preserve Light(LightCount)

    With Light(LightCount)
        .Type = D3DLIGHT_SPOT ' Задает тип источника света
        .Position = CreateVector(X, Y, Z) ' Вектор, задающий местоположение источника света в пространстве
        .Ambient = CreateDXColorRGBA(1, 1, 1, 100)  ' Цвет фоновой составляющей испускаемого источником света
        .Direction = CreateVector(Xto, Yto, Zto)         ' Вектор, задающий направление, в котором распространяется свет
        .Falloff = 1#         ' Определяет как меняется интенсивность света в пространстве между внутренним и внешним конусами
        .Theta = Theta        ' Pадает угол внутреннего конуса в радианах
        .Phi = Phi            ' Pадает угол внешнего конуса в радианах
        .diffuse = .Ambient   ' Цвет рассеиваемой составляющей испускаемого источником света
        .specular = .Ambient  ' Цвет отражаемой составляющей испускаемого источником света
        .Range = Range        ' Максимальное расстояние, на которое может распространиться свет
        .Attenuation1 = Attenuation1
    End With

    D3Ddevice.SetLight LightCount, Light(LightCount)
    D3Ddevice.LightEnable LightCount, True
    LightCount = LightCount + 1

End Function


Вызов

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


xLight.AddLightSpot 0, 1, 0, 0, -10, 0, 0.5, 1, 50


Никаких изминений на картинке не наблюдаю , зоздаю источник света типа point или directional - свет хорошо виден.
Не подскажите в чём может быть дело или где у меня ошибка?
Зарание большое спасибо.

[Mikle]

-=BADBOY=-
А геометрия (вертексы) содержит Diffuse? А TSS выставлены правильно?

[-=BADBOY=-]

Mikle
Геометрия Diffuse содержит.
Единственное что менял связанное с TSS, всё остальное по умолчанию

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


    D3Ddevice.SetTextureStageState 0, D3DTSS_MAGFILTER, D3DTEXF_ANISOTROPIC
    D3Ddevice.SetTextureStageState 0, D3DTSS_MINFILTER, D3DTEXF_ANISOTROPIC
    D3Ddevice.SetTextureStageState 0, D3DTSS_MIPFILTER, D3DTEXF_ANISOTROPIC
    D3Ddevice.SetTextureStageState 0, D3DTSS_MAXANISOTROPY, 16


Другими типами света обьекты освечиваются без проблем

[Mikle]

Попробуй прописать Diffuse*Texture вручную.

[-=BADBOY=-]

Mikle
Не хочу покозатся ламером... Но с 3D я работаю всего неделю так что не совсем точно предстовляю где и как это надо прописать. Подробней не обьесниш?

[Yurich]

Mikle
Не хочу покозатся ламером... Но с 3D я работаю всего неделю так что не совсем точно предстовляю где и как это надо прописать. Подробней не обьесниш?

.Direction надо задавать как Sin() или Cos() угла в радианах. Пределы [0-1]. Попробуй привязаться к углам обзора камеры, должно получиться.
Углы Phi, Theta в радианах! Phi [0 - 3.14], Theta [0 - Phi]. Исправь

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

Dim HorLookDegree As Single  ' горизонтальный угол обзора (0-360) в градусах
Dim VertLookDegree As Single ' вертикальный в угол (0-180) градусах
Dim Dx As Single, Dy as Single, Dz As Single

HorLookDegree = 0
VertLookDegree = 90
DX = Sin(HorLookDegree*3.14/180)
DY = Cos(VertLookDegree*3.14/180)
DZ = Cos(HorLookDegree*3.14/180)

xLight.AddLightSpot 0, 1, 0, Dx, Dy, Dz, 0, 0.78, 50

Public Function AddLightSpot(X As Single, Y As Single, Z As Single, Xto As Single, Yto As Single, Zto As Single, Theta As Single, Phi As Single, Range As Single, Optional Attenuation1 As Single = 0.005)
...
End Function


[-=BADBOY=-]

Yurich
Спасибо, но это не помогло.


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

[Mikle]

-=BADBOY=-
SetRenderState ...DiffuseMaterialSource попробуй поменять, если юзаешь материалы.

[VladPro]

Пол и стены освещаются, причём текстурирование дела не меняет.

Я делал такой "фонарик". Когда наводил его на модель (Tiny) отлично видел круг света. Когда на стены - только слабые отблески. Попробуй посветить в углы - заметишь. Как рассчитывается освещение? По нормалям. Думаю (поправьте, если ошибаюсь) что берётся среднее значение между соседними нормалями. Поэтому если нормалей по 3 на треугольник, а стена состоит из двух треугольников - круга света не увидишь. Попробуй сделать треугольников побольше.

[-=BADBOY=-]

VladPro

СПАСИБО!!! Действительно увиличел каличество полигонов для пола и свет стал виден

[K0GG]

Привет.
По поводу SPOT света.
Из форума я не понял какой параметр SetRenderState ...DiffuseMaterialSource
ты поставил, чтобы тектуры стали видны?
Полный пример сохранился? Если да - выложи пожалуйста.

[longwair]

Я делаю так

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

Public Sub InitLight()
Dim Light1 As D3DLIGHT8
Dim Col1 As D3DCOLORVALUE
With Col1
.r = 1
.g = 1
.b = 1
End With
With Light1
.Type = D3DLIGHT_SPOT
.diffuse = Col1
.specular = Col1
.Ambient = Col1
.Position = vec3(0, 15, 0)  'Позиция источника
.Direction = vec3(0, 15, 50) 'Направление источника
.Range = 80    'Максимум куда светит свет
.Attenuation0 = 5 'Ну типо яркость
.Theta = 0.2
.Phi = 0.5
End With


Остальное смотри в проекте. Да и кстати, чем больше в меше полигонов тем качественней пятно света.

[K0GG]

Спасибо longwair.