Hi William,

I used this to adjust images to the card size:

function rescale theImgWidth,theImgHeight,theCdWidth,theCdHeight
  if theCdWidth/theImgWidth < theCdHeight/theImgHeight then
    put theCdWidth / theImgWidth into myRatio
  else
    put theCdHeight / theImgHeight into myRatio
  end if
  put theImgWidth * myRatio into myNewWidth
  put theImgHeight * myRatio into myNewHeight
  return myNewWidth,myNewHeight
end rescale

The parameters theImgWidth and theImgHeight are the formattedWidth and formattedHeight of your image object and theCdWidth and theCdHeight are the width and height of the destination area. The function returns the new width and height for your image object.

I didn't think it is that cold here. It is almost 20 degrees warmer than some time ago. Btw maybe you should have asked in the Dutch forum... ;-)

--
Best regards,

Mark Schonewille

Economy-x-Talk Consulting and Software Engineering
http://economy-x-talk.com
http://www.salery.biz
Dutch forum: http://runrev.info/rrforum

We are always looking for new projects! Feel free to contact us to discuss your custom software project!

On 28 jan 2009, at 11:07, William de Smet wrote:

Hi there,
I am trying to import images and put them into their own 'dummyimage' based
upon their width and height.
The 'dummyimages' are called Photo and Photo2.
It doesn't work!
Can someone help me with this one?

*on* mouseUp

  *put* empty into img "Photo"

 *put* empty into img "Photo2"

 *answer* file "Choose a photo:"

 *if* it = empty

 *then* *exit* mouseUp

 *put* url ("binfile:" & it) into tPhoto

 *put* the width of the last image into tWidth

 *put* the height of the last image into tHeight

 *if* tWidth <= tHeight

 *then* *put* tPhoto into img "Photo2"

 *if* tWidth >= tHeight

 *then* *put* tPhoto into img "Photo"
*end* mouseUp

Thanks!

Greetings,

William (from a very cold Holland)


_______________________________________________
use-revolution mailing list
[email protected]
Please visit this url to subscribe, unsubscribe and manage your subscription 
preferences:
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to