-- Copyright 2002-2007.  Adobe Systems, Incorporated.  All rights reserved.
-- this script will rotate every non-text layer of the active document, then crop the image

tell application "Adobe Photoshop CS3"
	activate
	
	if ((count documents) < 1) then
		display dialog "Create a document with at least one non-text layer."
		return
	end if
	
	set docRef to current document
	set artLayerList to get every art layer of docRef
	set rotateAngle to 60
	
	repeat with layerRef in artLayerList
		
		set current layer of docRef to layerRef
		
		if not (kind of layerRef is text layer) then
			rotate layerRef angle rotateAngle
			set rotateAngle to rotateAngle + 60
		end if
		
	end repeat
	
	crop docRef bounds {0 as inches, 0 as inches, 3 as inches, 4 as inches}
	
end tell