Delphi-PRAXiS - 3D-Würfel der sich im Raum dreht in Delphi mit DelphiX

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Software-Projekte der Mitglieder (https://www.delphipraxis.net/26-software-projekte-der-mitglieder/)

- - 3D-Würfel der sich im Raum dreht in Delphi mit DelphiX (https://www.delphipraxis.net/68551-3d-wuerfel-der-sich-im-raum-dreht-delphi-mit-delphix.html)

3D-Würfel der sich im Raum dreht in Delphi mit DelphiX

HI!

Schon seit langem wollte ich mal ein wenig mit 3D herumspielen und einen sich drehenden Würfel oder sowas programmieren, aber leider hatte ich nicht die dazu notwendigen Formeln. Durch Zufall habe ich hier in DP aber das Programm

StarField gefunden das ein Sternenfeld anzeigt. Aus diesem Programm habe ich mir die 3D-Formeln geklaut und habe sie ein wenig angepast für meinen Würfel. Da war zwar ein kleiner Fehler in den Formeln, aber nach einiger Zeit des Grübelns wurde mir klar wie ich dies beheben konnte. Und: Der Würfel dreht sich!
Du kannst ihn um die X-, Y- und/oder Z-Achse mit verschiedenen Winkelgeschwindigkeiten drehen lassen oder ihn in X-, Y- und/oder Z-Richtung verschieben. Ausserdem kann man ihn einfarbig oder mehrfarbig darstellen, auf den Flächen des Würfels die Diagonalen zeichnen lassen, die Achsen des Würfels zeichnen lassen, die Stiftdicke verändern, die Grösse und den Augenabstand verändern, die Farben einstellen oder sogar noch auf jede Fläche des Würfels eine Pyramide draufsetzen usw.. Natürlich kann man die Einstellungen auch laden und abspeichern. Es sind im Archiv einige *.qcu-Dateien drin mit verschiedenen Würfel-Einstellungen.

Das Programm verwendet zwar DelphiX damit es schneller ist, nicht aber besondere 3D-Funktionen von DirectX. Die Punkte und ihre Drehungen und die Projektion auf den 2D-Bildschirm werden tatsächlich vom Programm berechnet.

Das Programm kann aber leider nicht berechnen welche Kante sichtbar oder von einer anderne Kante verdeckt ist. Das wäre dann wohl auch ein enormer mathematischer Aufwand und leider habe ich dafür nicht die Formeln! Der Würfel ist also durchsichtig.

Die 3D-Formeln findet ihr in der 'UnitCube' in der Prozedur 'MoveAndRotCube' und in der Funktion 'CalcPoint(Point3d:TPoint3d; Var X,Y:Integer):Boolean'.

Das Programm verwendet ein *.ini-File und schreib NIX in die Systemregistrierung!

Im Anhang findest Du jeweils 2 Versionen, für Delphi 3.0 oder 7.0. Wenn Du die Projekte öffnen und neu kompilieren möchtest dann benötigst Du das Paket

DelphiX und meine Komponenten-Sammlung

Tocs Komponenten als Paket

Das Programm ist OpenSoure und GiftWare.

Ihr könnts Euch ja mal ansehen!

Grüsse von TOC!