Bitmap schärfen

[barese]

@ himitsu

Ich weiss nicht wie ich die Procedur anwenden soll.
Natürlich zwei Bitmaps das weiss ich, aber ich brauch eine Befehlszeile
für die Procedur, hast du da ne idee...[?]

[mkinzler]

Sharpen( Bitmap1, Bitmap2, alpha);

[Sir Rufo]

Zitat von barese:

@ himitsu

Ich weiss nicht wie ich die Procedur anwenden soll.
Natürlich zwei Bitmaps das weiss ich, aber ich brauch eine Befehlszeile
für die Procedur, hast du da ne idee...[?]

Delphi-Quellcode:

var
  sbm, tbm : TBimap;
begin
  sbm := TBitmap.Create;
  tbm := TBitmap.Create;
  // sbm jetzt mit dem Bitmap füllen

  // Schärfen
  Sharpen( sbm, tbm, 20 );
  // tbm dahin packen, wo benötigt

  // Instanzen freigeben
  sbm.Free;
  tbm.Free;
end;

[Luckie]

Delphi-Quellcode:

Bitmap1 := TBitmap.Create;
Bitmap2 := TBitmap.Create;
foo(Bitmap1, Bitmap2, 0.75);

[barese]

@ Sir Rufo..

..ach gott Alpha Single ist ein Integer. man bin ich bl..!

Danke !

[mkinzler]

Nein ein Single ist der kleinste Fliesskomma-Typ

[barese]

Ja ...

..mein fehler war das ich anstatt ein Integer eine String für den alpha single benutzt habe.

Man drei tage verzweiflung..!

[Sir Rufo]

Und das obwohl der Code von mir und Luckie einen Fehler beim Aufruf produzieren
Assert((alpha > 1) and (alpha < 6), 'Alpha must be >1 and <6');

[barese]

bei mir funktioniert es aber sobald ich auf Sharpen klicke, schärft er nicht sondern die Image wird weiss .

Komme nicht auf den Fehler.

[himitsu]

Schonmal mit anderen alpha-Werten probiert?
Und wie sieht das Originalbild aus?