Circular spectrum visualizer

[EWeiss]

Neue Versionen oben.

64 Bit DCE (Delphi Community Edition) und höher
32 Bit D2010

Hoffe läuft jetzt alles und ist richtig ;)

Später addiere ich vielleicht noch eine variable SampleRate Min 512, MAX 8192
Shot! Echoes von Pink Floid


gruss

[EWeiss]

Klein Korrektur.. danke Michael II für die Berichtigung.

Delphi-Quellcode:

procedure TSpectrum.CheckEffects;
case 1
//...

              Color := blue or (green shl 8) or (red shl 16);
              DWORD(Pixel) := Color or (Pixel.rgbReserved shl 24);
//              SKAERO_SplitColorARGB((Color or (Pixel.rgbReserved shl 24)), _alpha, _red, _green, _blue);
//
//              Pixel.rgbBlue := _blue;
//              Pixel.rgbGreen := _green;
//              Pixel.rgbRed := _red;
//              Pixel.rgbReserved := _alpha;

              RGBQuad^ := Pixel;
              inc(RGBQuad);
case 2
//... 

            Color := Buf[dx, dy] and $FFFFFF;
            DWORD(Pixel) := Color or (Pixel.rgbReserved shl 24);
//            SKAERO_SplitColorARGB((Pixel.rgbReserved shl 24) or Color, _alpha, _red, _green, _blue);
//
//            Pixel.rgbBlue := _blue;
//            Pixel.rgbGreen := _green;
//            Pixel.rgbRed := _red;
//            Pixel.rgbReserved := _alpha;

            RGBQuad^ := Pixel;
            inc(RGBQuad);

Die variablen

Delphi-Quellcode:

_alpha, _red, _green, _blue: Byte;

werden dann nicht mehr benötigt.

gruss

[EWeiss]

Falls jemand gerne diese Knobs möchte sagt bescheid lade dann eine aktualisierte uControls.pas incl. des Knobs hoch.
Dafür sind dann leider ein paar kleine Änderungen nötig damit das 3 Frame der Value entsprechend angepasst wird.

Man kann dann wechseln zwischen Knobs mit 2 oder 3 Frames.

gruss

[EWeiss]

Neue Version..
Es waren leider noch einige Korrekturen von Nöten. (Danke an Michael II)

Wir merken uns jetzt den Pointer auf Pixel (0,0)

Delphi-Quellcode:

RGBQuad := BitmapData.Scan0;

von daher können wir uns den Scan0 auf jede Zeile sparen.

Delphi-Quellcode:

RGBQuad := Scanline(BitmapData, Row);

ist also nicht mehr nötig.
zudem waren diese Zuweisungen auch unnötig.

Delphi-Quellcode:

DWORD(Pixel) := 0;
RGBQuad^ := Pixel;

wir können die 0 direkt an RGBQuad übergeben.

Delphi-Quellcode:

DWORD(RGBQuad^) := 0;

Die Funktion Scanline wurde entfernt.
GDIP_BitmapUnlockBits wurde zu früh aufgerufen das Bitmap war also nach der 1 Zeile (0) schon nicht mehr geschützt.

gruss

[EWeiss]

Wer den Kreis ausweiten will hier ist die angepasste uControls.pas inklusive neuem Composited.png

je nach Delphi Version muss das FormatSettings.Decimalseparator in DisplayFloatValue angepasst werden.
32 Bit einfach ohne FormatSettings nur einfach Decimalseparator.

Im Archiv ist die für 64Bit.
Das *.png einfach im Skins Ordner ersetzen.
Nicht mehr nötig ist im Archiv enthalten.

gruss

[EWeiss]

Neue Version..

gruss

[EWeiss]

Neue Version.

Zitat:

Transparenz ist nun so wie sie soll ohne das ist Farben die Deckkraft verlieren, werden von der Transparenz ausgeschlossen.

Was für ein Gedudel.. auf den Desktop :wall: :duck:

gruss

[Codehunter]

Bitte nicht übel nehmen... Aber wofür isn das gut?

[EWeiss]

Zitat:

Zitat von Codehunter (Beitrag 1435122)

Bitte nicht übel nehmen... Aber wofür isn das gut?

Was.. Wenn du mir sagst was du meinst könnte ich es beantworten.
Es sei denn du meinst das? Versuche es mal mit DragDrop ;) Mp3 Dateien.. habe es aber extra oben addiert.

Wenn es um den Visualizer geht nun ich denke da kann man viel von lernen vor allem Leute die sich mit dem Thema beschäftigen.
Keine sorge nehme es nicht übel nicht jeder kann in allem einen Sinn erkennen.

Manchmal macht man einfach etwas aus spaß an der Freud.
Für mich persönlich ist es die Schmerzgrenze meiner Library zu testen so das ich sie erweitern kann wenn etwas fundamentales fehlt.

PS:
Kannst du in einer Form ein transparentes Loch erstellen dieses zur Laufzeit in der Transparenz verändern und anschließend in dem Fenster (Aussparung) eine Visualisierung darstellen?
Falls nicht wäre das ein Ansatz um vielleicht davon zu lernen ;)
Aber das sind alles nur Vermutungen da ich nicht weis was du genau meinst.


