Pixelweise Bildbearbeitung - Versionsgeschichte

Mathias: /* Zugriff durch Canvas.Pixels */

2018-07-15T18:09:29Z

‎Zugriff durch Canvas.Pixels

DGLBot: Der Ausdruck ''(.*?)'' wurde ersetzt mit ''$1''.

2009-03-10T18:07:15Z

Der Ausdruck ''<pascal>(.*?)</pascal>'' wurde ersetzt mit ''<source lang="pascal">$1</source>''.

Lord Horazont: Code verschönert, Pascal-Tags eingefügt, Sharpen-Funktion wegen fehlendem Code entfernt

2008-01-30T19:18:48Z

Code verschönert, Pascal-Tags eingefügt, Sharpen-Funktion wegen fehlendem Code entfernt

Änderungen zeigen

The-Winner am 17. Juli 2007 um 14:31 Uhr

2007-07-17T14:31:49Z

The-Winner: /* Zugriff durch Canvas.Pixels */

2007-07-17T14:13:46Z

‎Zugriff durch Canvas.Pixels

The-Winner am 17. Juli 2007 um 14:11 Uhr

2007-07-17T14:11:30Z

The-Winner am 17. Juli 2007 um 14:07 Uhr

2007-07-17T14:07:51Z

The-Winner am 17. Juli 2007 um 13:56 Uhr

2007-07-17T13:56:33Z

The-Winner am 17. Juli 2007 um 13:48 Uhr

2007-07-17T13:48:13Z

The-Winner: Die Seite wurde neu angelegt: == Zugriff durch Canvas.Pixels == Vorteile: * Sehr einfach anzuwenden * Funktioniert für alle Farbtiefen/Pixelformate * Geringes risiko falsche Bereiche zu überschrei...

2007-07-17T13:33:22Z

Die Seite wurde neu angelegt: == Zugriff durch Canvas.Pixels == Vorteile: * Sehr einfach anzuwenden * Funktioniert für alle Farbtiefen/Pixelformate * Geringes risiko falsche Bereiche zu überschrei...

Neue Seite

== Zugriff durch Canvas.Pixels ==
Vorteile:
* Sehr einfach anzuwenden
* Funktioniert für alle Farbtiefen/Pixelformate
* Geringes risiko falsche Bereiche zu überschreiben
Nachteile:
* Sehr langsam

Beispiel:
procedure Invert(bmp:TBitmap);
var x,y:integer;
begin
for y:=0 to bmp.height-1 do
for x:=0 to bmp.width-1 do
bmp.canvas.pixels[x,y]:=bmp.canvas.pixels[x,y]xor $FFFFFF;
end;

== Zugriff mittels scanline ==
Vorteile:
* Sehr schnell
Nachteile:
* Bei komplexeren Manipulationen umständlich
* Kein zugriff über x,y koordinate
* Hohes Risiko falsche Bereiche zu überschreiben
* Für 24BPP ungünstig, da es keinen 3byte großen primitiven typ gibt.

Beispiel:
procedure Invert(bmp:TBitmap);
Type TPixel=packed record B,G,R:byte;
var p:^TPixel;
x,y:integer;
begin
if bmp.pixelformat<>pf24bit then raise exception.create('Pixelformat not supported');
for y:=0 to bmp.height-1 do
begin
p:=bmp.scanline[y];
for x:=0 to bmp.width-1 do
begin
p.r:=p.r xor $FF;
p.g:=p.g xor $FF;
p.b:=p.b xor $FF;
inc(p);//3 Byte weiter
end;
end;
end;

@@ Zeile 3: / Zeile 3: @@
 * Sehr einfach anzuwenden
 * Funktioniert für alle Farbtiefen/Pixelformate
-* Geringes risiko falsche Bereiche zu überschreiben
+* Geringes Risiko falsche Bereiche zu überschreiben
 Nachteile:
 * Sehr langsam
-begin
+* Alpha-Kanal wird nicht berücksichtigt
 Man greift über die Pixels Eigenschaft des Canvas auf die Pixeldaten des Bitmaps zu. Dabei wird der Farbe des Pixels automatisch von/zu TColor konvertiert. Diese Methode ist jedoch extrem langsam, und daher höchstens zum ändern einzelner Pixel, jedoch nicht für ein ganzes Bild geeignet.
