Heyho....hab ma wieder ne Frage
Und zwar gehts um Folgendes :
Hab ne wunderschöne rekursive Grafik und zwar so en Farn
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
| procedure farn(n:integer;len: real);
begin
with form1.Turtle1 do begin
Draw(len);
If n > 1 then begin
Turn(25);
farn(n-1,len*0.5);
Turn(-35);
farn(n-1,len*0.7);
turn(-25);
farn(n-1,len*0.4);
turn(35);
end;
Draw(-len);
end;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
Var l,i:integer;
begin
turtle1.clear;
turtle1.MoveTo(280,turtle1.height-10);
turtle1.TurnTo(90);
farn(StrToInt(Edit2.text),StrToInt(Edit1.Text));
end;
procedure TForm1.BitBtn3Click(Sender: TObject);
begin
close;
end; |
und diese Grafik wollt ich so animieren, dass es aussieht als würd des Farn so im Wind schwingen. Hab schon versucht die im Quellcode rot markierten Winkel zu veränder , also die Werte mit na FOR-Schleife ständig durchlaufen zu lassen, aber des klappt net so richtig....also vor allem is des problem, dass der Aufbau der Grafik bei DrawDynamic = true, so langsam is, dass es net mehr aussieht als würd des im Wind schwingen. Gibts da irgend ne Möglichkeit des hinzukriegen, dass es die Grafik mit sich ständig verändernden Winkeln schneller zeichnet und es dann auch gescheit aussieht...oder muss ich draw Dynamic auf false stellen`?.....aber dann sieht man doch andererseits nix mehr von der schönen grafik wie se schwingt......hmm , ich hab kein Plan......kann vielleicht jemand helfen?, hat jemand sowas schon ma gemacht?....wär wirklich super dankbar für hilfe
greetz
Freeman
Moderiert von 
raziel: List- durch Delphi-, Color- durch Highlight-Tags ersetzt.
