Kỹ thuật làm mờ hình (blur) với GDI + System.Drawing (.NET)

Kỹ thuật làm mờ hình (blur) với GDI + System.Drawing (.NET)
Đây là một kỹ thuật được thực hiện hết sức dễ dàng trên Web, bằng sức mạnh của .NET. Chúng ta sử
dụng một thuật toán hết sức đơn giản, giá trị của mỗi pixel bằng giá trị trung bình của các pixel ở trên,
trái, phải của nó.
blur.aspx
<%@ Page Language=''vb'' %>
<%@ import namespace=''system.drawing'' %>
<%@ import namespace=''system.drawing.imaging'' %>
<%@ import namespace=''system.drawing.drawing2d'' %>
<%
dim b as New system.drawing.bitmap(server.mappath(''example1.jpg''))

dim x,y,cnt
dim addR, addB, addG as integer
dim incAmount = Request.QueryString(''increase'')
addR = 0
addG = 0
addB = 0


for y = 3 to b.height-3
for x = 3 to b.width-3
addR = b.GetPixel(x,y-1).r
addR += b.GetPixel(x,y+1).r
addR += b.GetPixel(x,y).r
addR += b.GetPixel(x+1,y).r
addR += b.GetPixel(x-1,y).r
addR = addR / 5
addG = b.GetPixel(x,y-1).g
addG += b.GetPixel(x,y+1).g
addG += b.GetPixel(x,y).g

addG += b.GetPixel(x+1,y).g
addG += b.GetPixel(x-1,y).g
addG = addG / 5
addB = b.GetPixel(x,y-1).b
addB += b.GetPixel(x,y+1).b
addB += b.GetPixel(x,y).b
addB += b.GetPixel(x+1,y).b
addB += b.GetPixel(x-1,y).b
addB = addB / 5
b.SetPixel(x,y,color.fromARGB(addR,addG,addB))
addR = 0
addG = 0
addB = 0
next
next

response.contenttype=''image/jpeg''
b.save(response.outputstream, imageformat.jpeg)
b.dispose()

%>