Вращающийся шар

[lellel]

Dim Mtrx as D3DMATRIX

[a1ewka-gal4onok]

действительно.. Глобальную переменную-то не задал..

Теперь немного отвлеченный вопрос, пока делаю полосы прокрутки и другие элементы формы.. А можно ли снизить нагрузку на процессор? Когда, например, шар не движется, и когда движется. Заранее спасибо! ::)

[Debugger]

Это ловить можно, но не стоит - ибо столько гемора наловишь, а полученный результат сомнителен.
Загрузка на процессор должна быть 100% - ибо наша прогамма делает что-то в цикле.
Если ты запускаешь другие программы одновременно с этой и смотришь, как они тормозят - так и должно быть.
З.Ы. а если скролбара всего 2... Может быть, тебе вообще не стоит юзать 3D, а просто создать двухмерную коллекцию картинок с глобусом и выводить соответствующую для текущего положения скролбаров?..

[Ktulhu]

А можно ли снизить нагрузку на процессор? Когда, например, шар не движется, и когда движется. Заранее спасибо! ::)

можно. цикл прорисовки вызывай из события Scroll скроллбаров. при этом в цикле сперва должен вызыватся d3ddevice.Clear(), а в конце цикла d3ddevice.Reset(), но не наоборот.

[Mikle]

Может не Reset, а Present?
А про событие Scroll мысль верная, еще можно вызывать из Paint, чтобы картинка не пропадала при перекрытии формы другими формами.

[Ktulhu]

Может не Reset, а Present?
А про событие Scroll мысль верная, еще можно вызывать из Paint, чтобы картинка не пропадала при перекрытии формы другими формами.

точно-точно. напутал. Present().

[a1ewka-gal4onok]

Ну наконец-то на моей улице праздник! Начинаю потихоньку понимать всю логику
Спасибо! Сделал так:

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

Private Sub HScroll1_Change()
    d3dDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HFFFFFF, 1, 0
    D3DXMatrixRotationY Mtrx, QTime * 0.5
    d3dDevice.SetTransform D3DTS_WORLD, Mtrx
    d3dDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

Private Sub VScroll1_Change()
    d3dDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HFFFFFF, 1, 0
    D3DXMatrixRotationX Mtrx, QTime * 0.5
    d3dDevice.SetTransform D3DTS_WORLD, Mtrx
    d3dDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

Всё замечательно! Но есть ещё вопрос
А как сделать тогда так, чтобы при перемещении ScrollBar`ов шар вращался, причём так, чтобы не было видно мерцания, связанного с &HFFFFFFв d3dDevice.Clear?

[djalex777]

Ну наконец-то на моей улице праздник! Начинаю потихоньку понимать всю логику
Спасибо! Сделал так:

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

Private Sub HScroll1_Change()
    d3dDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HFFFFFF, 1, 0
    D3DXMatrixRotationY Mtrx, QTime * 0.5
    d3dDevice.SetTransform D3DTS_WORLD, Mtrx
    d3dDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

Private Sub VScroll1_Change()
    d3dDevice.Clear 0, ByVal 0, D3DCLEAR_TARGET, &HFFFFFF, 1, 0
    D3DXMatrixRotationX Mtrx, QTime * 0.5
    d3dDevice.SetTransform D3DTS_WORLD, Mtrx
    d3dDevice.Present ByVal 0, ByVal 0, 0, ByVal 0
End Sub

А книжку ты всё таки не читал... Какой смысл этого кода???

Всё замечательно! Но есть ещё вопрос
А как сделать тогда так, чтобы при перемещении ScrollBar`ов шар вращался, причём так, чтобы не было видно мерцания, связанного с &HFFFFFFв d3dDevice.Clear?

Да чегож хорошего? Мерцание не связано с тем, что ты написал. Для того чтобы шар вращался, его нужно хотя бы... рисовать для начала...

[Ktulhu]

во-первых писалось HScroll1_Scroll(), а не HScroll1_Change().
после строчки

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

d3dDevice.SetTransform D3DTS_WORLD, Mtrx

рисуй свою сферу.
d3dDevice.Begin() и d3dDevice.End() не вижу.
хз что у тебя там мерцает. надеюсь, когда перенес прорисовку на скроллбары, убрал цикл из Форм_Лоада

[a1ewka-gal4onok]

Да, точно.. Спасибо, разобрался!

Всё вращается как надо.

Вот только вопросы не кончаются.. Господа, как сделать координатную сетку?
В общем, требуется наносить по координатам города, отмечать их красными точками.

Как поступить мне в решении этого вопроса? Где бы почитать? Или может снова дельный совет будет?

Координаты городов берутся из базы данных

[Ktulhu]

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

Private Type LineVert
x As Single
y As Single
z As Single
color As Long
End Type
Private Const LineFVF = D3DFVF_XYZ Or D3DFVF_DIFFUSE

Public Sub Draw3DLine(Vec1 As D3DVECTOR, Vec2 As D3DVECTOR, Optional color1 As Long = -1, Optional color2 As Long = -1)
Dim Vert(1) As LineVert

Vert(0).color = color1
Vert(0).x = Vec1.x
Vert(0).y = Vec1.y
Vert(0).z = Vec1.z
Vert(1).color = color2
Vert(1).x = Vec2.x
Vert(1).y = Vec2.y
Vert(1).z = Vec2.z

D3DDevice.SetRenderState D3DRS_LIGHTING, 0
D3DDevice.SetVertexShader LineFVF
D3DDevice.DrawPrimitiveUP D3DPT_LINELIST, 1, Vert(0), Len(Vert(0))
End Sub

рисует линию в пространстве. можно в цикле ими сетку отрисовать. только это не самый оптимальный, с точки зрения производительности, код)

[a1ewka-gal4onok]

Всем спасибо!

Разобрался до конца, как и требовалось!
Спасибо!