блин, тадеус, скока время у тебя займет написать это:
Graphics3D 640,480,16,2
tex1=CreateTexture(64,64,256)
tex2=CreateTexture(64,64,1)
a=MilliSecs()
buff=TextureBuffer(tex2)
For i=0 To 63
For j=0 To 63
WritePixel(i,j,2,buff)
Next
Next
Print MilliSecs()-a
a=MilliSecs()
buff=TextureBuffer(tex1)
For i=0 To 63
For j=0 To 63
WritePixel(i,j,2,buff)
Next
Next
Print MilliSecs()-a
WaitKey
?
у меня заняло 4 минуты.