Delphi-Quellcode:
if ObererKugelrand.Y < Schlägerunterkante.Y then
if EntfernungVomKugelmittelpunktZurEcke < Kugel.Radius then
Eckenkollision
else if (Kugel.Mittelpunkt.X < RechteKanteSchläger.X) and (Kugel.Mittelpunkt.X > LinkeKanteSchläger.X) then
Unterkantenkollision
else if (LinkerKugelrand.X < RechterSchlägerrand.X) then
RechteKantenKollision
else if (RechterKugelrand.X > LinkerSchlägerrand.X) then
LinkeKantenKollision
else
GarKeineKollision;
Puh. Jetzt bin ich aber mit meinem Latein am Ende.
