Lustige, Rekursive Formen !

[mr_emre_d]

Machen wie mal sowas wie ein "Sammelthread"

Wenn ihr auch solche Ideen habt, dann bitte posten !

Falls ich das in einer falschen Sparte( vlt. Klatsch und Tratsch ) erstellt habe -- bitte verschieben - Danke

MfG

Code:

procedure Blubb( ACanvas: TCanvas; AnfangsPosition: TPointF; Länge, Winkel: Integer;
  var Durchgänge: Integer );
var
  b: integer;
  Richtung: TPointF;
begin
  if Durchgänge > 0 then
  begin
    dec( Durchgänge );
    Richtung.X := Cos( Winkel ) * Länge;
    Richtung.Y := Sin( Winkel ) * Länge;
    with ACanvas do
    begin
      MoveTo( Round(AnfangsPosition.x), Round(AnfangsPosition.Y) );
      LineTo( Round(AnfangsPosition.x-Richtung.X), Round(AnfangsPosition.Y-Richtung.Y) );
    end;
    Blubb( ACanvas, PointF( AnfangsPosition.x-Richtung.X, AnfangsPosition.Y-Richtung.Y ),
      Länge - ( länge * 2 ), WInkel + 45, Durchgänge );
  end;
end;

{Aufruf, Durchgänge sollte bei 80 sein !}
  Blubb( canvas, pointF( clientwidth / 2, clientheight - 50 ), 500, 90, e );

Screeny:

[Die Muhkuh]

Ein Bild davon wäre nicht schlecht

[mr_emre_d]

bitte sehr

EDIT:
Na hat keiner Rek.Codes ?

[SnuffMaster23]

Ich hab mal die Koch-Kurve in AutoIT geschrieben, aber den Code hab ich grad net zur Hand.
Das hat dann die Maus bewegt und gedrückt, damit konnte man die Kurve z.B in Paint zeichnen

[mr_emre_d]

das Teil schaut geil aus

Hat das übrigens einen Namen ? Das rekursives Malen meine ich damit !

MfG

[Medium]

Rekursives Malen hat keinen eigenen Namen, da es nichts weiter als einfach Rekursion ist. Die Kochkurve gehört zur Klasse der Fraktale, die sich oft gut durch Rekursion bilden lassen, aber nicht alles was innerhalb einer Rekursion gezeichnet wird ist damit gleich ein Fraktal. Dein gepostetes z.B. ist es nicht, das ist einfach eine Spielerei mit sin/cos, die sich zudem besser iterativ realisieren würde.
(Dein Parameter "Durchgänge" übernimmt z.B. bei dem Beispiel die selbe Aufgabe wie eine Schleifenvariable, und sobald sowas auftaucht ist das meist schon ein deutlicher Hinweis auf ein eigentlich besser iterativ lösbares Problem. Anders schaut es da schon bei Mehrfachrekursion aus.)

[mr_emre_d]

aha ?

Danke für die Infos

Edit: Aber trotzdem will ich hier sowas wie n Sammelthread führen



MfG

[Alexander]

Dann noch ein bissle Farbe rein und sähe noch schöner aus. Für den Informatik-Unterricht durften wir damals auch solche Sachen machen.
Wenn ich es wieder finde, werde ich es mal posten . (Ist allerdings JAVA)

[Corpsman]

na da kann ich noch meine LindenmeierEngine mit dazu werfen.

Da könnt ihr mittels einfacher Gramatik Kochkurven, sirpinski dreiecke und jederlei anderes Rekursives baun.

Und wenns Bunt sein soll dann sind die Mandelbrot sachen immer noch die besten .

@mr_emre_d

dein Code müste auch nicht unbedingt Rekursiv sein, der wäre Iterativ höchstwahrscheinlich sogar schneller, und einfacher ..