Strichmenchen soll laufen

[x000x]

Moin moin,

Zitat von turboPASCAL:

Naja, wenn du 35 mal die Drehrichtung änderst dann musst du alle 35 Anweisungen dreheUm(Winkel) wieder zurücksetzen ... ein Summieren der Winkel führt zu einem falschem Winkel... Bei grösseren Zeichenaktionen wird man da schnell an einen Punkt kommen wo man das ganze verflucht...

Ein setzen der Koordinaten des Stiften ist ja auch vorhanden mit bewegeBis(PosX, PosY), nur das zurücksetzen des Winkels fehlt und es gibt keine Möglichkeit diesen auf Null zu setzen.

... und wieder ein Einspruch... mit dreheUm(-winkel); setze ich den Winkel wieder auf 0 zurück, egal welchen Wert Winkel hat...
z.B.

Delphi-Quellcode:

// ..
 with meinBuntstift2 do
    begin
      // Auto
      //DrehWinkelZuruecksetzen; // * neu * //
      dreheUm(-Winkel);
      hoch;
      bewegeBis(Koordinaten - 200, 550);
      runter;
// ..

macht genau das selbe wie dein DrehWinkelZuruecksetzen;