radar in 3d space....

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|44\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> radar in 3d space....
Thu, 27 Mar 2008, 21:40
Orion Pax	Any ideas on a good way to do a radar with all 3 axis or the best idea you can come up with? I am thinking it wont be very good since we have a lot of Y movement here. I have tried a second cam on ortho view with a view port in the corner and facing down on my ship. But I am just not feeling it.
Fri, 28 Mar 2008, 03:24
Yo! Wazzup?	I'm pretty sure there's something for this in the BB.com Code Archives. -=-=- Hi everyone! I'm new to Blitz and only 10 years old so all things coding is gush to me
Fri, 28 Mar 2008, 03:50
Orion Pax	I've looked but its all for FPS games. Meaning ground. Something my game doesnt have. Thought maybe some one would have a different idea for this as it includes all 3 axis.
Fri, 28 Mar 2008, 04:46
Paul	Maybe, instead of having a circle you could have an alphablended green sphere?
Fri, 28 Mar 2008, 05:33
JL235	There must be some nice tutorials on how to make an Elite style radar. That always worked well.
Fri, 28 Mar 2008, 06:09
Jayenkai	Graphics 800,600,32,2 radar=CreateImage(800,600) SetBuffer ImageBuffer(radar) Color 0,0,180 Oval 200,200,400,200,0 Color 0,0,80 For n=0 To 9 Oval 400-(20n),300-(10n),40n,20n,0 Next Color 0,0,255 Line 400,200,400,400 Line 200,300,600,300 SetBuffer BackBuffer() Type ect ; as in obj.ect Field x# Field y# Field z# End Type SeedRnd MilliSecs() For n=1 To 10 obj.ect=New ect obj\x=Rand(-200,200) obj\y=Rand(-200,200) obj\z=Rand(-100,100) Next plrz=0:plry=0:plrx=0 ; just to keep things simple! plrang=0 Repeat Cls DrawImage radar,0,0 If KeyDown(203) Then plrang=plrang-2 If KeyDown(205) Then plrang=plrang+2 For obj.ect=Each ect ;find position in relation to us ; Since this is only a quicky example, we won't piss about rotating on the Z axis.. difz#=plrz-obj\z ; But we will play with the standard rotation.. dist#=Sqr(((plrx-obj\x)(plrx-obj\x)) + ((plry-obj\y)(plry-obj\y))) difx#=Sin(ATan2(plrx-obj\x,obj\y-plry)+plrang)dist dify#=-Cos(ATan2(plrx-obj\x,obj\y-plry)+plrang)dist If Abs(dist)<200 And Abs(difz)<100 ; ensure it's in radar limits Color 0,0,180 Line difx+400,(dify/2)+300,difx+400,(dify/2)+300+(difz/5) Color 0,180,0 Rect difx+400-2,(dify/2)+300+(difz/5)-2,4,4,1 EndIf Next Flip Until KeyDown(1) --v You'd have to make it 99* more complex for proper 3D rotations and things, and probably scale it down so's it fits in your HUD.. And maybe draw an actual radar screen instead of using that in-blitz one.. Make it a bit fancier! Either way, if memory serves me correctly, that's pretty much how the Elite one worked.. -=-=- ''Load, Next List!''
Fri, 28 Mar 2008, 12:51
Forklift_Fred	That's how I remember it, as well as other similar games back in the Spectrum days! Vertical lines to represent hight. An easier alternative, though probably not so intuitive to use, is to have a colour scale for the y-axis, maybe as simply as 255,0,0 for the highest traceable distance through 128,0,128 at your level, to 0,0,255 for the lowest. Perhaps with an optional number readout Building on Jay's quickly... Graphics 800,600,32,2 radar=CreateImage(800,600) SetBuffer ImageBuffer(radar) Color 0,0,180 Oval 200,200,400,200,0 Color 0,0,80 For n=0 To 9 Oval 400-(20n),300-(10n),40n,20n,0 Next Color 0,0,255 Line 400,200,400,400 Line 200,300,600,300 SetBuffer BackBuffer() Type ect ; as in obj.ect Field x# Field y# Field z# End Type SeedRnd MilliSecs() For n=1 To 10 obj.ect=New ect obj\x=Rand(-200,200) obj\y=Rand(-200,200) obj\z=Rand(-200,200) Next plrz=0:plry=0:plrx=0 ; just to keep things simple! plrang=0 Repeat Cls DrawImage radar,0,0 If KeyDown(203) Then plrang=plrang-2 If KeyDown(205) Then plrang=plrang+2 For obj.ect=Each ect ;find position in relation to us ; Since this is only a quicky example, we won't piss about rotating on the Z axis.. difz#=plrz-obj\z ; But we will play with the standard rotation.. dist#=Sqr(((plrx-obj\x)(plrx-obj\x)) + ((plry-obj\y)(plry-obj\y))) difx#=Sin(ATan2(plrx-obj\x,obj\y-plry)+plrang)dist dify#=-Cos(ATan2(plrx-obj\x,obj\y-plry)+plrang)dist If Abs(dist)<200 And Abs(difz)<200 ; ensure it's in radar limits Color 0,0,180 Line difx+400,(dify/2)+300,difx+400,(dify/2)+300+(difz/5) Color difz#,180,200-difz# Rect difx+400-2,(dify/2)+300+(difz/5)-2,4,4,1 Text difx+400-2,(dify/2)+300+(difz/5)-2,difz EndIf Next Flip Until KeyDown(1) End --v \|EDIT\| something doesn't look right there, but hopefully you get the idea... -=-=- Come rain or shine...