2 dimensional array code problem

Author

Message

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 15th Aug 2013 21:17 Edited at: 15th Aug 2013 21:20

Link

I've created a 2 dimensional array and read data into it.
I then wanted to read it back out and a the values are showing 0.

Not sure what I am doing wrong.

Data Structure of Player Base Array
Array Name: PlyBase
Array Size: 9,4
Array Structure - Row 1 - Number of Lines to Draw
Row 2 to X - holds draw data
PlyBase(9,4) = Number of Lines in Draw

Starting Data:
8,0,0,0
0,-5,-8,3 `Arrow Point Left
0,-5, 8,3 `Arrow Point Right
-12,3,12,3 `Base Top Line
-12,12,13,12 `Base Bottom Line
-12,3,-12,12 `Base Left Side
-3,3,-3,12 `Arrow Left Side
3,3,3,12 `Arrow Right Side
12,3,12,12 `Base Right Side

Remend
Data 8,0,0,0
Data 0,-5,-8,3 `Arrow Point Left
Data 0,-5, 8,3 `Arrow Point Right
Data -12,3,12,3 `Base Top Line
Data -12,12,13,12 `Base Bottom Line
Data -12,3,-12,12 `Base Left Side
Data -3,3,-3,12 `Arrow Left Side
Data 3,3,3,12 `Arrow Right Side
Data 12,3,12,12 `Base Right Side

` Loading PlyBase Array

Dim PlyBase(9,4)

For Row= 1 to 9
For Column= 1 to 4
Read PlyBase(R,C)
NEXT
NEXT

X=350 : Y=200 ` Location of Base Dim Draw
` Base Dim Drawn

For FNX = 2 to 9 `PlyBase(1,1)
Print "FNX";FNX
Print "PlyBase 1 -";PlyBase(FNX,1)
Print "PlyBase 2 -";PlyBase(FNX,2)
Print "PlyBase 3 -";PlyBase(FNX,3)
Print "PlyBase 4 -";PlyBase(FNX,4)
Wait 300
NEXT

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 15th Aug 2013 21:19

Link

Okay so the code snippet I did didn't work right. How do I create a code snippet?

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 15th Aug 2013 21:30

Link

Quote: "How do I create a code snippet?"

Step 1: Copy your code to the clipboard in the usual way.

Step 2: Click somewhere in the Post Forum Message box just in case.

Step 3: Hit the code button.

Step 4: Paste your code from the clipboard.

Step 5: Hit the code button again.

With luck you should see a code box with your code in it after you post the message.

Powered by Free Banners

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 15th Aug 2013 22:31 Edited at: 15th Aug 2013 23:29

Link

Compare your code to this snippet. I believe this is what you’re trying to accomplish.

+ Code Snippet

` Loading PlyBase Array

dim PlyBase(8, 3)

for Row = 0 to 8
   for Column = 0 to 3
      read PlyBase(Row, Column)
   next Column
next Row

X = 320 : Y = 200 ` Location of Base Dim Draw
` Base Dim Drawn

for FNX = 1 to PlyBase(0, 0) `PlyBase(0, 0)
   line PlyBase(FNX, 0) + X, PlyBase(FNX, 1) + Y, PlyBase(FNX, 2) + X, PlyBase(FNX, 3) + Y
   wait 300
next FNX

wait key

data 8, 0, 0, 0
data 0, -5, -8, 3 `Arrow Point Left
data 0, -5, 8, 3 `Arrow Point Right
data -12, 3, 12, 3 `Base Top Line
data -12, 12, 13, 12 `Base Bottom Line
data -12, 3, -12, 12 `Base Left Side
data -3, 3, -3, 12 `Arrow Left Side
data 3, 3, 3, 12 `Arrow Right Side
data 12, 3, 12, 12 `Base Right Side

Back to top

Profile PM Email

Mobiius

Valued Member

23

Years of Service

User Offline

Joined: 27th Feb 2003

Location: The Cold North

Posted: 15th Aug 2013 23:50

Link

Your problem is here..

+ Code Snippet

For Row = 1 to 9
   For Column = 1 to 4
      Read PlyBase( R, C )
   NEXT
