potrace を AppleScript で

potrace という二値画像専用の自動トレースソフトウェアがあります。

かなり重宝しているのですが、コマンドラインツールなのでコンソールから実行するのがちょっとだけ面倒。

そんなわけで AppleScript 化してみました。

実行するには /Applications/potrace-1.11.mac-i386 に potrace がインストールされている必要があります。

-- potrace AppleScript
--
on main(listFile)
	local nConvertCount

	set nConvertCount to 0
	repeat with strApplePathname in listFile
		-- display dialog strApplePathname as string
		set strPOSIXPathname to POSIX path of strApplePathname
		do shell script "/Applications/potrace-1.11.mac-i386/potrace -k 0.5 -u 10 -t 2 -b pdf " & strPOSIXPathname
		set nConvertCount to nConvertCount + 1
	end repeat

	if nConvertCount > 0 then
		display dialog (nConvertCount as string) & " File(s) converted."
	end if
end main

--
on open dropFiles
	my main(dropFiles)
end open

--
on run
	set listFile to choose file with multiple selections allowed
	my main(listFile)
end run

-- [EOF]

相変わらずスペースが削除されてしまうのは、どうやって修正したらいいんだろう。