Flugbahn eines Geschosses darstellen

[devnull]

Hi,
weiss jemand, wie ich die Flugbahn eines Geschosses (auf Form) darstellen kann?
Bekannt sind:
* Ausgangskoordinaten
* Zielkoordinaten
* Steigung
Problem: Steigung aus reellem Zahlenbereich...

mfg
devnull

[xineohp]

moin,

geht es dir um die Berechnung oder die Darstellung der Flugbahn?

[devnull]

Die Berechnung ist nicht das Problem, wohl aber die Darstellung...

Ich weis nicht, wie ich ein Bild (oder sowas ähnliches) verschieben soll, da die Steigung ja Kommazahl ist

[StefanDP]

Zitat von devnull:

Die Berechnung ist nicht das Problem, wohl aber die Darstellung...

Ich weis nicht, wie ich ein Bild (oder sowas ähnliches) verschieben soll, da die Steigung ja Kommazahl ist

wie wärs einfach mit runden?

[supermuckl]

wenn du jeden punkt zeichen willst dann machste das halt mit canvas

wenn du ein objekt verschieben willst dann änderste halt jedes frame die position und stellst es dar..

ich weis halt net was du benutzen willst als darstellung und so weiter.. spezifiziere bitte dein problem

// edit

kommazahlen zu ganzzahlen convertieren geht mit round()

[devnull]

Wenn ich runde und dabei aber mit Pixeln arbeite, bekomme ich bei größeren Pixelstrecken eine sehr große Abweichung...
Eigentlich ist es doch egal, ob ich ein Image oder ein Pixelkreuz verschiebe?!

[supermuckl]

du musst für deine berechnungen fließkommazahlen verwenden und NUR für das anzeigen via objekte positionieren runden !

[Der_Ventilator]

Nötigenfalls multiplizierst du deine Endwerte mit einem Vergrößerungsfaktor und rundest dann.

[Nikolas]

So könnte es dann Aussehen: Parabel

Delphi-Quellcode:

image1.canvas.MoveTo(0,250); // links unten

 for x:=0 to 500 do// von links bis rechts
 begin
 y:=(x-250)/15;   // Nullstelle nach rechts verschoben und Parabel gedrückt
 y:=power(y,2);
 s:=round(y);
 image1.canvas.LineTo(x,s);
 end;

Und immer dran denken 0/0 ist nicht links unten ( vergess ich bei Schaubildern immer und wunder mich dann warum mein Sinus irgendwie gesiegelt aussieht )

[devnull]

Ich hab da mal nen üblen Fehler gemacht: jetzt funkts...


Aufnahme der Ausgangs-, Zielposition in der OnMouseDown...

Delphi-Quellcode:

  Schuss[i].XPos := Ship1.XPos;
  Schuss[i].YPos := Ship1.YPos;
  Schuss[i].XStart := Ship1.XPos;
  Schuss[i].YStart := Ship1.YPos;
  Schuss[i].XZiel := x;
  Schuss[i].YZiel := y;
  // Berechnet Steigung (Steigung : real)
  Schuss[i].Steigung := (Schuss[i].YZiel-Ship1.YPos) / (Schuss[i].XZiel-Ship1.XPos);

Timer: Flugbahn darstellen (lineare Fkt.: y=mx+c)

Delphi-Quellcode:

  Schuss[i].XPos := Schuss[i].XPos + 1;  //Nur wenn Ziel rechts des Raumschiffs ist
  Schuss[i].YPos := round(Schuss[i].Steigung*(Schuss[i].XPos-Schuss[i].XStart) + Schuss[i].YStart);

mfg
devnull