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;