SetBuffer BackBuffer()

Img = LoadImage("Test.bmp")
Width = ImageWidth(Img)
Height = ImageHeight(Img)
Const Factor = 2

Graphics Width * 1.2, Height * 2.1, 0, 3

Img = LoadImage("Test.bmp")
DrawImage Img, 0, 0
Flip

For x = 1 To Width
  AppTitle x + "/" + Width
  For y = 1 To Height
    col1 = 0
    col2 = 0
    col3 = 0
    For xx = x - Factor To x + Factor
      For yy = y - Factor To y + Factor
        GetColor xx, yy
        col1 = col1 + ColorRed()
        col2 = col2 + ColorGreen()
        col3 = col3 + ColorBlue()
      Next
    Next
    div = ((Factor * 2) + 1) ^ 2
    col1 = col1 / div
    col2 = col2 / div
    col3 = col3 / div
    WritePixel x, y + Height + 5, col1 * $10000 + col2 * $100 + col3
  Next
Next
Flip
SaveBuffer(BackBuffer(), "Unscharf.bmp")
WaitKey()
End