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

[TOC]

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!

[mbamler]

Finde ich gut dein Programm
werde Teile daraus verwenden

Gruß
Matthias

[TOC]

Hi!

Zitat von mbamler:

Finde ich gut dein Programm
werde Teile daraus verwenden

Gruß
Matthias

Cool! Freut mich das es Dir gefällt. Verwende Du ruhig daraus wieviel Du möchtest, dafür isses ja auch OpenSource!

Sorry, war 2Wochen lang Krank, schwere Grippe. Deshalb kann ich Dir jetzt erst antworten.

Grüsse von TOC !

[delphis spassbremse]

Irgendwie sind die ZIP´s net in Ordnung^^

[Matze]

Schön gemacht! (Ich habe den Thread erst jetzt gesehen)

Zitat von delphis spassbremse:

Irgendwie sind die ZIP´s net in Ordnung^^

Ich habe mit den Archiven keinerlei Probleme.

[Florian H]

Zitat von delphis spassbremse:

Irgendwie sind die ZIP´s net in Ordnung^^

Liegt daran, dass im Dateinamen Umlaute vorkommen .. das wiederrum sollte man bei Downloads ja grundsätzlich vermeiden ... im Zusammenspiel z.B. mit der Windows-ZIP-Funktion führt es dazu, dass die Datei als ungültiges Zip-Archiv erkannt wird --> umbenennen ("fuer" statt "für") und es funktioniert