QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on May 17, 2020, 07:43:32 pm

Title: 3D Land Grid
Post by: SierraKen on May 17, 2020, 07:43:32 pm

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.  

Title: Re: 3D Land Grid
Post by: Ashish on May 18, 2020, 02:58:15 am

Nice! It really creates 3D Illusion

Title: Re: 3D Land Grid
Post by: SierraKen on May 18, 2020, 12:47:46 pm

Thanks Ashish. :)

Title: Re: 3D Land Grid
Post by: SierraKen on May 18, 2020, 03:36:46 pm

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.  

Title: Re: 3D Land Grid
Post by: SierraKen on May 19, 2020, 04:04:15 pm

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.  

Title: Re: 3D Land Grid
Post by: OldMoses on May 19, 2020, 06:10:26 pm

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.  

Title: Re: 3D Land Grid
Post by: SierraKen on May 19, 2020, 06:45:28 pm

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. :)

Title: Re: 3D Land Grid
Post by: OldMoses on May 19, 2020, 07:40:44 pm

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

Title: Re: 3D Land Grid
Post by: SierraKen on May 19, 2020, 09:00:49 pm

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.

Title: Re: 3D Land Grid
Post by: _vince on May 19, 2020, 11:51:36 pm

Quote from: OldMoses on May 19, 2020, 07:40:44 pm

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.  

Title: Re: 3D Land Grid
Post by: OldMoses on May 20, 2020, 12:03:18 am

That's incredible, Vince.

Title: Re: 3D Land Grid
Post by: Ashish on May 20, 2020, 12:14:11 am

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

Title: Re: 3D Land Grid
Post by: Dav on May 20, 2020, 12:57:54 pm

These are great! 

- Dav

Title: Re: 3D Land Grid
Post by: SierraKen on May 21, 2020, 12:31:07 am

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.  

Title: Re: 3D Land Grid
Post by: DANILIN on May 21, 2020, 08:20:27 am

use pseudo 3d relief qb64 my milli program:

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

 

Title: Re: 3D Land Grid
Post by: SierraKen on May 21, 2020, 06:13:10 pm

I now have a Sun and Compass for when you fly. The Sun is in the West and moves when you turn. I also moved the air speed and altitude numbers to the bottom as well as the compass reading.
I'm having lots of fun with this. :D

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 21, 2020.
3. 'V. 0.5 - Added Sun and Compass.
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6. xs = 10
7. GOSUB grid:
8. c = 0
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 = 0: b = 1: d = 0
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.     END IF
32.     IF d = 4 AND speed > 0 THEN
33.         v = v + 1
34.         vv = vv + 2
35.         tilt = tilt + 2
36.     END IF
37.     IF d = 3 AND speed <= 0 THEN
38.         v = v - 1
39.         vv = vv - 2
40.         tilt = tilt - 2
41.         speed = speed + 4
42.     END IF
43.     IF d = 4 AND speed <= 0 THEN
44.         v = v + 1
45.         vv = vv + 2
46.         tilt = tilt + 2
47.         speed = speed + 4
48.     END IF
49.     IF d = 5 THEN speed = speed + 4: b = 0
50.     IF d = 6 THEN speed = speed + 4: b = 0
51.  
52.     IF tilt > 200 THEN tilt = 200
53.     IF tilt < -200 THEN tilt = -200
54.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
55.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
56.     IF e > 100 THEN e = 100
57.     IF e < 0 THEN e = 0
58.     elevation = e - 100
59.     elevation = -elevation
60.     elevation = elevation * 100
61.     GOSUB grid:
62.     IF speed2 < 0 THEN speed2 = 0
63.     IF speed2 > 2000 THEN speed2 = 2000
64.     delay = 2 / speed2
65.     IF delay < .002 THEN delay = .002
66.     IF delay > .02 THEN delay = .02
67.     _DELAY delay
68.  
69. LOOP
70.  
71. grid:
72. CLS
73. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
74. PAINT (400, 2), _RGB32(0, 0, 150)
75. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
76. PAINT (400, 599), _RGB32(0, 155, 0)
77.  
78. 'Calculate Compass
79. tilt2 = tilt
80. IF tilt2 < 0 THEN tilt2 = -tilt2
81.  
82. IF tilt < 0 THEN c = c - tilt2 / 314
83. IF tilt > 0 THEN c = c + tilt2 / 314
84. IF c > 359 THEN c = 0
85. IF c < 0 THEN c = 359
86. cc = INT(c)
87. LOCATE 35, 1: PRINT "Compass:"; cc
88.  
89. 'Sun
90. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
91. tilt3 = tilt / 50
92. IF cc = 315 THEN sunx = 800
93. IF cc = 225 THEN sunx = 0
94. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
95. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
96. oldtilt3 = tilt3
97. FOR sz = .25 TO 10 STEP .25
98.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
99. NEXT sz
100. nosun:
101.  
102.  
103. 'Left vertical lines.
104. FOR x = 395 - e TO -300 STEP -xs - xx - e
105.     xx = xx + 5
106.     IF v > 7 + e THEN v = -7
107.     IF v < -7 THEN v = 7 + e
108.     IF vv > 300 THEN vv = 300
109.     IF vv < -300 THEN vv = -300
110.     FOR findy = 0 TO 600
111.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
112.     NEXT findy
113.     nex:
114.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
115.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
116.     skip:
117. NEXT x
118.  
119. 'Right vertical lines.
120. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
121.     xx2 = xx2 + 5
122.     IF v > 7 + e THEN v = -7
123.     IF v < -7 THEN v = 7 + e
124.     IF vv > 300 THEN vv = 300
125.     IF vv < -300 THEN vv = -300
126.     FOR findy = 0 TO 600
127.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
128.     NEXT findy
129.     nex2:
130.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
131.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
132.     skip2:
133. NEXT x
134.  
135. 'Horizontal lines.
136. FOR hy = 0 TO 600 STEP xs + xx3 + e
137.     xx3 = xx3 + 5
138.     IF speed > 7 + e THEN speed = -7
139.     IF speed < -7 THEN speed = 7 + e
140.     FOR findx = 0 TO 800
141.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
142.             xx4 = findx
143.         END IF
144.     NEXT findx
145.     FOR findx2 = 0 TO 800
146.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
147.             xx5 = findx2
148.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
149.             GOTO nex3:
150.         END IF
151.     NEXT findx2
152.     nex3:
153. NEXT hy
154. LOCATE 33, 1: PRINT "Altitude:"; elevation
155. LOCATE 34, 1: PRINT "Airspeed:"; speed2
156.  
157. _DISPLAY
158. xx = 0: xx2 = 0: xx3 = 0
159.  
160. RETURN
161.  

