код такой при инициализации:
- Код: Выделить всё
Set TexBox = D3DX.CreateTextureFromFile(d3ddevice, App.Path + "\beton.dds")
Set TexBox1 = D3DX.CreateTextureFromFile(d3ddevice, App.Path + "\tex1.dds")
d3ddevice.SetTextureStageState 1, D3DTSS_COLOROP, D3DTOP_MODULATE
d3ddevice.SetTextureStageState 1, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEPOSITION Or 1
d3ddevice.SetTextureStageState 1, D3DTSS_TEXTURETRANSFORMFLAGS, D3DTTFF_COUNT2
Dim mat As D3DMATRIX, mat1 As D3DMATRIX
D3DXMatrixRotationX mat, pi
D3DXMatrixScaling mat1, 0.02, 0.02, 0
D3DXMatrixMultiply mat, mat, mat1
D3DXMatrixTranslation mat1, 0.5, 0.5, 0
D3DXMatrixMultiply mat, mat, mat1
d3ddevice.SetTransform D3DTS_TEXTURE1, mat