AppleScriptで写真の向きを直してみました

ウチはデジタルカメラやスマートフォンで撮影した写真をMacに転送して撮影日毎に整理しています。カメラの種類によっては撮影した際のカメラの向き通りにMac上で表示できない場合がある事が分かりました。

例えばこんな感じ。

今までもこの事に気がついていたにも関わらず放置していたのですが、iPhone 7 Plusで過去の旅行の写真を知り合いに見せようとしたら逆さまで不便だったので解決してみる事にしました。

１枚ずつ確認して回転しても良いのですが母数となる写真の数が約４万枚なので手作業で確認しながら回転させるのはあまりに非効率です。そこで、AppleScriptを使って選択したフォルダ（サブフォルダを含む）に含まれている写真全てに対して撮影時の向きを確認して画像をその向きに回転する様にしてみました。

EXIFデータにはカメラが撮影時の向きを記録しており（対応している機種の場合）、ExifToolというフローアプリケーションを用いてそれを読み出す事ができます。

exiftool -Orientation -n <ファイル名>

とする事で向きに応じて１桁の数字が返ってきます。殆どの場合で以下４つの数字が返送されると思いますが、それぞれに以下の向きを意味しています。

• 1 = Horizontal (normal)
• 8 = Rotate 270 CW
• 6 = Rotate 90 CW
• 3 = Rotate 180

AppleScriptでこれを判断して対象の写真を回転、保存する作業を自動化すれば約４万の写真から向きの正しくないものを自動修正できそうです。ということで作ってみたスクリプトが以下の通りです。スクリプト初心者なのでより効率良い方法があるのかもしれませんが、これでひとまず全て正しい向きで表示される様になりました。

	tell application "Finder" to set someFolder to (choose folder with multiple selections allowed)
	set fileList to {}
	repeat with thePath in someFolder
	set theFile to my DiveFolder(thePath as alias, fileList)
	end repeat
	on DiveFolder(thePath, alist)
	tell application "Finder"
	set theFiles to every file of thePath
	repeat with a in theFiles
	set b to (container of a as text) & name of a
	set b_path to thePath as string
	set b_POSIX to POSIX path of b
	set str_Script to "/usr/local/bin/exiftool -Orientation -n '" & b_POSIX & "'"
	log str_Script
	try
	set str_Orientation to do shell script str_Script
	set bln_ImageOrientation to "YES"
	if length of str_Orientation = 0 then set bln_ImageOrientation to "NO"
	on error
	log "debug"
	set bln_ImageOrientation to "NO"
	end try
	log thePath
	log bln_ImageOrientation
	if bln_ImageOrientation = "YES" then
	set delim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to ": "
	set str_Orientation to item 2 of text items of str_Orientation
	log str_Orientation
	-- Orientation : 1 = Horizontal (normal)
	-- Orientation : 8 = Rotate 270 CW
	-- Orientation : 6 = Rotate 90 CW
	-- Orientation : 3 = Rotate 180
	tell application "Image Events"
	launch
	set this_image to open b
	if str_Orientation = "6" then
	rotate this_image to angle 270
	save this_image
	else if str_Orientation = "3" then
	rotate this_image to angle 180
	save this_image
	else if str_Orientation = "8" then
	rotate this_image to angle 90
	save this_image
	end if
	close this_image
	end tell
	end if
	end repeat
	try
	set theFolder to every folder of thePath
	end try
	repeat with aFolder in theFolder
	DiveFolder(aFolder, alist) of me
	end repeat
	end tell
	end DiveFolder

view raw gistfile1.txt hosted with by GitHub

スクリプトファイル自体をzipファイル化したものをアップしておきます。利用は自己責任でお願いいたします。

• photo_imagerotation – AppleScript Sample