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
_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)
RGBQuad := BitmapData.Scan0;

von daher können wir uns den Scan0 auf jede Zeile sparen.
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.
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

gruss