Title: Re: 3D Land Grid
Post by: OldMoses on May 22, 2020, 09:27:58 am

Cool, I use something similar in my spacecraft vectoring ap. When one is zoomed in on a local planetary system, the display shows a yellow ball icon on a "protractor ring" to orient that user as to the relative bearing to the primary star.

Title: Re: 3D Land Grid
Post by: SierraKen on May 22, 2020, 11:31:27 am

That's neat OldMoses. :) Yeah I had to make a whole new system for the compass and Sun. 

Title: Re: 3D Land Grid
Post by: SierraKen on May 22, 2020, 03:11:48 pm

I made a better 3D perspective as you fly higher and fixed the grid to keep going as you turn. I also reduced the air speed to a 500 limit to make the grid look better.

Code: QB64: [Select]

1. 'Flying - By SierraKen
2. 'Made on May 21, 2020.
3. 'V. 0.5 - Added Sun and Compass.
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6. xs = 10
7. GOSUB grid:
8. c = 0
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 = 0: b = 1: d = 0
21.     END IF
22.     IF a$ = CHR$(0) + CHR$(77) THEN d = 3: speed2 = speed2 + .2 'Right
23.     IF a$ = CHR$(0) + CHR$(75) THEN d = 4: speed2 = speed2 + .2 'Left
24.     IF a$ = CHR$(27) THEN END
25.     IF d = 1 THEN speed = speed + 2: b = 0
26.     IF d = 3 AND speed > 0 THEN
27.         v = v - 1
28.         vv = vv - 2
29.         tilt = tilt - 2
30.     END IF
31.     IF d = 4 AND speed > 0 THEN
32.         v = v + 1
33.         vv = vv + 2
34.         tilt = tilt + 2
35.     END IF
36.     IF d = 3 AND speed <= 0 THEN
37.         v = v - 1
38.         vv = vv - 2
39.         tilt = tilt - 2
40.         speed = speed + 4
41.     END IF
42.     IF d = 4 AND speed <= 0 THEN
43.         v = v + 1
44.         vv = vv + 2
45.         tilt = tilt + 2
46.         speed = speed + 4
47.     END IF
48.     IF d = 5 OR speed2 > 0 THEN speed = speed + 1: b = 0
49.     IF d = 6 OR speed2 > 0 THEN speed = speed + 1: b = 0
50.  
51.     IF tilt > 200 THEN tilt = 200
52.     IF tilt < -200 THEN tilt = -200
53.     IF (d = 3 OR d = 4 OR d = 5 OR d = 6) AND b = 0 THEN speed = speed + 1
54.     IF (d = 3 OR d = 4) AND b = 1 THEN speed = speed - 1
55.     IF e > 100 THEN e = 100
56.     IF e < 0 THEN e = 0
57.     elevation = e - 100
58.     elevation = -elevation
59.     elevation = elevation * 100
60.     GOSUB grid:
61.     IF speed2 < 0 THEN speed2 = 0
62.     IF speed2 > 500 THEN speed2 = 500
63.     delay = 2 / speed2
64.     IF delay < .002 THEN delay = .002
65.     IF delay > .02 THEN delay = .02
66.     _DELAY delay
67.  
68. LOOP
69.  
70. grid:
71. CLS
72. LINE (0, 299 - e - tilt)-(800, 299 - e + tilt), _RGB32(0, 0, 150)
73. PAINT (400, 2), _RGB32(0, 0, 150)
74. LINE (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)
75. PAINT (400, 599), _RGB32(0, 155, 0)
76.  
77. 'Calculate Compass
78. tilt2 = tilt
79. IF tilt2 < 0 THEN tilt2 = -tilt2
80.  
81. IF tilt < 0 THEN c = c - tilt2 / 314
82. IF tilt > 0 THEN c = c + tilt2 / 314
83. IF c > 359 THEN c = 0
84. IF c < 0 THEN c = 359
85. cc = INT(c)
86. LOCATE 35, 1: PRINT "Compass:"; cc
87.  
88. 'Sun
89. IF cc < 225 OR cc > 315 THEN til = 0: GOTO nosun:
90. tilt3 = tilt / 50
91. IF cc = 315 THEN sunx = 800
92. IF cc = 225 THEN sunx = 0
93. IF cc < 315 AND tilt < 0 AND tilt3 = oldtilt3 THEN sunx = sunx - 10: til = til - tilt3
94. IF cc > 225 AND tilt > 0 AND tilt3 = oldtilt3 THEN sunx = sunx + 10: til = til + tilt3
95. oldtilt3 = tilt3
96. FOR sz = .25 TO 10 STEP .25
97.     CIRCLE (sunx, til), sz, _RGB32(255, 255, 127)
98. NEXT sz
99. nosun:
100.  
101.  
102. 'Left vertical lines.
103. FOR x = 395 - e TO -300 STEP -xs - xx - e
104.     xx = xx + 55
105.     IF v > 7 + e THEN v = -7
106.     IF v < -7 THEN v = 7 + e
107.     IF vv > 300 THEN vv = 300
108.     IF vv < -300 THEN vv = -300
109.     FOR findy = 0 TO 600
110.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy = findy: GOTO nex:
111.     NEXT findy
112.     nex:
113.     IF POINT(x - xx + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy) = _RGB32(0, 0, 150) THEN GOTO skip:
114.     LINE (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)
115.     skip:
116. NEXT x
117.  
118. 'Right vertical lines.
119. FOR x = 405 + e TO 1100 STEP xs + xx2 + e
120.     xx2 = xx2 + 55
121.     IF v > 7 + e THEN v = -7
122.     IF v < -7 THEN v = 7 + e
123.     IF vv > 300 THEN vv = 300
124.     IF vv < -300 THEN vv = -300
125.     FOR findy = 0 TO 600
126.         IF POINT(x + v - vv, findy) = _RGB32(0, 155, 0) THEN yy2 = findy: GOTO nex2:
127.     NEXT findy
128.     nex2:
129.     IF POINT(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) OR POINT(x + v - vv, yy2) = _RGB32(0, 0, 150) THEN GOTO skip2:
130.     LINE (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)
131.     skip2:
132. NEXT x
133.  
134. 'Horizontal lines.
135. FOR hy = 0 TO 600 STEP xs + xx3 + e
136.     xx3 = xx3 + 5
137.     IF speed > 7 + e THEN speed = -7
138.     IF speed < -7 THEN speed = 7 + e
139.     FOR findx = 0 TO 800
140.         IF POINT(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
141.             xx4 = findx
142.         END IF
143.     NEXT findx
144.     FOR findx2 = 0 TO 800
145.         IF POINT(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) THEN
146.             xx5 = findx2
147.             LINE (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)
148.             GOTO nex3:
149.         END IF
150.     NEXT findx2
151.     nex3:
152. NEXT hy
153. LOCATE 33, 1: PRINT "Altitude:"; elevation
154. LOCATE 34, 1: PRINT "Airspeed:"; INT(speed2)
155.  
156. _DISPLAY
157. xx = 0: xx2 = 0: xx3 = 0
158.  
159. RETURN
160.  

Text Only | Text with Attachments