3D Land Grid

[SierraKen]

Finally, I've made a 3D land grid that lets you move forward, back, and side to side, that WORKS! LOL I been wanting to make this since the 90's or possibly the 80's but could never figure it out. LOL
I've been close sooo many times lol. 
I know it doesn't have turning or jumping (or flying), but I'm not at that level of math. So feel free to do what you wish with it. Use the arrow keys to move forward, back, left side, right side. And press the space bar to stop. I might make this into a game in the future.

Code: QB64: [Select]

1. 'This is SierraKen's first 3D Land Grid Example.
2. 'Use the arrow keys to move and press space bar to stop.
3. 'Made on May 17, 2020.
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6. xs = 10
7. GOSUB grid:
8.  
9. DO
10.  
11.     _LIMIT 100
12.     a$ = INKEY$
13.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
14.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
15.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3
16.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4
17.     IF a$ = " " THEN d = 0
18.     if a$ = CHR$(27) THEN END
19.     IF d = 1 THEN speed = speed + 1
20.     IF d = 2 THEN speed = speed - 1
21.     IF d = 3 THEN v = v - 1
22.     IF d = 4 THEN v = v + 1
23.     GOSUB grid:
24.  
25. LOOP
26.  
27. grid:
28. CLS
29. 'Left vertical lines.
30. FOR x = 395 TO 0 STEP -xs - xx
31.     xx = xx + 5
32.     IF v > 7 THEN v = -7
33.     IF v < -7 THEN v = 7
34.     LINE (x + v, 300)-(x - xx + v, 600), _RGB32(255, 255, 255)
35. NEXT x
36.  
37. 'Right vertical lines.
38. FOR x = 405 TO 800 STEP xs + xx2
39.     xx2 = xx2 + 5
40.     IF v > 7 THEN v = -7
41.     IF v < -7 THEN v = 7
42.     LINE (x + v, 300)-(x + xx2 + v, 600), _RGB32(255, 255, 255)
43. NEXT x
44.  
45. 'Horizontal lines.
46. LINE (0, 300)-(800, 300), _RGB32(255, 255, 255)
47. FOR hy = 305 TO 600 STEP xs + xx3
48.     xx3 = xx3 + 5
49.     IF speed > 7 THEN speed = -7
50.     IF speed < -7 THEN speed = 7
51.     LINE (0, hy + xx3 + speed)-(800, hy + xx3 + speed), _RGB32(255, 255, 255)
52. NEXT hy
53. _DISPLAY
54. xx = 0: xx2 = 0: xx3 = 0
55.  
56. RETURN
57.  

[Ashish]

Nice! It really creates 3D Illusion

[SierraKen]

Thanks Ashish. :)

[SierraKen]

Today I added the ability to turn. It doesn't tilt like a plane, but it turns to around a 45 degree turn on the grid. I also added some color to make it look better. I also added an updated picture to this post.

Code: QB64: [Select]

