3 dimensional array
BlitzPlus Forums/BlitzPlus Programming/3 dimensional array
| ||
Hi all..... I have been trying to work out this simple array, (well i though it was simple!) the data are for x,y,frame cords' i just want to read them to an array so i can just run through a loop to display them.... i have been messing about with the following code and i have tried all of the avail combinations but alas the closest i can get to displaying anything is that everything gets bunched up in the top left corner of the screen.... if any one can see the hole in it ,i would be eternally grateful .... Graphics 512,384,16,2 SetBuffer BackBuffer() Global item=LoadAnimImage("items.png",16,16,0,7) Dim items(1,3,11) For c = 1 To 11 For b = 1 To 3 For a = 1 To 1 Read items(a,b,c) Next Next Next Data 144,0,6 Data 256,16,1 Data 144,20,6 Data 144,40,6 Data 144,60,6 Data 144,80,6 Data 144,100,6 Data 144,120,6 Data 144,140,6 Data 144,160,6 Data 144,180,6 While Not KeyHit(1) Cls For a = 1 To 11 For b = 1 To 3 For c = 1 To 1 DrawImage(item,a,b,c) Next Next Next Flip Wend End |
| ||
For this you only need a two dimensional array. Because you have 11 items (1st dimension) and the have 3 parameters (2nd dimension). And the way you are reading is wrong: Dim items[11,3] ..... For i=1 to 11 Read items[i,1] Read items[i,2] Read items[i,3] Next ..... For i=1 to 11 DrawImage item, items[i,1], items[i,2], items[i,3] Next |
| ||
God damn it !!! I knew it was simple... just couldn't see it Many thanks, and a lesson learned.. |