NEXT

Can you see what the issue is?

Now Visit My Website

Back to top

Profile PM Email Website

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 16th Aug 2013 06:53

Link

Thanks guys.

Thanks Mobiius. Yep, I see it. *Smacks hand to forehead*

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 16th Aug 2013 08:11 Edited at: 16th Aug 2013 08:11

Link

Now that I've moved beyond my error...
Lets try for a code snippet again.

Data 9,0,0,0
Data 0,-5,-8,3       `Arrow Point Left
Data 0,-5, 8,3       `Arrow Point Right
Data -12,3,12,3      `Base Top Line
Data -12,12,13,12    `Base Bottom Line
Data -12,3,-12,12    `Base Left Side
Data -3,3,-3,12      `Arrow Left Side
Data 3,3,3,12        `Arrow Right Side
Data 12,3,12,12      `Base Right Side

Data 6,0,0,0
Data 0,-5,-8,3       `Arrow Point Left
Data -12,3,-12,12    `Base Left Side
Data -3,3,-3,12      `Arrow Left Side
Data -12,3,0,3       `Base Top Line
Data -12,12,0,12     `Base Bottom Line

` Loading PlyBase Arrays

Dim PlyBase(9,4)
Dim PlyBaseM(6,4)

For Row= 1 to 9
    For Column= 1 to 4
    Read PlyBase(Row,Column)
    NEXT
NEXT

For Row= 1 to 6
    For Column= 1 to 4
    Read PlyBaseM(Row,Column)
    NEXT
NEXT

` Set Foreground and Background Color
FC = RGB (0,255,0)
BC = RGB (255,0,0)
INK FC,BC

` Base Line Drawn
X=100 : Y=200
Line X,Y-5, X-8,Y+3 `Arrow Point Left
Line X,Y-5, X+8,Y+3 `Arrow Point Right
Line X-12,Y+3, X+12,Y+3 `Base Top Line
Line X-12,Y+12, X+13,Y+12 `Base Bottom Line
Line X-12,Y+3, X-12,Y+12 `Base Left Side
Line X-3,Y+3, X-3,Y+12 `Arrow Left Side
Line X+3,Y+3, X+3,Y+12 `Arrow Right Side
Line X+12,Y+3, X+12,Y+12 `Base Right Side

` Base Dim Drawn
X=150 : Y=200 ` Location of Base Dim Draw

For FNX = 2 to PlyBase(1,1)
    Line X+PlyBase(FNX,1),Y+PlyBase(FNX,2),X+PlyBase(FNX,3),Y+PlyBase(FNX,4)
NEXT

` Base Dim Drawn Mirrored
X=200 : Y=200 ` Location of Mirriored Base Dim Draw
 
For FNX = 2 to PlyBaseM(1,1)
    Line X+(PlyBaseM(FNX,1)),Y+(PlyBaseM(FNX,2)),X+(PlyBaseM(FNX,3)),Y+(PlyBaseM(FNX,4))
    Line X+ABS(PlyBaseM(FNX,1)),Y+PlyBaseM(FNX,2),X+ABS(PlyBaseM(FNX,3)),Y+PlyBaseM(FNX,4)    
NEXT

Wait Key
End

+ Code Snippet

Data 9,0,0,0
Data 0,-5,-8,3       `Arrow Point Left
Data 0,-5, 8,3       `Arrow Point Right
Data -12,3,12,3      `Base Top Line
Data -12,12,13,12    `Base Bottom Line
Data -12,3,-12,12    `Base Left Side
Data -3,3,-3,12      `Arrow Left Side
Data 3,3,3,12        `Arrow Right Side
Data 12,3,12,12      `Base Right Side

Data 6,0,0,0
Data 0,-5,-8,3       `Arrow Point Left
Data -12,3,-12,12    `Base Left Side
Data -3,3,-3,12      `Arrow Left Side
Data -12,3,0,3       `Base Top Line
Data -12,12,0,12     `Base Bottom Line 

` Loading PlyBase Arrays

Dim PlyBase(9,4)
Dim PlyBaseM(6,4)