@@ Zeile 12: / Zeile 12: @@
 Beispiel:
 <source lang="pascal">
-procedure Invert(Bmp:TBitmap);
+procedure Invert(Bmp: TBitmap);
 var
-   x,y:Integer;
+   x, y: Integer;
 begin
-   for y := 0 to Bmp.Height-1 do
+   for y := 0 to Bmp.Height - 1 do
-     for x := 0 to Bmp.Width-1 do
+     for x := 0 to Bmp.Width - 1 do
-       Bmp.Canvas.Pixels[x,y] := Bmp.Canvas.Pixels[x,y] xor $FFFFFF;
+       Bmp.Canvas.Pixels[x, y] := Bmp.Canvas.Pixels[x, y] xor $FFFFFF;
 end;
 </source>

@@ Zeile 6: / Zeile 6: @@
 Nachteile:
 * Sehr langsam
+begin
 Man greift über die Pixels Eigenschaft des Canvas auf die Pixeldaten des Bitmaps zu. Dabei wird der Farbe des Pixels automatisch von/zu TColor konvertiert. Diese Methode ist jedoch extrem langsam, und daher höchstens zum ändern einzelner Pixel, jedoch nicht für ein ganzes Bild geeignet.
@@ Zeile 29: / Zeile 30: @@
 Beschreibung:
-Man holt sich mittels der scanline eigenschaft des Bitmaps einen direkten zeiger auf die zeilenanfänge. Mittels Zeigermanipulation bearbeitet man anschließend die Pixeldaten. Das ist natürlich sehr schnell, besonders für 8,16 und 32bit. Man kann jedoch nur schwer mittels koordinaten auf einzelne pixel zugreifen, man arbeitet die pixel üblicherweise in zeilen nacheinander ab. Es ist außerdem Vorsicht geboten, damit man nicht unabsichtlich über den Datenbereich hinaus liest/schreibt.
+Man holt sich mittels der scanline eigenschaft des Bitmaps einen direkten zeiger auf die zeilenanfänge. Mittels Zeigermanipulation bearbeitet man anschließend die Pixeldaten. Das ist natürlich sehr schnell, besonders für 8,16 und 32bit. Man kann jedoch nur schwer mittels koordinaten auf einzelne pixel zugreifen, man arbeitet die pixel üblicherweise in zeilen nacheinander ab. Es ist außerdem Vorsicht geboten, damit man nicht unabsichtlich über den Datenbereich hinaus liest/schreibt. Diese Methode spielt ihren Geschwindigkeitsvorteil(gegenüber der Arraymethode) vor allem dann aus, wenn man einfache Änderungen an Pixeldaten durchführt, die nicht von anderen Pixeln abhängen und die Pixel direkt in einen Integertyp geladen werden können.
 Beispiel:
@@ Zeile 46: / Zeile 47: @@
        p.g:=p.g xor $FF;
        p.b:=p.b xor $FF;
-       inc(p);//3 Byte weiter
+       inc(p);//1Pixel weiter
       end;
     end;
@@ Zeile 60: / Zeile 61: @@
 Beschreibung:
-Auch hier holt man sich wieder per scanline die Zeiger auf die Zeilenanfänge. Statt sie jedoch direkt zu verwenden schreibt man sie in ein dynamisches Array, dessen Größe auf die höhe des Bitmaps gesetzt wird. Dabei wird der untypisierte Pointer auf den Zeilenanfang in einen Zeiger auf ein array von Pixeln umgewandelt. Anschließend kann man mittels Pixels[y,x] auf die einzelnen Pixel zugreifen. Für andere Pixelformate muss muss TPixel anders definiert werden. Man sollte jedoch darauf achten nur koordinaten aus dem gültigen bereich zu übergeben.
+Auch hier holt man sich wieder per scanline die Zeiger auf die Zeilenanfänge. Statt sie jedoch direkt zu verwenden schreibt man sie in ein dynamisches Array, dessen Größe auf die höhe des Bitmaps gesetzt wird. Dabei wird der untypisierte Pointer auf den Zeilenanfang in einen Zeiger auf ein array von Pixeln umgewandelt. Anschließend kann man mittels Pixels[y,x] auf die einzelnen Pixel zugreifen. Für andere Pixelformate muss muss TPixel anders definiert werden. Man sollte jedoch darauf achten nur Koordinaten aus dem gültigen Bereich zu übergeben.
 Beispiel:
