ひtoりgoと

= ひとりごと to go

zumuya の人による机の上系情報サイト

Mac が歌う？（Done Gull ley）

  • Apple
  • ソフトウェア
  • 開発

AppleScript に詳しい Piyomaru Software の記事で知ったことを実験してみた。

以下がそのスクリプト。試すなら自己責任で。

set toVoice to item 1 of {"Zarvox", "Bad News"}
set toRate to 200
--parts: {phrase, pitch, length}
set toParts to {{"Key la", 60, 1.0}, {"Key la", 67, 1.0}, {"He curl", 69, 1.0}, {"woooo", 67, 1.0}, {"oh soul", 65, 1.0}, {"larno", 64, 1.0}, {"hold she", 62, 1.0}, {"Yo!", 60, 1.0}}
repeat with toPart in toParts
    say (toPart's item 1) pitch (toPart's item 2) speaking rate (toRate / (toPart's item 3)) using toVoice
end repeat

こちらも：

  • set toParts to {{"Done", 65, 1.0}, {"Gull ley", 62, 1.0}, {"Call", 63, 0.5}, {"oh", 62, 0.5}, {"Call", 60, 0.5}, {"oh", 58, 0.5}, {"Done", 65, 1.0}, {"Gull ley", 62, 1.0}, {"Call", 60, 2.0}, {"oh E", 62, 1.0}, {"K knee", 65, 1.0}, {"how, mat te", 67, 1.0}, {"sir", 70, 1.0}, {"tar e", 62, 1.0}, {"hem!", 65, 1.0}}
  • set toParts to {{"doll", 56, 2.0}, {"wall", 58, 0.5}, {"doll", 60, 2.0}, {"nut", 56, 1.0}, {"woo", 60, 2.0}, {"no", 56, 2.0}, {"doll", 60, 4.0}, {"ley", 58, 2.0}, {"wall", 60, 0.5}, {"lemon", 61, 2.0}, {"no", 58, 0.5}, {"leeeey", 61, 4.0}, {"me", 60, 2.0}, {"wall", 61, 0.5}, {"me", 63, 2.0}, {"een", 60, 1.0}, {"nearn", 63, 1.0}, {"oh", 60, 2.0}, {"me E", 63, 4.0}, {"far", 61, 2.0}, {"wall", 63, 0.5}, {"figh", 65, 2.0}, {"tall", 63, 0.5}, {"no", 61, 1.0}, {"far away!", 65, 2.0}}

Share

リンクも共有もお気軽に。記事を書くモチベーションの向上に役立てます。