gruss

[Codehunter]

Ich meinte den "Circular spectrum visualizer" als solches, nicht den programmiererischen Background (den ich durchaus zu schätzen weiß). Die Frage kommt daher, dass ich mich z.B. auch bei Winamp schon seit Jahr(zehnt)en frage, wozu die Aussteuerungsanzeige gut ist. Bis in die frühen 80er Jahre ergab das bei Highend-Verstärkern noch Sinn. Aber seit der exzessiven Kompression (Stichwort Loudness War) und Formaten wie MP3 oder AAC ist das eigentlich nur noch sinnfreies Gezappel. Der akustisch wahrgenommene Beat schlägt sich kaum noch in sichtbaren Peaks nieder. Von der Asynchronität infolge träger GDI mal gar nicht zu reden. Im Prinzip könnte man wohl sogar zufallsgeneriertes Gezappel darstellen und keiner würds merken ^^

[EWeiss]

Ist zwar nicht direkt das Thema.. aber ich frage mich was das soll das fast jeder ein Handy besitzt und ohne scheinbar nicht mehr Leben kann.
Ich habe keines brauche es nicht und werde mir auch niemals für 800 Euronen so etwas sinnfreies zulegen.
So ändern sich die Zeiten. ;)
Warum benötigt man überhaupt Fenster um Musik widergeben zu können kann man auch alles über simple Tastaturbefehle steuern.
Nun wie ich schon sagte nicht jeder sieht in allem einen sinn.
Ka wie alt du bist aber zu Beat \ Musik gehört so etwas nun mal dazu zumindest in meiner Welt. :-D

Habe aber nichts gegen deine Einstellung aber bedenke es gibt immer einen Markt.
Würdest du dein Geld damit verdienen (Musik Software) dann würdest du merken das es deine Anwender nicht interessierst was du davon hältst sondern sie erwarten das einfach. Kannst du es nicht liefern dann war es das mit deiner Software.
Zum Beispiel die Software Helium Musik Manager zum Organisieren seines Musik bestands verwendet meine BassVis Library um diverse Visualisierungs Bibliotheken zu visualisieren. (Winamp, Sonique, WMP PLugins) usw..
Ich denke ohne würde der Player einen Verlust von 30% einfahren es ist nun mal ein "must to have" für Sound Software.

gruss

[Codehunter]

Ich versteh deine Argumente durchaus. Ich sage jetzt mal aus dem Bauch heraus, dass kaum jemand unter 40 sich aus eigenem Erleben an Musik erinnern kann, die mehr als 1 dB Dynamikumfang hatte. Wer gar nicht weiß wovon wir hier reden, kann ja mal hier querlesen: https://de.wikipedia.org/wiki/Loudness_war

Das erste Mal richtig bewusst aufgefallen ist mir das in den 90er Jahren bei dem Titel "Hand in Hand" von Dune. Ich hatte die Whitelabel-Vorab-Vinyl ergattert. Die hatte so einen brutalen Basshub, dass mir fast die Chassis aus den Boxen flogen. Die spätere Single auf CD war derart komprimiert und auf laut getrimmt, dass der harte Bass zu einem lahmen Gebrammel verkümmert war.

Das Paradox besteht ja darin, dass die künstliche Lautstärkeanhebung dazu führt dass der Bass/Beat immer flacher und damit leiser wird. Und genau das führt dann zu dem Effekt, dass der schönste und toll programmierteste Visualizer eigentlich nicht viel mehr anzeigt als Nahezu-Whitenoise.

Was dein Visualizer kann oder auch nicht, das müsstest du also mit richtig alten Aufnahmen testen, die nicht remastered wurden.

[EWeiss]

Zitat:

Was dein Visualizer kann oder auch nicht, das müsstest du also mit richtig alten Aufnahmen testen, die nicht remastered wurden.

Nimm einfach mal den Song von Pink Floyd "Echo!" dann siehst du selber was er kann.
Bei diese nervigen Punk, Rap und was später kam jo ist nervig und hat für mich nichts mit Musik zu tun.

Was will man da bei diesen Bum, bum noch hören da geht es nur darum die Leute aufzuheizen (Adrenalisieren) um so mehr die Pumpe schlägt um so besser.
Ich brauch das nicht. :) und ist auch nicht meine Richtung.

gruss

[Codehunter]

Du vermischt Musikgeschmack mit dem technischen Problem "Loudness War".

[Luckie]

Kommt doch bitte wieder zum Thema zurück.

[EWeiss]

Zitat:

Du vermischt Musikgeschmack mit dem technischen Problem "Loudness War".

Ich weis was du meinst deshalb sagte ich ja auf das Bum, bum.. bei dem man keinerlei vernünftige Frequenzen mehr feststellen kann.
Nebenbei hier noch ein paar Shots in Verbindung mit eingebundenen Sonique Plugins.

Ist zwar jetzt mein neues Projekt aber egal..

gruss