forum.boolean.name - WritePixel & his buggs

Доброго!
Прошу протестить следующий код на предмет вылетов в МАВ.
Идея в том, что при такой структуре, ВрайтПиксёл у меня работает только с первыми 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