2つの動画を2画面で同時ループ再生するAppleScript

TL;DR

画質の違いをチェックしたり、サイネージ的にループ再生したい場面にて。

property _delaySecondsForLaunch : 10
property _leftMovieFilePath : "/Users/test/Downloads/bbb_sunflower_2160p_60fps_normal.mp4"
property _rightMovieFilePath : "/Users/test/Downloads/bbb_sunflower_1080p_60fps_normal.mp4"

set msg to "Launching Players ... "
display dialog msg giving up after _delaySecondsForLaunch

(* check screen size *)
tell application "Finder"
    set {x0, y0, screenWidth, screenHeight} to get bounds of window of desktop
end tell
-- display dialog "screen width: " & screenWidth & " / screen height: " & screenHeight with title "Screen Size"

(* open movies *)
tell application "QuickTime Player"
    activate

    open _leftMovieFilePath
    delay 1

    open _rightMovieFilePath
    delay 1
    tell every document
        set looping to true -- set loop
    end tell
end tell

(* Move right QuickTime Player to right display *)
tell application "System Events" to tell process "QuickTime Player"
    tell window 1
        set position to {screenWidth / 2, 0}
        delay 3
    end tell
end tell

(* play movies *)
tell application "QuickTime Player"
    present every document -- set fullscreen
    play every document -- play!
end tell

Memo

テスト環境はQuickTime Player 10.4 on MacOS 10.12.5(Sierra)。
簡単にできると思ったら、どうやらMacOS 10.10(Mavericks)以降からQuikcTime APIの内部仕様が変わったらしく、 set bounds が効かなくてハマった。
同じ要領で3画面以上もできそうだけど同一ファイルでの再生に対応してないので、そのうち調べる。