02-28-2023, 03:59 PM
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.