Code: Select all
;Load a picture X.
@BRUSH 1, "pictureX.jpg", {Loader="inbuilt"}
;The variable Image takes the valour of 1 for the picture.
;because with this routine you can tint other pictures, in the same psotion X and Y.
Global Image=1
;Copy the picture 1 to picture 2.
CopyBrush(Image, 2)
;Now the picture 2 is tint to blue.
TintBrush(2, #BLUE, 64)
;Now copy the picture 2 (tinted) to Image.
CopyBrush(2, Image)
;Show the picture 2 tinted.
DisplayBrush(Image, 0, 0)
;But the picture 1 not tinted, is showed tinted like picture 2.
DisplayBrush(1, 200, 0)
EscapeQuit(False)
Repeat
WaitEvent