1. 'This is SierraKen's first 3D Land Grid Example.
2. 'Use the arrow keys to move and turn and press space bar to stop.
3. 'Made on May 18, 2020.
4. 'V. 0.2
5.  
6. SCREEN _NEWIMAGE(800, 600, 32)
7. xs = 10
8. GOSUB grid:
9.  
10. DO
11.  
12.     _LIMIT 100
13.     a$ = INKEY$
14.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
15.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
16.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3
17.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4
18.     IF a$ = " " THEN d = 0
19.     IF a$ = CHR$(27) THEN END
20.     IF d = 1 THEN speed = speed + 1
21.     IF d = 2 THEN speed = speed - 1
22.     IF d = 3 AND speed > 0 THEN
23.         v = v - 1
24.         vv = vv - 2
25.         speed = speed + 2
26.     END IF
27.     IF d = 4 AND speed > 0 THEN
28.         v = v + 1
29.         vv = vv + 2
30.         speed = speed + 2
31.     END IF
32.     IF d = 3 AND speed <= 0 THEN
33.         v = v - 1
34.         vv = vv - 2
35.         speed = speed - 2
36.     END IF
37.     IF d = 4 AND speed <= 0 THEN
38.         v = v + 1
39.         vv = vv + 2
40.         speed = speed - 2
41.     END IF
42.     GOSUB grid:
43. LOOP
44.  
45. grid:
46. CLS
47. PAINT (2, 2), _RGB32(0, 0, 150)
48. LINE (0, 300)-(800, 600), _RGB32(0, 155, 0), BF
49. 'Left vertical lines.
50. FOR x = 395 TO -300 STEP -xs - xx
51.     xx = xx + 5
52.     IF v > 7 THEN v = -7
53.     IF v < -7 THEN v = 7
54.     IF vv > 300 THEN vv = 300
55.     IF vv < -300 THEN vv = -300
56.     LINE (x + v - vv, 300)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
57. NEXT x
58.  
59. 'Right vertical lines.
60. FOR x = 405 TO 1100 STEP xs + xx2
61.     xx2 = xx2 + 5
62.     IF v > 7 THEN v = -7
63.     IF v < -7 THEN v = 7
64.     IF vv > 300 THEN vv = 300
65.     IF vv < -300 THEN vv = -300
66.     LINE (x + v - vv, 300)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
67. NEXT x
68.  
69. 'Horizontal lines.
70. LINE (0, 300)-(800, 300), _RGB32(127, 172, 255)
71. FOR hy = 305 TO 600 STEP xs + xx3
72.     xx3 = xx3 + 5
73.     IF speed > 7 THEN speed = -7
74.     IF speed < -7 THEN speed = 7
75.     LINE (0, hy + xx3 + speed)-(800, hy + xx3 + speed), _RGB32(255, 255, 255)
76. NEXT hy
77.  
78. _DISPLAY
79. xx = 0: xx2 = 0: xx3 = 0
80.  
81. RETURN
82.  
83.  

[SierraKen]

I just added curved turns, both forward and backward. That way you don't stop on a dime every time you turn. :)

Here is the update:

Code: QB64: [Select]

1. 'This is SierraKen's first 3D Land Grid Example.
2. 'Use the arrow keys to move and turn and press space bar to stop.
3. 'Made on May 19, 2020.
4. 'V. 0.3 - Added curved turns both forward and backward.
5.  
6. SCREEN _NEWIMAGE(800, 600, 32)
7. xs = 10
8. GOSUB grid:
9.  
10. DO
11.  
12.     _LIMIT 100
13.     a$ = INKEY$
14.     IF a$ = CHR$(0) + CHR$(72) THEN d = 1
15.     IF a$ = CHR$(0) + CHR$(80) THEN d = 2
16.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3
17.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4
18.     IF a$ = " " THEN d = 0
19.     IF a$ = CHR$(27) THEN END
20.     IF d = 1 THEN speed = speed + 1: b = 0
21.     IF d = 2 THEN speed = speed - 1: b = 1
22.     IF d = 3 AND speed > 0 THEN
23.         v = v - 1
24.         vv = vv - 2
25.     END IF
26.     IF d = 4 AND speed > 0 THEN
27.         v = v + 1
28.         vv = vv + 2
29.     END IF
30.     IF d = 3 AND speed <= 0 THEN
31.         v = v - 1
32.         vv = vv - 2
33.     END IF
34.     IF d = 4 AND speed <= 0 THEN
35.         v = v + 1
36.         vv = vv + 2
37.     END IF
38.     IF (d = 3 OR d = 4) AND b = 0 THEN speed = speed + 1
39.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
40.     GOSUB grid:
41. LOOP
42.  
43. grid:
44. CLS
45. PAINT (2, 2), _RGB32(0, 0, 150)
46. LINE (0, 300)-(800, 600), _RGB32(0, 155, 0), BF
47. 'Left vertical lines.
48. FOR x = 395 TO -300 STEP -xs - xx
49.     xx = xx + 5
50.     IF v > 7 THEN v = -7
51.     IF v < -7 THEN v = 7
52.     IF vv > 300 THEN vv = 300
53.     IF vv < -300 THEN vv = -300
54.     LINE (x + v - vv, 300)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
55. NEXT x
56.  
57. 'Right vertical lines.
58. FOR x = 405 TO 1100 STEP xs + xx2
59.     xx2 = xx2 + 5
60.     IF v > 7 THEN v = -7
61.     IF v < -7 THEN v = 7
62.     IF vv > 300 THEN vv = 300
63.     IF vv < -300 THEN vv = -300
64.     LINE (x + v - vv, 300)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
65. NEXT x
66.  
67. 'Horizontal lines.
68. LINE (0, 300)-(800, 300), _RGB32(127, 172, 255)
69. FOR hy = 305 TO 600 STEP xs + xx3
70.     xx3 = xx3 + 5
71.     IF speed > 7 THEN speed = -7
72.     IF speed < -7 THEN speed = 7
73.     LINE (0, hy + xx3 + speed)-(800, hy + xx3 + speed), _RGB32(255, 255, 255)
74. NEXT hy
75.  
76. _DISPLAY
77. xx = 0: xx2 = 0: xx3 = 0
78.  
79. RETURN
80.  
81.  

