iTunesライブラリ中の楽曲のみしぼりこんでアルバムのtitle一覧を取得

iTunesライブラリ（＋Apple Book）のメディアから楽曲（mediaKind=ITLibMediaItemMediaKindSong）のみ抽出してアルバムのタイトル一覧を取得するAppleScriptです。

iTunesLibrary.framework経由でメデイアアイテムの情報にアクセスするため、iTunes.appが起動していてもいなくても関係ありません。開発環境のマシン（MacBook Pro Retina 2012 Core i7 2.66GHz）でiTunesに6,871曲の楽曲が存在している状態で0.03秒程度です。

iTunes.appとプロセス間通信していないため、macOS 10.14でSecurityダイアログが表示されることもありません。

AppleScript名：iTunesライブラリ中の楽曲のみしぼりこんでアルバムのtitle一覧を取得.scptd

— Created 2018-10-16 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "iTunesLibrary"

property ITLibrary : a reference to current application’s ITLibrary
property NSPredicate : a reference to current application’s NSPredicate

set library to ITLibrary’s libraryWithAPIVersion:"1.0" |error|:(missing value)
if library is equal to missing value then return

set playLists to library’s allPlaylists()
set gArray to (library’s allMediaItems())

set aPredicate to NSPredicate’s predicateWithFormat:"self.mediaKind = 2" –ITLibMediaItemMediaKindSong
set filteredArray to gArray’s filteredArrayUsingPredicate:aPredicate
set tArray to (filteredArray’s album’s title)
set bList to (tArray’s valueForKeyPath:"@distinctUnionOfObjects.self") as list
–> {"アニメる", "庄野真代ゴールデン☆ベスト: シングル・コレクション & 筒美京平作品集", "ウォンテッド(指名手配) [Original Cover Art] – Single", "君が人生の時…", "3年B組金八先生 THEME SONG COLLECTION", "HOLD ME", "Piano Stories", "にんじゃりばんばん – Single", …..}