Blending two images

[Petr]

Code: (Select All)

Screen _NewImage(800, 600, 32)

image& = _LoadImage("1.png", 32)
W = _Width(image&): H = _Height(image&)

newimage& = _NewImage(W - 1, H - 1, 32)

_PutImage (W \ 2, 0)-(W, H), image&, newimage&, (W \ 2, 0)-(W, H) 'right half
_PutImage (0, 0)-(W \ 2, H), image&, newimage&, (W, 0)-(W \ 2, H) 'left half

_PutImage (100, 100), newimage& 'place done image

PutImage is enought for this use.