-- EVILMANA.COM PSP LUA CODEBASE
-- www.evilmana.com/tutorials/codebase
-- Scale Image
-- SUBMITTED BY: bronxbomber92 (Edited by Charlie)

luaLogo = Image.load("lua.jpg")

function scaleImage(newX, newY, theImage) 

resizedImage = Image.createEmpty(newX, newY) 
for x = 1, newX do 
for y = 1, newY do 
resizedImage:blit(x,y , theImage,
math.floor(x*(theImage:width()/newX)),
math.floor(y*(theImage:height()/newY)),1,1) 
end 
end 
return resizedImage 

end

scaleImage(50,50, luaLogo) -- Resize image. 

while true do
screen:blit(100,10, luaLogo) -- Show the original image
screen:blit(100,110, resizedImage) -- Show the resized image

screen.flip()
screen.waitVblankStart()

end