All_Creater
Вот тебе структура спрайта - делай с ним что хочешь
Structure D3DTLVERTEX
Px.f
Py.f
Pz.f
Rhw.f
Color.l
Specular.l
Tu.f
Tv.f
EndStructure
Structure SPRITE3D
Surface.IDIRECTDRAWSURFACE7
Vertex.D3DTLVERTEX[4]
Width.w
Height.w
Reserved.l
EndStructure
Procedure Sprite3dColoring(*This.SPRITE3D, Color.l)
For i = 0 To 3
*This\Vertex[i]\Color = Color
Next
EndProcedure