Ticket Options

Question Details

TICKET ARCHIVE -> Reducing Size of Photos

macduga - Jul 17, 2005 - 10:03 pm

The photos I send are huge, how do I reduce them? Please!

Thank you

bobw - Jul 18, 2005 - 10:54 am

Hi Sean

I use an Applescript to resize pics for web/email.

Copy this script and past in the Applescript Editor in your Applications folder. Then Save as an Application. You can put it anywhere on your drive. Give it a name like ResizePics.
Once saved on your drive, you could drag it to your Dock for easy access.
Then just drag a pic or any number of pics to the icon to resize;

======================================================

-- save in Script Editor as Application
-- drag files to its icon in Finder

on open some_items
repeat with this_item in some_items
try
rescale_and_save(this_item)
end try
end repeat
end open


to rescale_and_save(this_item)
tell application "Image Events"
launch
set the target_width to 480
-- open the image file
set this_image to open this_item

set typ to this_image's file type

copy dimensions of this_image to {current_width, current_height}
if current_width is greater than current_height then
scale this_image to size target_width
else
-- figure out new height
-- y2 = (y1 * x2) / x1
set the new_height to (current_height * target_width) / current_width
scale this_image to size new_height
end if

tell application "Finder" to set new_item to ¬
(container of this_item as string) & "scaled." & (name of this_item)
save this_image in new_item as typ

end tell
end rescale_and_save

=====================================================

--------

Bobw - Macosx.com Tech Support

macduga - Jul 18, 2005 - 12:19 pm

Bob, thank you for your reply. I'm going to try what you said. Thanks again,

Sean