Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Ball Programm ( 2 Bälle bewegen sich )

   
    by _frank_, 15. Nov 2006
  also ich hab das ballabstoßen damals mit dem Satz des Pythagoras gemacht
  Hypotenuse^2=ankathete^2+gegenkathete^2
  
  so in etwa (ungetested)
  
  minabstand:=ball.width^2;
  xdiff:=abs(ball2.left-ball1.left);
  ydiff:=abs(ball2.top-ball1.top);
  abstand:=xdiff*xdiff+ydiff*ydiff;
  if abstand<minabstand then coll:=true;