WritePixel & his buggs

[Diplomat]

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

[pax]

У меня не вылетает...

[SubZer0]

добросовестно вылетает

[tormoz]

WritePixelFast - бяка.
Непредсказуемо вылетает на некотором железе без всяких причин.
Избавляйся от него.

[Иннокентий]

все нормально, v1.83 )