Bild in Graustufen umwandeln

[bernhard_LA]

kleine Ergänzung

obige beiträge zielen immer auf DELPHI + VCL Framework ab
es gibt aber noch die Option DELPHI + FMX Framework ,

Ein Demo Projekt um Schwarz- Weiss Bilder zu erzeugen gibt es hier : https://github.com/ImageProcessingFMX/SimpleDemo
Der Code funktioniert dann auch unter LINUX etc.

[EWeiss]

Zitat:

Schwarz- Weiss Bilder

Was denn "Schwarz- Weiss" oder Graustufen? zumindest sind es 256 werte nicht nur 2 ($FFFFFF + $F000000)

Und GetPixel\SetPixel? Kein Ahnung wie schnell das unter LINUX\FMX ist jedenfalls unter Windows um einiges lahmer.
Das sollte auch unter Linux laufen oder kennt Linux kein ASM sollte mich doch schwer wundern.

Delphi-Quellcode:

function TSkinEngine.Rgb2Gray(RGBValue: COLORREF): COLORREF; stdcall;
asm
  movzx   edx, al
  imul    edx, 19595  //Red
  movzx   ecx, ah
  imul    ecx, 38470  //Greean
  shr     eax, 16
  imul    eax, 7471   //Blue
  add     eax, ecx
  add     eax, edx
  shr     eax, 16
  mov     ah, al
  shl     eax, 8
  mov     al, ah
end;

und FMX.

grusss