Index

Package: Image_Filters

Description

package Image_Filters is

Subprograms & Entries

Fast_Blur

procedure Fast_Blur
( bmp: not null A_Bitmap;
x1, y1: Natural;
x2, y2: Natural;
passes: Positive := 1 );
Blurs horizontally only, with a kernel size of one. To increase the effect, increase the number of passes. Works only on memory bitmaps in Truecolor 16/32bpp modes. If the bitmap is not a memory bitmap then the blur will be skipped. Originally by Sik Adapted by Oog Adapted and optimized by Kevin Wellwood Retrieved from http://mb.srb2.org/showthread.php?t=17041 on 11/17/2010

Klingemann_Fast_Blur

procedure Klingemann_Fast_Blur
( bmp: not null A_Bitmap;
radius: Positive;
passes: Positive );
Super Fast Blur v1.1 by Mario Klingemann <http://incubator.quasimondo.com> Tip: Increasing the passes of this filter with a small radius will approximate a gaussian blur quite well.

Klingemann_Stack_Blur

procedure Klingemann_Stack_Blur
( bmp: not null A_Bitmap;
radius: Positive;
passes: Positive );
Stack Blur v1.0 Author: Mario Klingemann <mario@quasimondo.com> http://incubator.quasimondo.com created Feburary 29, 2004 This is a compromise between Gaussian Blur and Box blur It creates much better looking blurs than Box Blur, but is 7x faster than my Gaussian Blur implementation. I called it Stack Blur because this describes best how this filter works internally: it creates a kind of moving stack of colors whilst scanning through the image. Thereby it just has to add one new block of color to the right side of the stack and remove the leftmost color. The remaining colors on the topmost layer of the stack are either added on or reduced by one, depending on if they are on the right or on the left side of the stack.