on open some_items

tell me to activate

display dialog “Längste Seite” default answer “1024″

set mh to (text returned of the result) as integer

repeat with this_item in some_items

rescale_and_save(this_item, mh)

end repeat

end open

to rescale_and_save(this_item, max_length)

set this_item to quoted form of (POSIX path of this_item)

set scaled_dir_path to (do shell script “dirname ” & this_item) & “/_scaled/”

do shell script “mkdir -p ‘” & scaled_dir_path & “‘;sips -Z ” & max_length & ” ” & this_item & ” –out ‘” & scaled_dir_path & quoted form of (do shell script “basename ” & this_item) & “‘”

end rescale_and_save

– hubionmac.com 2009-09-27

– convertes selected images in iPhoto 

–  (format PNG,TIFF,JPEG),

–  resizes them (place 0 as new width to get orig. size)

– imports them into iphoto

– copies info like date, name, rating to new converted version

– tested with Mac OS 10.6 and iPhoto 8.1

tell application “iPhoto”

–Get selected images

set myPhotos to selection

–init some lists

set newfiles to {}

set newfiles_record to {}

–make a new album for the converted images

set myAlbum to my set_Album((do shell script “date ‘+Converted at %Y-%m-%d %H:%M:%S’”))

–Loop through each image

repeat with p in myPhotos

–make a unique string, so images are not overwritten

set current_time_md5 to “hubionmac_iphoto_temp_” & (do shell script “date | md5″)

– now this is 2 in 1 line

– first it converts the current image 

–second it stores the converted image’s path in a list

set newfiles to newfiles & {(my convert_image((POSIX file (image path of p)) as alias, (POSIX file (“/tmp/”) & current_time_md5) as string, 1024, “JPEG”))}

–this is an info record so later on the converted image gets the same informations (name, date, rating, etc)

set newfiles_record to newfiles_record & {{new_name:current_time_md5, l:(latitude of p), ll:(longitude of p), myComment:(comment of p), myName:(name of p), myTitle:(title of p), myRating:(rating of p), mydate:(date of p)}}

–label the orig_image, by adding _was_converted to the image’s name

if name of p does not end with “_was_converted” then

set name of p to name of p & “_was_converted”

end if

end repeat

– import all converted images into iphoto in a new album

import from newfiles to album

– do-nothing-loop until iPhoto imported all images….

repeat until (importing) is false

delay 5

end repeat

– copy infos like name, date, rating to the corresponding “new” image….

my post_process(newfiles_record, myAlbum)

end tell

on post_process(newfiles_record, myAlbum)

repeat with r in newfiles_record

tell application “iPhoto”

set a to photo ((new_name of r) as text) of album myAlbum

set latitude of a to (l of r)

set longitude of a to (ll of r)

set comment of a to (myComment of r)

set name of a to (myName of r) & “_converted”

set title of a to (myTitle of r)

set rating of a to (myRating of r)

set date of a to (mydate of r)

end tell

end repeat

do shell script “rm /tmp/hubionmac_iphoto_temp_*”

end post_process

on convert_image(image_file, target_path, target_width, target_format)

tell application “Image Events”

launch

– open the image file

set this_image to open image_file

if target_width > 0 then

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

set new_height to (target_width * current_width) / current_height

scale this_image to size new_height

end if

end if

if target_format = “PNG” then

set target_path to target_path & “.” & target_format

save this_image in target_path as PNG

else if target_format = “JPEG” then

set target_path to target_path & “.” & target_format

save this_image in target_path as JPEG

else if target_format = “JPEG2″ then

set target_path to target_path & “.JPEG”

save this_image in target_path as JPEG2

else if target_format = “TIFF” then

set target_path to target_path & “.” & target_format

save this_image in target_path as TIFF

end if

end tell

return target_path as alias

end convert_image

on set_Album(albumname)

tell application “iPhoto”

if album albumname exists then

return albumname

else

new album name albumname

return albumname

end if

end tell

end set_Album

set web_url to quoted form of “http://hubionmac.com/wordpress/”

do shell script “curl ” & web_url & ” | textutil -stdin -convert txt -format html -stdout”