Forum: Library: Grafik / Sound / Multimedia
Delphi
by Phantom1,
4. Dez 2003
Hi
hab meinen code nochmal überarbeitet und ist jetzt wesentlich schneller geworden, vorallem bei großen radien (um das 20-fache etwa)!!!!! :spin: :spin: :spin:
procedure BmpGBlur(Bmp: TBitmap; radius: Single);
Type
TRGB = Packed Record b, g, r: Byte End;
TRGBs = Packed Record b, g, r: Single End;
TRGBArray = Array of TRGB;
Forum: Library: Grafik / Sound / Multimedia
Delphi
by Phantom1,
3. Dez 2003
Hi,
erstmal muss ich sagen das du den code wirklich gut optimiert hast, allerdings ist das ganze etwas unflexibel und die matrix muss man leider immer von hand eingeben. Da ich vor einigen monaten eine ähnliche prozedure geschrieben habe, möchte ich dir diese nicht vorenthalten, vieleicht kannst du sie ja gebrauchen ;O)
Die Procedure arbeit ähnlich wie GaussianBlur, man kann sie aber auch...