QuickTime Player用スクリプト

QuickTime Playerでのムービー表示方法を切り替えるスクリプトです。
覚え書きみたいなもんなんで、説明が分かり難くてもご勘弁を。

その１＜コントローラーを非表示にする＞
set controller type to none
逆に表示する場合は"none"の所を"standard"にすれば表示されます。

その２＜大きさを変更＞
set dimensions to {640, 480}
これはサイズを640×480にした例です。
パーセンテージによる変更も出来ますが必要なかったんでよく調べてないです。。

その３＜再生の繰り返し＞
set looping of every document to true
「command + L」で出来る繰り返し再生をスクリプトで行うものです。
この例は開いている全てのムービーに対して繰り返しをオンにする命令です。

以上をふまえて作ったスクリプトが下記のものです。

tell application "QuickTime Player"
activate
tell every document
set controller type to none
set dimensions to {640, 480}
end tell
set looping of every document to true
play every document
tell application "Finder"
set visible of processes whose frontmost is false to false
end tell
end tell

これは開いている全てのムービーのコントローラーを非表示にし
サイズを全て640×480にしてループ再生をオン
最後にQuickTimeムービー以外を非表示にするものです。
ついでにFinderでムービーを選択して
ドラッグ＆ドロップでスクリプトを実行したい場合は・・・

on open drop_items
tell application "QuickTime Player"
activate
open drop_items
tell every document
set controller type to none
set dimensions to {640, 480}
end tell
set looping of every document to true
play every document
tell application "Finder"
set visible of processes whose frontmost is false to false
end tell
end tell
end open

と、こんな感じですね。
もっと賢い方法があるかもしれませんが勉強不足なんでよくわかりません。。。