[OldMoses]

That's a nice grid effect that inspired me to tackle a grid I've always wanted to do, hex grid. Mine doesn't move, ...yet ....I'm thinkin' about it. ;)

Code: QB64: [Select]

1. 'Hex grid
2. SCREEN _NEWIMAGE(480, 640, 32)
3. s = 35
4. sb = s / 2
5. ho = s + (s * COS(_D2R(60)))
6. vo = 2 * (s * SIN(_D2R(60)))
7. FOR x = 0 TO 9
8.     FOR y = 0 TO 11
9.         IF x MOD 2 = 0 THEN b = vo / 2 ELSE b = 0
10.         LINE (x * ho - sb, y * vo + b)-(x * ho + s - sb, y * vo + b)
11.         LINE (x * ho + s - sb, y * vo + b)-(x * ho + s + ho - s - sb, y * vo + b - (vo / 2))
12.         LINE (x * ho + s - sb, y * vo + b)-(x * ho + s + ho - s - sb, y * vo + b + (vo / 2))
13.     NEXT y
14. NEXT x
15.  

[SierraKen]

Thanks OldMoses! Wow yours is pretty cool! Hexagonal Grid is what a lot of games used to use or just a way to print out maps for games.
I'm not sure where I am going with mine, I don't have a plan yet. I might make a giant map using a data file or DATA lines using something with coordinates and plotting in shapes and maybe some simple designs. Not sure if am able to do it but I might look into it soon. If I can't do that, I can always make no map and just use random shapes that appear. So we'll see. :)

[OldMoses]

Hmmm... it turned out not too difficult to get it moving after all. If I could run a two dimensional array along with it, it might make a half assed game. Maybe some dude running along dodging boulders or something...

Code: QB64: [Select]

1. 'Moving hex grid
2. SCREEN _NEWIMAGE(480, 640, 32)
3. s = 35
4. sb = s / 2
5. ho = s + (s * COS(_D2R(60)))
6. vo = 2 * (s * SIN(_D2R(60)))
7. DO
8.     CLS
9.     k = k + 1
10.     IF k MOD vo = 0 THEN k = 0
11.     FOR x = 0 TO 9
12.         FOR y = -1 TO 11
13.             IF x MOD 2 = 0 THEN b = vo / 2 ELSE b = 0
14.             LINE (x * ho - sb, y * vo + b + k)-(x * ho + s - sb, y * vo + b + k)
15.             LINE (x * ho + s - sb, y * vo + b + k)-(x * ho + s + ho - s - sb, y * vo + b - (vo / 2) + k)
16.             LINE (x * ho + s - sb, y * vo + b + k)-(x * ho + s + ho - s - sb, y * vo + b + (vo / 2) + k)
17.         NEXT y
18.     NEXT x
19.     _LIMIT 100
20.     _DISPLAY
21. LOOP UNTIL _KEYDOWN(27)
22. SYSTEM

[SierraKen]

That came out great! Your overhead view would be pretty fun. Just add a character in the center. :)
With my 3D perspective I have to make every object start out small and get larger as they approach. It shouldn't be too hard from what I have now. Of course my grid that I have now is only for looks, it won't have anything to do with coordinates, etc.

