text writefile bmax blitz3d

SuperStrict

Global pix_r:Byte[2001,2001]
Global pix_g:Byte[2001,2001]
Global pix_b:Byte[2001,2001]

Local te:Int=MilliSecs()
Local file:tstream=WriteStream("bla.txt")
Local maxx:Int=2000

For Local nx:Int=0 To maxx
For Local ny:Int=0 To maxx
	WriteByte file,pix_r[nx,ny]
	WriteByte file,pix_g[nx,ny]
	WriteByte file,pix_b[nx,ny]
Next
Next

CloseStream file
Print (MilliSecs()-te)

Local te1:Int=MilliSecs()
Local file1:tstream=ReadStream("bla.txt")

For Local nx1:Int=0 To maxx
For Local ny1:Int=0 To maxx
	pix_r[nx1,ny1]=ReadByte(file1)
	pix_g[nx1,ny1]=ReadByte(file1)
	pix_b[nx1,ny1]=ReadByte(file1)
Next
Next
CloseStream file1
Print (MilliSecs()-te1)

Bmax : 2231 - 2310
Blitz3d: 1460 - 1628