Forum: Sonstige Fragen zu Delphi
Delphi
by CalganX,
16. Mär 2006
Hi,
joah, so gehts:
var
dx, dy: integer;
begin
// recalculate angle (collision-detection)
if (spShape.Top >= (ClientHeight - spShape.Height)) or
(spShape.Top <= 0) then
fDeg := -fDeg;
if (spShape.Left >= (ClientWidth - spShape.Width)) or
Forum: Sonstige Fragen zu Delphi
Delphi
by CalganX,
16. Mär 2006
Hi,
ich spiele gerade ein wenig mit Kollisions-Abfragen und dem Abprallen von Bällen bzw. Shapes herum, um zu zeigen, dass das mit trigonometrischen Funktionen viel schöner ist, als wenn ich das über Steigungen mache. *g*
Mein "Berechnungs"routine sieht so aus:
var
dx, dy: integer;
begin
// recalculate angle (collision-detection)
if spShape.Top > (ClientHeight - spShape.Height)...