[_vince]

Hmmm... it turned out not too difficult to get it moving after all. If I could run a two dimensional array along with it, it might make a half assed game. Maybe some dude running along dodging boulders or something...

I've converted your program into a 3D projection, hope you like it ;-)

Code: QB64: [Select]

1. 'Moving hex grid
2. SCREEN _NEWIMAGE(480, 480, 32)
3. s = 35
4. sb = s / 2
5. ho = s + (s * COS(_D2R(60)))
6. vo = 2 * (s * SIN(_D2R(60)))
7.  
8. ymax = 20
9. DO
10.     CLS
11.     k = k - 1
12.     IF k MOD vo = 0 THEN k = 0
13.     FOR x = -10 TO 10
14.         FOR y = 0 TO ymax
15.             IF x MOD 2 = 0 THEN b = vo / 2 ELSE b = 0
16.             x11 = x * ho - sb
17.             y11 = y * vo + b + k
18.             x12 = x * ho + s - sb
19.             y12 = y * vo + b + k
20.             p1 = 240 + x11 * 700 / (y11 + 250)
21.             q1 = 200 * 700 / (y11 + 250)
22.             p2 = 240 + x12 * 700 / (y12 + 250)
23.             q2 = 200 * 700 / (y12 + 250)
24.             'LINE (x11, y11)-(x12, y12)
25.             LINE (p1, q1)-(p2, q2)
26.  
27.             x21 = x * ho + s - sb
28.             y21 = y * vo + b + k
29.             x22 = x * ho + s + ho - s - sb
30.             y22 = y * vo + b - (vo / 2) + k
31.             p1 = 240 + x21 * 700 / (y21 + 250)
32.             q1 = 200 * 700 / (y21 + 250)
33.             p2 = 240 + x22 * 700 / (y22 + 250)
34.             q2 = 200 * 700 / (y22 + 250)
35.             'LINE (x21, y21)-(x22, y22)
36.             LINE (p1, q1)-(p2, q2)
37.  
38.             x31 = x * ho + s - sb
39.             y31 = y * vo + b + k
40.             x32 = x * ho + s + ho - s - sb
41.             y32 = y * vo + b + (vo / 2) + k
42.             p1 = 240 + x31 * 700 / (y31 + 250)
43.             q1 = 200 * 700 / (y31 + 250)
44.             p2 = 240 + x32 * 700 / (y32 + 250)
45.             q2 = 200 * 700 / (y32 + 250)
46.             'LINE (x31, y31)-(x32, y32)
47.             LINE (p1, q1)-(p2, q2)
48.         NEXT y
49.     NEXT x
50.  
51.     LINE (0, 0)-(480, 100), _RGB(0, 0, 0), BF
52.     LINE (0, 101)-(480, 101)
53.     _LIMIT 50
54.     _DISPLAY
55. LOOP UNTIL _KEYDOWN(27)
56. SYSTEM
57.  
58.  
59.  

[OldMoses]

That's incredible, Vince.

[Ashish]

@vince Amazing! Can you also fill the color in the hexagon tile?

[Dav]

These are great! 

- Dav

[SierraKen]