For Row= 1 to 9
    For Column= 1 to 4
    Read PlyBase(Row,Column)
    NEXT
NEXT

For Row= 1 to 6
    For Column= 1 to 4
    Read PlyBaseM(Row,Column)
    NEXT
NEXT

` Set Foreground and Background Color
FC = RGB (0,255,0)
BC = RGB (255,0,0)
INK FC,BC

` Base Line Drawn
X=100 : Y=200
Line X,Y-5, X-8,Y+3 `Arrow Point Left
Line X,Y-5, X+8,Y+3 `Arrow Point Right
Line X-12,Y+3, X+12,Y+3 `Base Top Line
Line X-12,Y+12, X+13,Y+12 `Base Bottom Line
Line X-12,Y+3, X-12,Y+12 `Base Left Side
Line X-3,Y+3, X-3,Y+12 `Arrow Left Side
Line X+3,Y+3, X+3,Y+12 `Arrow Right Side
Line X+12,Y+3, X+12,Y+12 `Base Right Side

` Base Dim Drawn
X=150 : Y=200 ` Location of Base Dim Draw 

For FNX = 2 to PlyBase(1,1)
    Line X+PlyBase(FNX,1),Y+PlyBase(FNX,2),X+PlyBase(FNX,3),Y+PlyBase(FNX,4)
NEXT

` Base Dim Drawn Mirrored
X=200 : Y=200 ` Location of Mirriored Base Dim Draw
 
For FNX = 2 to PlyBaseM(1,1)
    Line X+(PlyBaseM(FNX,1)),Y+(PlyBaseM(FNX,2)),X+(PlyBaseM(FNX,3)),Y+(PlyBaseM(FNX,4))
    Line X+ABS(PlyBaseM(FNX,1)),Y+PlyBaseM(FNX,2),X+ABS(PlyBaseM(FNX,3)),Y+PlyBaseM(FNX,4)    
NEXT

Wait Key
End

Most everything in this game is symetrical(sp?). The most efficent way I can think of drawing the assets is the 3rd example.

If there is and easier way to draw them I'd would appreciate your ideas.

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 16th Aug 2013 08:13

Link

Yea, the Snippet worked.

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 16th Aug 2013 08:21

Link

Yep, Wicked X. That was just about what I was tring for.

The first line of Data is to tell me how many lines of draw data is in the array. Is there a command to check how many rows of are in a array?

I could eliminate a row of data if there is.

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 16th Aug 2013 08:48

Link

