Funktion/Komponente gesucht S/W-Bilder mit Rasterung erzeugen kann

[Bummi]

Ich habe eine ältere Implementierung von shima etwas beschleunigt und vereinfacht...

[Bernhard Geyer]

Die Funktion Floyd_Steinberg muss noch besser die Grenzen abprüfen. Sonst kracht es am Ende des Bildes ...

Die Abfragen mit if x < BMP.Width - 1 then wurden ergänzt

Delphi-Quellcode:

      if x < BMP.Width - 1 then
        FastPixel(BMP, CArray, x + 1, y, ApplyError(FastPixel(BMP, CArray, x + 1, y), error, 7));

      if y < BMP.Height - 1 then
      begin
        if x > 0 then
          FastPixel(BMP, CArray, x - 1, y + 1, ApplyError(FastPixel(BMP, CArray, x - 1, y + 1), error, 3));

        FastPixel(BMP, CArray, x, y + 1, ApplyError(FastPixel(BMP, CArray, x, y + 1), error, 5));
        
        if x < BMP.Width - 1 then
          FastPixel(BMP, CArray, x + 1, y + 1, ApplyError(FastPixel(BMP, CArray, x + 1, y + 1), error, 1));
      end;

[Bummi]

@Bernhard Geyer

Im Anhang die berichtige Version ....

[nahpets]

Hallo,

wenn's auch was kosten darf, schau bitte mal hier: http://www.xequte.com/imageen/info/index.html.

Habe vor Jahren mal bei einem ehemaligen Arbeitgeber damit gearbeitet, wenn auch nur kleine Teilmengen genutzt. Scheint äußerst vielseitig zu sein und die heutige Featureliste ist größer, als die von damals.