Und was ist deine Frage
?
Wenn es um die Funktionen zum Zeichnen geht, würde ich alles in ein Funktion packen:
Delphi-Quellcode:
procedure Galgen(Steps: Integer; Canvas: TCanvas);
begin
if (Steps < 1)
or (Steps > 12)
then // sind das zwölf *grübel* ?
raise Exception.Create('
Ganz böser Fehler');
Canvas.Arc(...);
// Hügel
if Steps >= 2
then
begin
Canvas.MoveTo(...);
Canvas.LineTo(...);
end;
// usw.
end;
[edit] Ich glaube, es sind 11
[/edit]