Function Pythagoras:Double(x1:Double, y1:Double, x2:Double, y2:Double)
	Return Sqr(((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1)))
End Function
Function Pythagoras3d:Double(x1:Double, y1:Double, z1:Double, x2:Double, y2:Double, z2:Double)
	Return Sqr(((x2 - x1) * (x2 - x1)) + ((y2 - y1) * (y2 - y1)) + ((z2 - z1) * (z2 - z1)))
End Function

	Method debugSphere:Int(_id:Byte, _data:Byte, r1:Float, r2:Float = 0, r3:Float = 0)
		If r2 = 0 Then r2 = r1
		If r3 = 0 Then r3 = r1
		
		
		Local cx:Float = w / 2.0
		Local cY:Float = h / 2.0
		Local cz:Float = d / 2.0
		
		
		For Local x:Int = 0 Until w
			For Local y:Int = 0 Until h
				For Local z:Int = 0 Until d
					If (Pythagoras3d(cx, cY, cz, x, y, z) <= r1) Then
						ids[x][y][z] = _id
						data[x][y][z] = _data
					End If
				Next
			Next
		Next
	End Method

Function CheckPoint:Int(pos:Vector3, center:Vector3, radien:Vector3)
       'vektor3 ist eine klasse, die ich aus dem Codearchiv geklaubt und erweitert habe.
       'center zeigt auf den mittelpunkt der zu zeichnenden Sphere
       'radien enthält die ausdehnungen der sphere in richtung x,y,z

       Local dir:Vector3 = Vector3.Subtract(center,pos)
       'dir ist die richtung vom Zentrum zur Koordinate.
       
       dir = Vector3.Divide(dir, dir.absolute())
       'dir ist nun normalisiert, bzw auf länge 1 gebracht

´     Local total:Float = ((dir.x*radien.x) + (dir.y*radien.y) + (dir.z * radien)) '/3.0 <- eventuell durch drei teilen?
       'Idee ist, das total nun der "mischradius" ist, von dem Boris1993 gesprochen hat.
       'So vom kopf her könnte das funktionieren...

       Return Pythagoras3D(pos.x,pos.y,pos.z, center.x,center.y,center.z) <= total 
End Function