Strichmenchen soll laufen

[x000x]

Zitat von turboPASCAL:

...mach das doch bitte mal an hand dieses Beispieles:

Ok

Delphi-Quellcode:

program Test_;
// ..
  //Initialisierung
  myBildschirm := Bildschirm.init;
  myStift := Stift.init;
  for x := 250 to 600 do
  begin
    with myStift do
    begin
      //
      // Neu ;-)
      dreheUm(-Winkel);
      // ..

Winkel ist eine funktion (aus der Klasse Stift, haste vll. übersehen?), die mir den aktuellen Wert von zWinkel zurückliefert.
Wenn ich den Wert negiere, bekomme ich immer den aktuellen Wert von zWinkel mit entgegengesetztem
Vorzeichen.
z.B.:
angenommen: zWinkel := -90
dann gibt mir die funktion -Winkel = --90 zurück (oder auch gleich 90)
und -90 + 90 = 0

Kann es leider nicht besser erklären, aber probier es aus...