rekursive procedure

klothilde · Hält's aus hier Beiträge: 1 Win XP

hi...
also, ich kenne mich kaum mit delphi aus, muss aber ne rekursive procedure schreiben, in der sich eine spirale bildet. aber keine normale spirale, sondern so mit zacken (also sternförmig). ich habe echt keine ahnung, wie man sowas angeht und bin ein bisschen verzweifelt...

ps. habe mal grob mit paint versucht darzustellen, wie es in etwa aussehen muss.

Einloggen, um Attachments anzusehen!

Phantom1 · Beiträge: 390

Hab hier noch ein Beispiel Code, den du ja noch beliebig anpassen kannst:

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure DrawFigure(Canv: TCanvas; mPoint: TPoint; Radius, MaxRadius, Angle: Word; Top: Boolean);
var r: Word;
begin
  if Radius>MaxRadius then
    Exit;
  Inc(Radius, 1);
  Angle:=(Angle+10) mod 360;
  r:=Radius;
  if Top then
    Inc(r, Radius div 5);
  Canv.LineTo(Round(Sin(DegToRad(Angle))*r)+mPoint.X, Round(-Cos(DegToRad(Angle))*r)+mPoint.Y);
  DrawFigure(Canv, mPoint, Radius, MaxRadius, Angle, not Top);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Canvas.MoveTo(300, 300);
  DrawFigure(Canvas, Point(300,300), 0, 200, 0, False);
end;

mfg

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme