Доброго!
Прошу протестить следующий код на предмет вылетов в МАВ.
Идея в том, что при такой структуре, ВрайтПиксёл у меня работает только с первыми 8 складированными в видеопамять текстурами и упорно глючит на остальные.
А у вас как?
;Init
Graphics3D 800,600,32,2
;Create the array to store the textures
Dim Tex(10)
For q=1 To 10
Tex(q)=CreateTexture(16,16,256+512)
LockBuffer TextureBuffer(Tex(q))
Next
;write the pixel to 7th (or any previous) texture- all OK!
For q=1 To 7
SetBuffer TextureBuffer(Tex(q))
Alph=Rnd(255)
Col=255 Shl 24 Or Alph Shl 16 Or Alph Shl 8 Or Alph Shl 0
WritePixelFast x,ShadeSegs-y,Col
Next
;trying to write pixel to 8th (or any next) texture- MAV!
For q=8 To 10
SetBuffer TextureBuffer(Tex(q))
Alph=Rnd(255)
Col=255 Shl 24 Or Alph Shl 16 Or Alph Shl 8 Or Alph Shl 0
WritePixelFast x,ShadeSegs-y,Col
Next