Ticket Options
Question Details
TICKET ARCHIVE -> reducing jpeg files
paulhunwick - Mar 30, 2006 - 12:50 pm
I have a jpeg file that is approx 600kb and I'd like to reduce to below 200kb. I'm sure there's a simple way to do this. I just don't know what it is! Help please
bobw - Mar 30, 2006 - 1:06 pm
Hi Paul
I use an Applescript for this. I named it ResizePic, keep it in my Utilities folder and then drag to Dock. When in the Dock, just drop a pic, or a hundred pics on it to reduce. I have the setting for 480, it does the rest. Here's the script;
-- 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
http://www.macosx.com
I use an Applescript for this. I named it ResizePic, keep it in my Utilities folder and then drag to Dock. When in the Dock, just drop a pic, or a hundred pics on it to reduce. I have the setting for 480, it does the rest. Here's the script;
-- 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
http://www.macosx.com
paulhunwick - Mar 30, 2006 - 1:24 pm
oh dear :-( Thank you for such a prompt response but I should have pointed out I have only a pedestrian knowledge of computers. Promise not to laugh but I'm not even sure what an Applescript is.
bobw - Mar 30, 2006 - 1:38 pm
Paul
Ok.
Open your applications folder. You'' see the AppleScript Folder in there. Inside that folder you'll see AppleScript Editor. Open that.
Then copy/paste the scrip above into the window for the Editor.
Then use the Save Command as an Application to what ever location on your drive you want to keep it in. Once saved, open that folder where it is, and drag it to the Dock. It will create an alias in the Dock. You can just drop pics on the icon and they'll be resized automatically.
bobw
http://www.macosx.com
Ok.
Open your applications folder. You'' see the AppleScript Folder in there. Inside that folder you'll see AppleScript Editor. Open that.
Then copy/paste the scrip above into the window for the Editor.
Then use the Save Command as an Application to what ever location on your drive you want to keep it in. Once saved, open that folder where it is, and drag it to the Dock. It will create an alias in the Dock. You can just drop pics on the icon and they'll be resized automatically.
bobw
http://www.macosx.com
paulhunwick - Mar 30, 2006 - 1:51 pm
Have tried but just get a pop up saying: Open Dictionary. Unable to read the dictionary of the application or extension becuase it is not scriptable.
Am I getting in a bit over my head, me thinks.
Am I getting in a bit over my head, me thinks.
bobw - Mar 30, 2006 - 2:04 pm
paulhunwick - Mar 30, 2006 - 3:55 pm
bobw - Mar 30, 2006 - 4:00 pm
Paul
I've emailed the file to you.
bobw
I've emailed the file to you.
bobw
paulhunwick - Mar 30, 2006 - 4:08 pm
And it's now in my dock, working perfectly. You are a Mac angel. My sincerest thanks, Paul
IF THIS IS YOUR QUESTION AND YOU WISH TO RESPOND, LOGIN HERE FIRST.
