3D Land Grid

[SierraKen]

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.  

[OldMoses]

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.

[SierraKen]

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

[SierraKen]

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.