For Local x:Int = 0 Until mask.width
		For Local y:Int = 0 Until mask.height

			Local OldRGB:Int = ReadPixel(source, x, y)
			Local OldA:Int = (oldrgb Shr 24)
      		Local OldR:Int = (OldRGB And $FF0000) / $10000
       		Local OldG:Int = (OldRGB And $FF00) / $100
       		Local OldB:Int = (OldRGB And $FF)

      	
			argb = ReadPixel(mask, x, y)
			a = (argb Shr 24)
       		r = (argb And $FF0000) / $10000
       		g = (argb And $FF00) / $100
       		b = (argb And $FF)
       		If r < 0 Then r = 0
       		If g < 0 Then g = 0
       		If b < 0 Then b = 0
			
			r = r / (x + 1)
			g = g / (x + 1)
			b = b / (x + 1)
			
   
      		
      		r = (r + OldR) / 2
			If r > 255 Then r = 255
       		g = (g + OldG) / 2
			If g > 255 Then g = 255
       		b = (b + OldB) / 2
			If b > 255 Then b = 255
			a = OldA
			If a > 225 Then a = 225
 

       		Local col:Int = (a Shl 24) | (r Shl 16) | (g Shl 8) | b

			
			If x <= 15 Then
       			WritePixel(d, x, y, col)
			Else
 				WritePixel(d, x, y, OldRGB)
			EndIf
		Next
	Next