Linien beim zeichnen anzeigen lassen

[Andy1811]

Ja, das geht, dann erscheinen halt die Striche alle kurz nacheinander.
Nur ich habe die Aufgabe so interpretiert, das man es sehen soll, wie Striche von Pixel/Punkt zu Pixel/Punkt entstehen

[BadenPower]

Zitat von Andy1811:

Ja, das geht, dann erscheinen halt die Striche alle kurz nacheinander.
Nur ich habe die Aufgabe so interpretiert, das man es sehen soll, wie Striche von Pixel/Punkt zu Pixel/Punkt entstehen

So habe ich die Aufgabe auch verstanden und nur so wäre sie nach meiner Meinung nach auch 15 Punkte wert.

Du musst jeden Bildpunkt einzeln berechnen, was bei den Waagrechten und senkrechten wohl keine allzugroße Herausforderung ist. Bei den Diagonalen und dem Dach musst Du beim Berechnen der Bildpunkte halt den Winkel berücksichtigen.

[EarlyBird]

nur als Anregung,
zeichne die Linien einfach in einer Schleife immer einen Punkt länger

Delphi-Quellcode:

Self.Canvas.MoveTo(50,150);
for i := 0 to 200 do
  begin
    Self.Canvas.LineTo(50 + I, 150);
    Sleep(5);
  end;
I:= 0;
Self.Canvas.MoveTo(250,150);
for i := 0 to 200 do
  begin
    Self.Canvas.LineTo(250, 150 + I);
    Sleep(5);
  end;

[Andy1811]

Ja, das ist schonmal sehr gut. Ich bin schon drann, und würde nachher mal den Code posten, falls er nicht doch zulang werden sollte Erstmal sollte es funktionieren