[87coupe]

Originally Posted by dmoolenaar

I recently defected to Mac, well for home use, and I'm still scratching my head on a couple items.

Granted I'm not using a Mac keyboard but I can't get the ALT-Select to work. I'll have to google it.

iPhoto. Supposedly the *intuitive* picture tool. Hummm. I have all pictures organized into folders by type (family pictures, cars, work, etc...) and then deeper by date or event on the hard drive. So...I import the directory and get a Library organized by event and photos thats completely haphazard. Now I have car pictures and kids pictures mixed under a 2005 October event...??? WTF? I spend 2 hours (4K pictures) manually putting stuff into iPhoto albums. My next issue is getting pictures ready for internet posting. In Windows XP I had a nifty right click "Resize pictures" tweak UI tool installed. Made resizing single/multiple 5 MP pictures a one step process. How is this done in iPhoto?

Admittedly I like the cover flow option for browsing pictures. I'm sure this is mostly a *drink more coolaid* sort of situation but for someone reasonably comfortable with modern technology this Mac stuff is not all the intuitive.

Open Script Editor and paste this code in

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 1280
		-- 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

Save as -> select File format "application"

Now when you drag a image on this icon it will resize the width of the image to 1280 and maintain original proportions. The file will be named scaled.inputfilename. You can make one for a different size by changing "1280" to something else.

Cheers,