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!

[pacman1986]

da will einer die dp hipnotesieren
nice work

[TOC]

Hi!

Man könnte das ganze noch mit Farben aufpoppen und dann als Bildschirmschoner !

Grüsse von TOC !

[igel457]

Sieht klasse aus!

Das könnte man auch als Visualisierung mit der Bass.dll einsetzten (Bei Beat Image wechseln, drehrichtung und Geschwindigkeit nach Lautstärke usw...)

Aber wirklich gut!

[Khabarakh]

Sind wirklich ausnahmlos alle genial !
Richtig schick wären noch Anti-Aliased Ringe und dazu Motion-Blur, am Besten weiß auf schwarzem Hintergrund.

Zitat:

da will einer die dp hipnotesieren

Bei dir hat es wohl schon gewirkt .

[JWeis]

das ist ja voll coll das progi und ich glaube das macht süchtig drauf zu kucken..
ist das möglich??

[TOC]

Hi!

Freut mich, das es Euch gefällt!

Ich könnte wirklich ´nen Bildschirmschoner draus machen wenn ihr das wollt, wäre kein grosses Problem.
Hier noch ne coole Grafik als Bildschirmschoner: Eigener Bildschirmschoner in Delphi

Zitat von igel457:

Sieht klasse aus!

Das könnte man auch als Visualisierung mit der Bass.dll einsetzten (Bei Beat Image wechseln, drehrichtung und Geschwindigkeit nach Lautstärke usw...)

Aber wirklich gut!

Ja, das wäre auch ne coole Idee. Werd gleich mal den Beitrag von TurboPascal suchen, da gehts um Visualisierungen mit der Bass.dll, vielleicht hilft der mir weiter bei diesem Problem...

Zitat von Khabarakh:

Sind wirklich ausnahmlos alle genial !
Richtig schick wären noch Anti-Aliased Ringe und dazu Motion-Blur, am Besten weiß auf schwarzem Hintergrund.

Zitat:
da will einer die dp hipnotesieren
Bei dir hat es wohl schon gewirkt .

Wie berechnet man denn Anti-Aliase-Kreise? Gib mir mal nen Tipp!

Zitat von JWeis:

das ist ja voll coll das progi und ich glaube das macht süchtig drauf zu kucken..
ist das möglich??

Gut möglich das das süchtig macht, ich schau mir´s auch immer wieder an. Aber noch extremer ist der Lines-Bildschirmschoner, link siehe oben. Der macht echt süchtig! Vor allem wenn man gleihzeitig Musik hört hat man immer den Eindruck das Musik und Grafik zusammenwirken. Das Kickt!

Grüsse von TOC !

[Nicodius]

also eine anmerkung

also auf dem nummblock bewirkt ein drücken der + bzw - taste nur einen sprung zur nächsten grafik

aber sonst super gemacht

[zecke]

Ich kann mich nur anschließen, obwohl ich auch lieber weiß auf schwarz hätte

Wirklich schön anzusehen ... ...

top!

[TOC]

Hi!

Zitat von Nicodius:

also eine anmerkung

also auf dem nummblock bewirkt ein drücken der + bzw - taste nur einen sprung zur nächsten grafik

aber sonst super gemacht

Ja, da hast Du recht. Das Programm reagiert nur auf '+','-','Esc' und die Ziffern 1-7. Das liegt an der FormKeyDown-Prozedur. Ich kann das aber in der nächsten Version ändern, kein Proble...

Zitat von Zecke:

Ich kann mich nur anschließen, obwohl ich auch lieber weiß auf schwarz hätte
Wirklich schön anzusehen ... ...

Ach ja, die üblichen Farbdiskussionen mal wieder . Also gut, ich mach die Farben für Euch noch einstellbar, kein Thema!

Grüsse von TOC