Z <= sqrt(X*X + Y*Y) / tan(irgendein_wert_für_den_Oeffnungswinkel)

function IsPointWithinCone(P: Vector3; Origin: Vector3; Direction: Vector3; angle_tan: single): boolean;
var
  Projection: Vector3;
  Perpendicular: Vector3;
begin
  P -= Origin; //Koordinatensystem so verschieben, dass Origin im Nullpunkt liegt
  Projection:= Direction * dot(P, Direction) / dot(Direction, Direction); //P auf Richtungsvektor projizieren.
    //Direction hat nicht notwendigerweise die Länge 1, daher wird durchdividiert (die Länge ist einmel in Direction und einmel in dot(P, Direction), daher Quadrat der Länge)
  Perpendicular:= P - Projection; //der Teil von P, der Normal auf Direction ist.
 
  result:= VectorLength(Projection) * angle_tan >= VectorLength(Perpendicular);
  result:= result and (dot(P, Direction) >= 0); //wenn der Kegel nur in eine Richtung gehen soll
end;