@@ Zeile 71: / Zeile 72: @@
       x,y:integer;
   begin
    //Pixels initialisieren
    setlength(Pixels,bmp.height);
@@ Zeile 89: / Zeile 91: @@
       x,y:integer;
   begin
    //Pixels initialisieren
    setlength(Pixels,bmp.height);
@@ Zeile 100: / Zeile 103: @@
       Pixels[y,x].g:=Pixels[y,x].r;
       Pixels[y,x].b:=Pixels[y,x].r;
      end;
   end;

@@ Zeile 58: / Zeile 58: @@
 Beschreibung:
 Auch hier holt man sich wieder per scanline die Zeiger auf die Zeilenanfänge. Statt sie jedoch direkt zu verwenden schreibt man sie in ein dynamisches Array, dessen Größe auf die höhe des Bitmaps gesetzt wird. Dabei wird der untypisierte Pointer auf den Zeilenanfang in einen Zeiger auf ein array von Pixeln umgewandelt. Anschließend kann man mittels Pixels[y,x] auf die einzelnen Pixel zugreifen. Für andere Pixelformate muss muss TPixel anders definiert werden. Man sollte jedoch darauf achten nur koordinaten aus dem gültigen bereich zu übergeben.
 Beispiel:

@@ Zeile 56: / Zeile 56: @@
 * Mittleres Risiko falsche Bereiche zu überschreiben
 * Man muss den code für jedes Pixelformat extra erstellen.
 Beispiel:
@@ Zeile 79: / Zeile 82: @@
      end;
   end;
-−
   procedure Grayscale(bmp:TBitmap);
   var Pixels:TPixels;

@@ Zeile 52: / Zeile 52: @@
 Vorteile:
 * Schnell
-* Flexibel (Uugriff über x,y-Koordinate)
+* Flexibel (Zugriff über x,y-Koordinate)
 Nachteile
 * Mittleres Risiko falsche Bereiche zu überschreiben
@@ Zeile 62: / Zeile 62: @@
        PPixelArray=^TPixelarray;
        TPixels=array of PPixelarray;
-  procedure invert(bmp:TBitmap);
+  procedure Invert(bmp:TBitmap);
-  var Pixels:
+  var Pixels:TPixels;

@@ Zeile 11: / Zeile 11: @@
 Beispiel:
-<pascal>
+<source lang="pascal">
 procedure Invert(Bmp:TBitmap);
 var
@@ Zeile 20: / Zeile 20: @@
        Bmp.Canvas.Pixels[x,y] := Bmp.Canvas.Pixels[x,y] xor $FFFFFF;
 end;
-</pascal>
+</source>
 == Zugriff mittels scanline ==
@@ Zeile 36: / Zeile 36: @@
 Beispiel:
-<pascal>
+<source lang="pascal">
 type
    TPixel = packed record
@@ Zeile 60: / Zeile 60: @@
    end;
 end;
-</pascal>
+</source>
 == Zugriff mittels dynamischer arrays ==
@@ Zeile 74: / Zeile 74: @@
 Beispiel:
-<pascal>
+<source lang="pascal">
   Type
    TPixel = packed record
@@ Zeile 124: / Zeile 124: @@
      end;
 end;
-</pascal>
+</source>

@@ Zeile 21: / Zeile 21: @@
 Nachteile:
 * Bei komplexeren Manipulationen umständlich
-* Kein zugriff über x,y koordinate
+* Kein zugriff über x,y -Koordinate
 * Hohes Risiko falsche Bereiche zu überschreiben
-* Für 24BPP ungünstig, da es keinen 3byte großen primitiven typ gibt.
+* Man muss den code für jedes Pixelformat extra erstellen.
 Beispiel:
   procedure Invert(bmp:TBitmap);
   var p:^TPixel;
       x,y:integer;
@@ Zeile 44: / Zeile 48: @@
     end;
   end;