Graphics 800,600,32,2

SetBuffer BackBuffer()


Const col_rect_r=255, col_rect_g=255, col_rect_b=255
Const col_folie_r=0, col_folie_g=0, col_folie_b=255



Text 10,10,\"Bitte Warten!!\"
Flip

Cls

Color col_rect_r, col_rect_g, col_rect_b
Rect 300,200,100,70,1
folieneffekt(col_folie_r,col_folie_g,col_folie_b)
Flip

WaitKey
End


Function folieneffekt(r,g,b)
	LockBuffer BackBuffer()
	For x=0 To 799
		For y=0 To 599
			
			rgb_old=ReadPixelFast(x,y)
			r_old = (rgb_old And $FF0000)/$10000
			g_old = (rgb_old And $FF00)/$100
			b_old = rgb_old And $FF
			
			r_new = (r + r_old) /2
			
			g_new = (g + g_old) /2
			b_new = (b + b_old) /2
			
			rgb_new = r_new*$10000 + g_new*$100 + b_new
			
			
			WritePixelFast x,y,rgb_new
			
		Next
	Next
	UnlockBuffer BackBuffer()
End Function