2D bank ? 3D bank ? 4D bank ?

Blitz3D Forums/Blitz3D Beginners Area/2D bank ? 3D bank ? 4D bank ?

RemiD

(Posted 2013) [#1]

Hello,

I am doing others tests to store datas with a bank but i need to have the equivalent of 2d arrays, 3d arrays, 4d arrays, and maybe more.

So i have coded this :

Graphics3D(640,480,32,2)
SeedRnd(MilliSecs())

;properties of the 2D list
Global BankHeightD1Size% = 10 
Global BankHeightD2Size% = 10

;Bank which holds the 2D list
BankHeightTotalSize% = BankHeightD1Size * BankHeightD2Size * 1 
BankHeight = CreateBank(BankHeightTotalSize) ;"Height" is the name of the bank

TX% = Rand(1,10)
TZ% = Rand(1,10)
;Write a value in the 2D list
THeight% = 050
WriteByteToBank(BankHeight,TX,TZ,THeight)
DebugLog("THeight at "+Str(TX)+","+Str(TZ)+" = "+Str(THeight))

;Read a value in the 2D list
THeight% = ReadByteFromBank(BankHeight,TX,TZ)
DebugLog("THeight at "+Str(TX)+","+Str(TZ)+" = "+Str(THeight))

DebugLog("")

For TX% = 0 To 9
 For TZ% = 0 To 9
  THeight% = Rand(000,255)
  WriteByteToBank(BankHeight,TX+1,TZ+1,THeight)
  DebugLog("THeight at "+Str(TX)+","+Str(TZ)+" = "+Str(THeight))
 Next
Next

DebugLog("")

For TX% = 0 To 9
 For TZ% = 0 To 9
  THeight% = ReadByteFromBank(BankHeight,TX+1,TZ+1)
  DebugLog("THeight at "+Str(TX)+","+Str(TZ)+" = "+Str(THeight))
 Next
Next

FlushKeys()
WaitKey()
End()

Function WriteByteToBank(Bank,D1%,D2%,Value%)
 o% = 0 + ((D2-1)*BankHeightD1Size) + D1-1 
 PokeByte(Bank,o,Value)
End Function

Function ReadByteFromBank%(Bank,D1%,D2%)
 o% = 0 + ((D2-1)*BankHeightD1Size) + D1-1 
 Value% = PeekByte(Bank,o)
 Return Value
End Function

It seems to work properly, can you please tell me if this is correct ?

I am still learning about this, i don't want to mess up the memory.

Thanks,