Würfel

[hummer]

Hallo,
ich programmiere gerade Kniffel. Möchte aber gerne einen animierten Würfel dafür haben. Leider kenne ich mich mit OpenGL oder DirektX nicht aus.

Hat jemand vielleicht einen Quellcode oder kennt ein Tutorial dazu.

Wäre sehr dankbar.

Es würde auch reichen, wenn ich über einen Timer einzelne Bitmaps austauschen kann. Weiß aber auch nicht wie ich das machen soll.

[SirThornberry]

Hier mal die "häßliche" Variante mit Bilder austauschen... (Source ist nicht getestet, kann also irgendwo nen Fehler drin sein, sollte aber veranschaulichen wies geht)

Delphi-Quellcode:

[...]
mypics: Array[0..4] of TBitmap;
[...]

procdure Tform1.Formcreate(Sender: TObject);
var count: Integer;
begin
  for count := 0 to 4 do
  begin
    mypics[count] := TBitmap.create;
    mypics[count].loadfromfile('c:\mybild' + inttostr(count));
  end;
end;


procedure TForm1.FormDestroy(Sender:TObject);
var count: Integer;
begin
  for count := 0 to 4 do mypics[count].Free;

end;

procedure Tform1.timerereignis(Sender: TObject);
begin
  Image1.picture.assign(mypics[aktuellesBild]);
  aktuellesbild := aktuellesbild + 1;
  if aktuellesbild = 5 then aktuellesbild := 0;
end;

[flomei]

Bei den JEDI´s findet sich auf der Registerkarte "Controls" ein Würfel. Vielleicht kannst du den benutzen?!

MfG Florian :hi:

[hummer]

Erst mal danke für die Antworten. Ich habe den Jedi Würfel benutzt. Funktioniert einwandfrei. :thuimb: