Dim tile(1)
Dim tile_hell(1)

tile(0)= LoadImage("tile1.jpg")
tile(1)= LoadImage("tile2.jpg")

For i= 0 To 1
	tile_hell(i)= CopyImage (tile(i))
	buff= ImageBuffer (tile_hell(i))
	LockBuffer buff
	
	For x= 0 To tilex-1
		
		For y= 0 To tiley-1
			col= ReadPixelFast (x,y,buff)
			
			r=Color2R(col)+50 : If r>255 Then r=255
			g=Color2G(col)+50 : If g>255 Then g=255
			b=Color2B(col)+50 : If b>255 Then b=255
			
			col= RGB2Color (r,g,b)
			
			WritePixelFast x,y,col,buff
		Next
	Next
	
	UnlockBuffer buff
Next

; Auszug aus meiner "color.lib.bb"
Function RGB2Color (rd,gr,bl)
	Return bl Or (gr Shl 8) Or (rd Shl 16)
End Function
Function Color2R (col)
	Return (col And $FF0000)/$10000
End Function
Function Color2G (col)
	Return (col And $FF00)/$100
End Function
Function Color2B (col)
	Return col And $FF
End Function