(* Copyright © 2007 Apple Inc. All Rights Reserved. |
Disclaimer: IMPORTANT: This Apple software is supplied to you by |
Apple Inc. ("Apple") in consideration of your agreement to the |
following terms, and your use, installation, modification or |
redistribution of this Apple software constitutes acceptance of these |
terms. If you do not agree with these terms, please do not use, |
install, modify or redistribute this Apple software. |
In consideration of your agreement to abide by the following terms, and |
subject to these terms, Apple grants you a personal, non-exclusive |
license, under Apple's copyrights in this original Apple software (the |
"Apple Software"), to use, reproduce, modify and redistribute the Apple |
Software, with or without modifications, in source and/or binary forms; |
provided that if you redistribute the Apple Software in its entirety and |
without modifications, you must retain this notice and the following |
text and disclaimers in all such redistributions of the Apple Software. |
Neither the name, trademarks, service marks or logos of Apple Inc. |
may be used to endorse or promote products derived from the Apple |
Software without specific prior written permission from Apple. Except |
as expressly stated in this notice, no other rights or licenses, express |
or implied, are granted by Apple herein, including but not limited to |
any patent rights that may be infringed by your derivative works or by |
other works in which the Apple Software may be incorporated. |
The Apple Software is provided by Apple on an "AS IS" basis. APPLE |
MAKES NO WARRANTIES, EXPRESS OR IMPLIED, INCLUDING WITHOUT LIMITATION |
THE IMPLIED WARRANTIES OF NON-INFRINGEMENT, MERCHANTABILITY AND FITNESS |
FOR A PARTICULAR PURPOSE, REGARDING THE APPLE SOFTWARE OR ITS USE AND |
OPERATION ALONE OR IN COMBINATION WITH YOUR PRODUCTS. |
IN NO EVENT SHALL APPLE BE LIABLE FOR ANY SPECIAL, INDIRECT, INCIDENTAL |
OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF |
SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS |
INTERRUPTION) ARISING IN ANY WAY OUT OF THE USE, REPRODUCTION, |
MODIFICATION AND/OR DISTRIBUTION OF THE APPLE SOFTWARE, HOWEVER CAUSED |
AND WHETHER UNDER THEORY OF CONTRACT, TORT (INCLUDING NEGLIGENCE), |
STRICT LIABILITY OR OTHERWISE, EVEN IF APPLE HAS BEEN ADVISED OF THE |
POSSIBILITY OF SUCH DAMAGE. |
*) |
on run {input, parameters} |
set method_indicator to (|conversionMethod| of the parameters) as integer |
(* PROCESS IMAGE FILES *) |
set input to input as list |
repeat with i from 1 to the count of input |
set this_file to item i of input |
-- PROCESSING STATEMENTS GO HERE |
if method_indicator is 0 then |
pad_image(this_file) |
else |
crop_image(this_file) |
end if |
end repeat |
return input |
end run |
on pad_image(this_file) |
-- indicate the proportions for the pad area |
set H_proportion to 16 |
set V_proportion to 9 |
try |
tell application "Image Events" |
-- start the Image Events application |
launch |
-- open the image file |
set this_image to open this_file |
-- get dimensions of the image |
copy dimensions of this_image to {W, H} |
-- calculate pad dimensions |
if H_proportion is greater than V_proportion then |
set the new_W to (H * H_proportion) / V_proportion |
set pad_dimensions to {new_W, H} |
else |
set the new_H to (W * V_proportion) / H_proportion |
set pad_dimensions to {W, new_H} |
end if |
-- perform action |
pad this_image to dimensions pad_dimensions |
-- save the changes |
save this_image with icon |
-- purge the open image data |
close this_image |
end tell |
on error error_message |
display dialog error_message |
end try |
end pad_image |
on crop_image(this_file) |
try |
tell application "Image Events" |
-- start the Image Events application |
launch |
-- open the image file |
set this_image to open this_file |
-- get dimensions of the image |
copy dimensions of this_image to {W, H} |
-- determine the letterbox area |
set crop_W to W |
-- calcluate the 16:9 proportions |
set crop_H to (W * 9) / 16 |
-- perform action |
crop this_image to dimensions {crop_W, crop_H} |
-- save the changes |
save this_image with icon |
-- purge the open image data |
close this_image |
end tell |
on error error_message |
display dialog error_message |
end try |
end crop_image |
Last updated: 2007-06-12