Abfrage ob sich Images überschneiden?

[atreju2oo0]

Bei zwei Bällen berechnest Du einfach die Entfernung zwischen den beiden Mittelpunkten und schaust ob diese kleiner
als die Summe der beiden Durchmesser sind.

Delphi-Quellcode:

type TBall=record
      MPunkt:TPoint;
      radius:integer;
     end;

var Ball1, Ball2:TBall


function getroffen:boolean;
begin
  if sqrt(sqr(Ball1.MPunkt.x-Ball2.MPunkt.x)+sqr(Ball1.Mpunkt.y-Ball2.MPunkt.y))<(Ball1.radius+Ball2.radius) then recult:=true
    else result:=false;
end;