ASCII-Konverter

[Flo.Hoe]

Dieses Programm wandelt jegliche schwarz-weiß-Bilddateien (270 x 270) in Zeichenketten um, sodass ein sogenanntes ASCII-Bild entsteht.

Ihr werdet sehen, dass es grobstruckturierte Bilder genauer verarbeitet.

Eigentlich ist diese Idee von mir gekommen und dann hab ich erfahren, dass es sowas schon gibt.

[CK_CK]

Hi!
Das Programm kann ja nur schwarz-weiß-Bitmaps bearbeiten... :stupid:

Du könntest ja z.B. mit dieser Routine:

Delphi-Quellcode:

type
  TRGBTripleArray = array[0..32768] of TRGBTriple;

procedure BlackWhiteImage(const Bitmap: TBitmap; const Toleranz: Integer);
var
  i,j: Integer;
  Reihe: ^TRGBTriple;
begin
  for i:= 0 to Bitmap.Height-1 do
  begin
    Reihe:= Bitmap.Scanline[i];
    for j:= 0 to Bitmap.Width-1 do
    begin
      if (Reihe^.rgbtred + Reihe^.rgbtBlue + Reihe^.rgbtgreen)div 3> Toleranz then
      begin
        Reihe^.rgbtred   := 255;
        Reihe^.rgbtBlue  := 255;
        Reihe^.rgbtgreen := 255;
      end
      else
      begin
        Reihe^.rgbtred   := 0;
        Reihe^.rgbtBlue  := 0;
        Reihe^.rgbtgreen := 0;
      end;
      inc(Reihe);
    end;
  end;
  bitmap.Assign(Bitmap);
end;

beliebige Bitmaps in schwarz-weiß konvertieren. Dann muss man das nicht immer vorher selbst machen ;)

Ansonsten: Schonmal nettes Programm :cyclops:

Viele Grüße,
Chris