I just added flying! Whew, it's harder than I thought, spent all day and evening on it.
Use the + and - keys for the accelerator. Use the down arrow to go up and up arrow to go down (like a plane has). Use the right and left arrows to turn.
Please tell me what you think of it. Comments are often inspirational to keep me programming. :)

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 20, 2020.
3. 'V. 0.4 - Added Flying
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6. xs = 10
7. GOSUB grid:
8.  
9. e = 100
10. _TITLE "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."
11. DO
12.     _LIMIT 1000
13.     a$ = INKEY$
14.  
15.     IF a$ = CHR$(0) + CHR$(72) THEN d = 6: e = e + .5: b = 0 'Up arrow key flies down.
16.     IF a$ = CHR$(0) + CHR$(80) THEN d = 5: e = e - .5: b = 0 'Down arrow key flies up.
17.     IF a$ = "+" THEN d = 1: speed2 = speed2 + 10
18.     IF a$ = "-" THEN
19.         speed2 = speed2 - 10
20.         IF speed2 < 0 THEN speed = speed - 2: b = 1
21.     END IF
22.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3 'Right
23.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4 'Left
24.     IF a$ = " " THEN d = 0
25.     IF a$ = CHR$(27) THEN END
26.     IF d = 1 THEN speed = speed + 4: b = 0
27.     IF d = 3 AND speed > 0 THEN
28.         v = v - 1
29.         vv = vv - 2
30.         tilt = tilt - 2
31.         speed = speed + 4
32.     END IF
33.     IF d = 4 AND speed > 0 THEN
34.         v = v + 1
35.         vv = vv + 2
36.         tilt = tilt + 2
37.         speed = speed + 4
38.     END IF
39.     IF d = 3 AND speed <= 0 THEN
40.         v = v - 1
41.         vv = vv - 2
42.         tilt = tilt - 2
43.         speed = speed + 4
44.     END IF
45.     IF d = 4 AND speed <= 0 THEN
46.         v = v + 1
47.         vv = vv + 2
48.         tilt = tilt + 2
49.         speed = speed + 4
50.     END IF
51.     IF d = 5 THEN speed = speed + 4: b = 0
52.     IF d = 6 THEN speed = speed + 4: b = 0
53.  
54.     IF tilt > 200 THEN tilt = 200
55.     IF tilt < -200 THEN tilt = -200
56.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
57.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
58.     IF e > 100 THEN e = 100
59.     IF e < 0 THEN e = 0
60.     elevation = e - 100
61.     elevation = -elevation
62.     elevation = elevation * 100
63.     GOSUB grid:
64.     IF speed2 < 0 THEN speed2 = 0
65.     IF speed2 > 2000 THEN speed2 = 2000
66.     delay = 2 / speed2
67.     IF delay < .002 THEN delay = .002
68.     IF delay > .02 THEN delay = .02
69.     _DELAY delay
70.  
71. LOOP
72.  
73. grid:
74. CLS
75. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
76. PAINT (400, 2), _RGB32(0, 0, 150)
77. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
78. PAINT (400, 599), _RGB32(0, 155, 0)
79.  
80. LOCATE 1, 1: PRINT elevation
81. LOCATE 2, 1: PRINT speed2
82. 'Left vertical lines.
83. FOR x = 395 - e TO -300 STEP -xs - xx - e
84.     xx = xx + 5
85.     IF v > 7 + e THEN v = -7
86.     IF v < -7 THEN v = 7 + e
87.     IF vv > 300 THEN vv = 300
88.     IF vv < -300 THEN vv = -300
89.     FOR findy = 0 TO 600
90.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
91.     NEXT findy
92.     nex:
93.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
94.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
95.     skip:
96. NEXT x
97.  
98. 'Right vertical lines.
99. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
100.     xx2 = xx2 + 5
101.     IF v > 7 + e THEN v = -7
102.     IF v < -7 THEN v = 7 + e
103.     IF vv > 300 THEN vv = 300
104.     IF vv < -300 THEN vv = -300
105.     FOR findy = 0 TO 600
106.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
107.     NEXT findy
108.     nex2:
109.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
110.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
111.     skip2:
112. NEXT x
113.  
114. 'Horizontal lines.
115. FOR hy = 0 TO 600 STEP xs + xx3 + e
116.     xx3 = xx3 + 5
117.     IF speed > 7 + e THEN speed = -7
118.     IF speed < -7 THEN speed = 7 + e
119.     FOR findx = 0 TO 800
120.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
121.             xx4 = findx
122.         END IF
123.     NEXT findx
124.     FOR findx2 = 0 TO 800
125.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
126.             xx5 = findx2
127.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
128.             GOTO nex3:
129.         END IF
130.     NEXT findx2
131.     nex3:
132. NEXT hy
133. _DISPLAY
134. xx = 0: xx2 = 0: xx3 = 0
135. RETURN
136.  

[DANILIN]

use pseudo 3d relief qb64 my milli program:

https://www.qb64.org/forum/index.php?topic=702.msg103948#msg103948