Joint Animation Basics

1) wir definieren eine Animation, denen die nachfolgenen Aktionen zugeordnet werden. Die Animation heißt einfach Turn1, Namen eingeben, Enter drücken, und schon steht sie da und harret der Dinge die da kommen

2) wir selektieren den Joint, der animiert werden soll, in diesem Fall ist dies Gelenk 2

3) wir geben die Rotations- und Translationkeys ein. Für dieses Beispiel werden nur RotationKeys benötigt. die beiden Keys sind schnell eingegeben (von 0 Grad um die Y-Achse auf 30 Grad um die Y-Achse rotiert werden) und werden automatisch Gelenk 2 zugeordnet, da dieses selektiert ist.

4) wir wählen die Animation aus, die einen Zyklus erhalten soll (ein Zyklus ist die Animation eines Gelenks über eine bestimmte Zeitspanne). Da es zur Zeit ohnehin nur eine gibt (Turn1), sollte diese bereits gewählt sein.

5) wir definieren das Gelenk, das animiert werden soll (2) und sagen, ober der Zyklus loopen soll (sich ewig wiederholen) oder nicht. FALSE als zweiter Parameter definiert eine einmalige Aktion.

6) wir wählen den Zyklus, dem neue Frames zugeordnet werden sollen. Turn1 hat nur einen Zyklus über das Gelenk 2, daher sollte dies bereits der Fall sein.

7) wir sagen im Feld "Frame Rotation" zu welcher Zeit das der gewählte Zyklus welchen Rotationsframe annehmen soll. Zum Zeitpunkt 0 Millisekunden soll der Frame 0 dargestellt werden, bei 3000 Millisekunden soll es Frame1 sein

8) die Schritte 2 bis 7 wiederholen wir für die Gelenke 3 bis 6, die wir der Einfachheit alle gleich animieren

procedure TFormSkinAnim.Button1Click(Sender: TObject);
begin
if ActAnimation=0 then exit; // aktuelle Animation muss nicht ersetzt werden
Skin.ResetAnimation(0);
if ActAnimation=2 then
Skin.ReplaceAnimation(ActAnimation, 0, 0) // bei Standbild kann sofort gestartet werden
else
Skin.ReplaceAnimation(ActAnimation, 0, 1000); // 1000 Millisekunden bis zum Start der neuen Animation interpolieren
ActAnimation := 0;
end;

procedure TFormSkinAnim.Button2Click(Sender: TObject);
begin
if ActAnimation=1 then exit; // aktuelle Animation muss nicht ersetzt werden
Skin.ResetAnimation(1);
if ActAnimation=2 then
Skin.ReplaceAnimation(ActAnimation, 1, 0) // bei Standbild kann sofort gestartet werden
else
Skin.ReplaceAnimation(ActAnimation, 1, 1000); // 1000 Millisekunden bis zum Start der neuen Animation interpolieren
ActAnimation := 1;
end;
procedure TFormSkinAnim.Button3Click(Sender: TObject);
begin
if ActAnimation = 2 then exit; // aktuelle Animation muss nicht ersetzt werden
Skin.ReplaceAnimation(ActAnimation, 2, 1000); // 1000 Millisekunden bis zum Standbild interpolieren
ActAnimation := 2;
end;
procedure TFormSkinAnim.Button4Click(Sender: TObject);
begin
Halt(0);
end;