3D radar HELP please

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

Malice

Yeah, this is similar to what I used here:

;ELITE RADAR

If flight_mode$="Space" 

		DrawImage eliteimage,eliteX,EliteY





		For RadDots.RadarTargets = Each RadarTargets

			If EntityDistance(RadDots\TargetEntityhandle,ship)<=radar_range#

				If RadDots\TargetType$<>"PLANET" And RadDots\TargetType$<>"STAR" And RadDots\TargetType$<>"SATELLITE"

					TFormPoint (EntityX#(RadDots\TargetEntityhandle,1),EntityY#(RadDots\TargetEntityhandle,1),EntityZ#(RadDots\TargetEntityhandle,1),0,ship) 
					red_relativeX#=(0-TFormedX#())
					red_relativeY#=(TFormedY#())
					red_relativeZ#=TFormedZ#()

					red_relativeX#=(red_relativeX#/radar_scale#)
					red_relativeY#=(red_relativeY#/(radar_scale#*1.5))
					red_relativeZ#=(red_relativeZ#/(radar_scale#*1.5))

					Color RadDots\TargetColourRed,RadDots\TargetColourGreen,RadDots\TargetColourBlue
						If targetentity=RadDots\TargetEntityhandle Then Color 255,255,255

					;blip
					;If red_relativeY>0 Then Rect (red_relativeX#+1)-elitex,(red_relativeZ#+Abs(red_relativeY#)+Abs(red_relativeY#))-elitey,3,1,1 
						If red_relativeY<0 Then Rect eliteX-(red_relativeX#+1),eliteY-red_relativeZ#+Abs(red_relativeY#)+Abs(red_relativeY#),3,1,1 

					;stalk
					If red_relativeY>0 Then Rect (eliteX-red_relativeX#)-1,eliteY-red_relativeZ#-Abs(red_relativeY#),2,Abs(red_relativeY#),1 
					If red_relativeY<0 Then Rect eliteX-red_relativeX#,eliteY-red_relativeZ#+Abs(red_relativeY#),1,Abs(red_relativeY#),1 

				EndIf

			EndIf


		Next

EndIf

Notes: I used different colours for different object types.