Du brauchst nicht für jedes Körpertei einen neuen Stift, nur für die die du bewegen möchtest.
Jeder Stift bzw. Buntstift speichert seine aktuellen Eindtellungen hat zB. Buntstift1 den wert Gruen kann Buntstift2 den Wert Blau haben, das geiche gilt für den Winkel.
Du musst für die Teile die nicht bewegt werden sollen einen eigenen Stift/Buntstift anlegen und nach dem zeichnen den aktuellen Winkel des Stiftes auf null zurücksetzen damit diese sich nicht bewegen.
hier wird der Winkel 10x um 10° gedreht | Ergebnis der Winkel ist nach der For-Schleife 100°
Delphi-Quellcode:
for i:= 1 to 10 do
begin
meinBuntstift.dreheUm(10);
end;
hier wird der Winkel 10x auf 0° gesetzt und dann um 10° gedreht | Ergebnis der Winkel ist nach der For-Schleife 10°
Delphi-Quellcode:
for i:= 1 to 10 do
begin
meinBuntstift.dreheUm(-meinBuntstift.Winkel);
meinBuntstift.dreheUm(10);
end;
PS.: die
Unit mSuM ist leider kein guter Einstieg in das Programmiern, da dort auf
OOP zugegriffen wird. Wenn man als Einsteiger darauf zurückgreift bekommt man nicht besonders gut die Grundlagen zum Programmiern vermittelt.
Wichtig sind erst einmal Projektstrucktur/Blöcke (program, {uses}, Begin..End), Variablen, Schleifen und If-Abfragen und Dann
OOP
Delphi-Grundlagen
Grundlagen
Objektorientierte Programmierung in Delphi im Informatikunterricht