Okay, This is how I can count the rows a array. (Knowing the there are 4 columns.

+ Code Snippet

A=ARRAY COUNT(PlyBase(0))
B=ARRAY COUNT(PlyBaseM(0))

Print A
Print B

Print ((A-4)/5)
Print ((B-4)/5)

Anything simplier?

Back to top

Profile PM

TheComet

18

Years of Service

User Offline

Joined: 18th Oct 2007

Location: I`m under ur bridge eating ur goatz.

Posted: 16th Aug 2013 10:27

Link

Quote: "Okay so the code snippet I did didn't work right. How do I create a code snippet?"

[[b]code lang=dbp][/b]paste your code here[[b]/code][/b]

Back to top

Profile PM Email Website

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 16th Aug 2013 11:44

Link

Anruth

Try this:

+ Code Snippet

dim plybase(5,3) ` this array has 5+1 (=6) rows and 3+1 (=4) columns, making a total of 24 entries

` note that array count returns the index of the final value, i.e. 1 less than the actual number of entries

A=ARRAY COUNT(PlyBase(0))

Print A

Print "number of rows = ",((A+1)/4)

wait key

Don't forget that array indexing starts from 0 for each dimension of the array. The Help file entry for array count is unnecessarily opaque in my opinion.

Glad you got the code snippets working (TheComet's suggestion is a nice refinement

).

Powered by Free Banners

Back to top

Profile PM Email

WickedX

17

Years of Service

User Offline

Joined: 8th Feb 2009

Location: A Mile High

Posted: 16th Aug 2013 20:22

Link

Quote: "If there is and easier way to draw them I'd would appreciate your ideas."

There is little reason to resort to using DBPro’s 2-D graphics functions. It would be much better and faster to load an image and paste it.

+ Code Snippet

load image "base.bmp", 1, 1

X=100: Y=200
paste image 1, X-image width(1)/2, Y-image height(1)/2+4

X=150: Y=200
paste image 1, X-image width(1)/2, Y-image height(1)/2+4

X=200: Y=200
paste image 1, X-image width(1)/2, Y-image height(1)/2+4

wait key

Back to top

Profile PM Email

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 17th Aug 2013 07:32

Link

For the Space Invaders type/clone game I want to create, I like the look and feel of the draw commands.

I'm going to break it down into tutorials/lessons for some kids I'm teaching to program. So I want to draw the graphics at first instead of teaching them other software programs needed to make sprites ect. That will come later.

I want them to have a strong handle on DBP/Programming before splintering them off into graphics. They need to walk before they run.

Thats what is so great about DBP, It's easy to learn and free or low cost solution for kids. Not to mention the ability to build .exe files. (Singing to the Choir)

Plus I need the practice.

Back to top

Profile PM

Anruth

15

Years of Service

User Offline

Joined: 20th Dec 2010

Location:

Posted: 17th Aug 2013 07:34

Link

Thanks Green,

Your solution is cleaner then mine. I'll be using it.

Back to top

Profile PM

Green Gandalf

VIP Member

21

Years of Service

User Offline

Joined: 3rd Jan 2005

Playing: Malevolence:Sword of Ahkranox, Skyrim, Civ6.

Posted: 17th Aug 2013 12:50

Link

You're welcome.

Powered by Free Banners

Back to top

Profile PM Email

Libervurto

20

Years of Service

User Offline

Joined: 30th Jun 2006

Location: On Toast

Posted: 17th Aug 2013 21:53

Link

I went through your code and edited it a bit:

+ Code Snippet

rem defender gun vector data
maxrow = 4
data 0,-5,-8,3       `arrow point left
data -12,3,-12,12    `base left side
data -3,3,-3,12      `arrow left side
data -12,3,0,3       `base top line
data -12,12,0,12     `base bottom line 

rem read defender gun vector data into array
dim defender(3,maxrow)
for row = 0 to maxrow
    for column = 0 to 3
        read defender(column,row)
    next column
next row

rem set position for defender gun to be drawn
x=200 : y=200

rem draw the defender gun
ink rgb(0,255,0), rgb(255,0,0)
for v = 0 to maxrow
    line x+defender(v,0),y+defender(v,1),x+defender(v,2),y+defender(v,3)
    rem draw mirror image
    line x+abs(defender(v,0)),y+defender(v,1),x+abs(defender(v,2)),y+defender(v,3)    
next v

wait key
end

A few pointers:
You had columns and rows the wrong way around.
You did not make use of array field 0.
I don't like this plybase array (which I renamed "defender") at all. It gives no indication of what type of data it holds, in what order, or in what format.

Here's an idea of a format that would be more intuitive:

+ Code Snippet

rem defender gun vector data
maxVector = 4
data 0,-5,-8,3       `arrow point left
data -12,3,-12,12    `base left side
data -3,3,-3,12      `arrow left side
data -12,3,0,3       `base top line
data -12,12,0,12     `base bottom line 

type vectordata
     x0 as integer
     y0 as integer
     x1 as integer
     y1 as integer
endtype
dim vector(4) as vectordata

rem read defender gun vector data into array
for v = 0 to maxVector
    read vector(v).x0
    read vector(v).y0
    read vector(v).x1
    read vector(v).y1
next v

rem set position for defender gun to be drawn
x=200 : y=200

rem draw the defender gun
ink rgb(0,255,0), rgb(255,0,0)
for v = 0 to maxVector
    line x+vector(v).x0, y+vector(v).y0, x+vector(v).x1, y+vector(v).y1
    rem draw mirror image
    line x+abs(vector(v).x0), y+vector(v).y0, x+abs(vector(v).x1), y+vector(v).y1
next v

wait key
end

The gluteus-maximus mammary-gland formally known as OBese87.

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / 2 dimensional array code problem