Sieben animierte Grafiken aus Kreisen in Delphi mit DelphiX

[TOC]

Hi!

Hier kommt eine kleine Grafik-Spielerei mit DelphiX. Das Programm zeichnet 7 animierte Grafiken die im Grunde genommen nur aus Kreisen bestehen.

Es ging um folgende Überlegung: Ein Kreis wird vom Mittelpunkt aus in "P" Abschnitte geteilt, er hat also "P" Arme wie ein Seestern. Dann werden vom Mittelpunkt aus "N" Kreise gezeichnte, zwischen zwei Kreisen gibt´s nen Abstand von "L1". Der innerste Kreis hat einen Startradius von "R", der nächste Kreisradius wird um den Faktor "Z" vergrössert bzw. verkleinert. Von Kreis zu Kreis dreht sich der Winkel um den Faktor "W". Ausserdem dreht sich das ganze auch noch von Bild zu Bild um den Startwinkel "Sa". Nun, das ganze hört sich jetzt komplizierter an als es ist... Es war nur so Idee die mir irgendwann mal kam.

Diese Variablen werden dann so variiert das 7 verschiedene animierte Grafiken dabei herauskommen.

Mit den Tasten "1"-"7" könnt ihr die Grafik auswählen, "Esc" beendet das Programm, "+" macht den Timer schneller und '-' macht ihn langsamer, irgendeine andere Taste schaltet um zur nächsten Grafik. Ihr könnt diese Funktionen auch mit der rechten Maustaste über ein Popup-Menü anklicken.

Wenn ihr das Programm als Projekt öffen und neu kompileren wollt dann müsst ihr vorher das Komponenten-Paket DelphiX in Eurer Delphi-IDE installieren. Damit das Programm auf Eurem Rechner laufen kann muss DirectX ab Version 8.0 installiert sein.

================================================== ================================================

Hi!

Also gut, aus purer Lust am programmieren und um die üblichen Farb-Diskussionen zu vermeiden (hatten wir schon in so vielen Threads!) setz ich noch einen obendrauf: Hier kommt Version 1.1 von CircleX!


Änderungen:

1.) Es gibt nun 4 Hintergrundfüllmodi und 3 Farbmodi. Es kann sich nun also jeder seine Lieblingsfarben und Modi einstellen. Drück einfach auf die "E"-Taste oder über PopUp-Menü "Einstellungen..." anklicken.

2.) Man kann nun einen zusätzlichen Timer aktivieren der die Einstellungen alle N Sekunden zufällig ändert.

3.) Die Einstellungen werden nun in einer *.ini-Datei gesichert die automatisch geladen bzw. gespeichert wird.

4.) Zusätzlich kann man seine Lieblingseinstellungen in einer Datei abspeichern oder aus dieser laden.

5.) Die Tasten "1".."7" und "+" sowie "-" aus dem Nummernblock werden nun ebenfalls unterstützt.


Interessant ist meiner Meinung nach auch die Unit TurtleX die diesem Programm beiligt. Da sind komplete Turtle-Grafik Prozeduren und Funktionen drin, inklusive Stack-Funktionen. Mit dieser Unit kann man auf recht einfache Weise die coolsten Grafiken zeichnen!

Dem Archiv liegen einige *.qce-Dateien bei mit verschiedenen Einstellungen. Ihr könnt sie ja mal laden und Euch angucken was dabei herauskommt.


Weitere Grafik-Spielereien von mir findet ihr hier:

Ellipsen die sich um ihren Mittelpunkt drehen mit Delphi

und:

Apfelmänchen (Fraktale) mit Delphi


Ihr könnt es Euch ja mal ansehen.

Das Programm schreibt NIX in die System-Registrierung.

Grüsse von TOC!