Rescale Image

 

Compatibilities:

This item has not yet been rated

Rescales a bitmap cast member to a given max width or max height while preserving the original aspect ratio of the image. This means that normally one of the dimensions of the new bitmap will match one of the max dimensions while the other dimension will be equal to or smaller than the other max dimension. The new image replaces the original.

--rescale (member , max width, max height) --Rescales a bitmap cast member to a given max width or max height --while preserving the original aspect ratio of the image. --This means that normally one of the dimensions of the new --bitmap will match one of the max dimensions while the other --dimension will be equal to or smaller than the other max dimension. --The new image replaces the original. --membRef - member reference of original bitmap to rescale. --maxW - maximum width of the rescaled image. --maxH - maximum height of the rescaled image. on rescale membRef,maxW,maxH   wide=membRef.width   high=membRef.height   repeat while wide>maxW or high>maxH     if wide>maxW then       scaler=maxW/float(wide)       wide=wide*scaler       high=high*scaler       nI=image(wide,high,32)       nI.copyPixels(membRef.image,nI.rect,membRef.rect)       membRef.erase()       k=new(#bitmap,membRef)       k.image=nI     end if       wide=membRef.width     high=membRef.height     if high>maxH then       scaler=maxH/float(high)       wide=wide*scaler       high=high*scaler       nI=image(wide,high,32)       nI.copyPixels(membRef.image,nI.rect,membRef.rect)       membRef.erase()       k=new(#bitmap,membRef)       k.image=nI     end if     wide=membRef.width     high=membRef.height   end repeat end

Upload Provided by ABCUpload ASP