on removeExtension(thisName)
	if thisName contains "." then
		set thisName to (the reverse of every character of thisName) as string
		set x to the offset of "." in thisName
		set thisName to (text (x + 1) thru -1 of thisName)
		set thisName to (the reverse of every character of thisName) as string
	end if
	return thisName
end removeExtension

on run {input, parameters}
	-- ffmpegのフルパス
	set ffmpegPath to "/opt/homebrew/bin/ffmpeg"
	-- ffmpegのoption
	set options to " -vf scale=320:-1 -r 24 "
	
	repeat with targetFile in input
		tell application "System Events"
			set inputFilename to name of (get properties of targetFile)
		end tell
		set inputFilePath to quoted form of (POSIX path of targetFile)
		set outputFilePath to quoted form of (my removeExtension(POSIX path of targetFile) & ".gif")
		do shell script ffmpegPath & " -i " & inputFilePath & options & outputFilePath
	end repeat
	return input
end run