Forum: Multimedia
by SirThornberry,
3. Nov 2007
so wie ich muetze verstanden habe gibt man eine callbackmethode an welche dann für das zeichnen jedes pixels aufgerufen wird
Forum: Multimedia
by SirThornberry,
2. Nov 2007
wie gesagt. Es geht darum im Verhältnis etwas zu berechnen.
Wenn du zum Beispiel eine Linie von x: 0 - y: 0 nach x: 10 - y: 40 zeichnen willst, musst du bei jedem Schritt auf der X-Achse 4 Schritte auf der Y-Achse gehen. Du musst also das Verhältnis der X-Distance zur Y-Distance gleich setzen mit dem SchrittX zu SchrittY. Nennt sich glaub ich auch Dreiecksgleichung.
Wenn du später mal eine...
Forum: Multimedia
by SirThornberry,
2. Nov 2007
probier mal folgende Funktion:
procedure DrawLine(ACanvas: TCanvas; x1, y1, x2, y2: Integer; AColor: TColor);
var
lCount,
lDistanceX,
lDistanceY,
lStepSize : Integer;
begin
lDistanceX := x2 - x1;
Forum: Multimedia
by SirThornberry,
2. Nov 2007
du erhöhst nicht um einen Factor sondern um 1 oder 0
Forum: Multimedia
by SirThornberry,
2. Nov 2007
ich schlage eine Verhältnisgleichung vor.
Wenn eine Linie von x1 nach x2 gezeichnet werden soll dann muss x bei der hälfte der Stecke auch auf der y-Achse die hälfte der Stecke zurück gelegt haben.
Forum: Multimedia
by SirThornberry,
2. Nov 2007
gar nichts.
folgender Aufruf klappt (verständlicher Weise) nicht:
DrawLinePluto(Self.Canvas, 0, 0, 150, 600, clBlue);
es wird eine Linie gezeichnet im 45 Grad Winkel aber nicht zu dem Punkt den ich angegeben habe. Die Funktion ist so nutzlos, die Logic stimmt einfach nicht.
Dein Quelltext bewirkt das du eintweder in jedem Schritt 1 oder gar kein Pixel nach Rechts und unten gehst. Das...