text writefile bmax blitz3d

bmax in my computer

2700
2800

blitz3d
1670
1600




code: bmax

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


te=MilliSecs()

file=WriteFile("bla.txt")

maxx=2000

For nx=0 To maxx
For ny=0 To maxx

WriteByte file,pix_r[nx,ny]
WriteByte file,pix_g[nx,ny]
WriteByte file,pix_b[nx,ny]


Next
Next

CloseFile file

Print (MilliSecs()-te)


te=MilliSecs()

file=ReadFile("bla.txt")

maxx=2000

For nx=0 To maxx
For ny=0 To maxx

pix_r[nx,ny]=ReadByte(file)
pix_g[nx,ny]=ReadByte(file)

pix_b[nx,ny]=ReadByte(file)



Next
Next

CloseFile file

Print (MilliSecs()-te)

code blitz3d

dim pix_r(2000,2000)
dim pix_g(2000,2000)
dim pix_b(2000,2000)


te=millisecs()

file=writefile("bb.txt")

maxx=2000

for nx=0 to maxx
for ny=0 to maxx

writebyte(file,pix_r(nx,ny))
writebyte(file,pix_g(nx,ny))
writebyte(file,pix_b(nx,ny))

next
next



closefile file

print (millisecs()-te)



te=millisecs()

file=readfile("bb.txt")


for nx=0 to maxx
for ny=0 to maxx

pix_r(nx,ny)=readbyte(file)
pix_g(nx,ny)=readbyte(file)
pix_b(nx,ny)=readbyte(file)



next
next



closefile file

print (millisecs()-te)


waitkey