Pixelparty - oder das irre Projekt *seufz*

[ichbins]

Du müsstest die RGB-Werte extrahieren und dann vergleichen ob der Unterschied zum vorherigen Wert höher als beispielsweise 64 ist. Wenn ja, inkrementierst du einen Zähler.

Wenn sich der Farbton dann bei mehr als beispielsweise 1024 Pixeln gleichzeitig verändert hat, schlägst du Alarm. Diese Berechnungsmethode benötigt allerdings seeeeeeeeeeeeeeehr viel Zeit.

Deshalb habe ich hier eine Funktion geschrieben (ursprünglich sollte sie entscheiden ob ein Bitmap nun schwarzweiss ist), die nur ein Gitter von 100 Probepixeln vergleicht:

Delphi-Quellcode:

function pos(i:integer):integer;
begin
  if i<0 then result:=-i else result:=i;
end;

function changed(old,new:tbitmap):boolean;
var
  i,j,counter,rold,gold,bold,rnew,gnew,bnew:integer;
  pixold,pixnew:tcolor;
begin
  counter:=0;
  for i:=1 to 10 do
    for j:=1 to 10 do
    begin
      pixold:=old.Canvas.Pixels[((old.Width*i) div 10)-(old.Width div 20),((old.Height*j) div 10)-(old.Height div 20)];
      pixnew:=new.Canvas.Pixels[((new.Width*i) div 10)-(new.Width div 20),((new.Height*j) div 10)-(new.Height div 20)];
      bold:=(pixold shr 16) and $FF;
      gold:=(pixold shr 8) and $FF;
      rold:=(pixold and $FF);
      bnew:=(pixnew shr 16) and $FF;
      gnew:=(pixnew shr 8) and $FF;
      rnew:=(pixnew and $FF);
      if pos(bold-bnew)+pos(gold-gnew)+pos(rold-rnew)>=64*3 then
        inc(counter);
    end;
  if counter>10 then
    ALARMSCHLAGEN, da sich die Farbe von 10% der Pixel des Bildes um mehr als 1/4 geändert hat.
end;