はじめに
以前に特急あずさに乗った時、車内放送の際に短い曲が鳴ることに気が付きました。
調べてみると、この短い曲は「JR東日本の四点チャイム」と呼ばれるもので、特急列車で広く使われているそうです。
このチャイムをPCで鳴らせば、仕事中でも旅情を感じられるかも...ということで、PowerShellを使って四点チャイムを鳴らす方法を調べてみました。
楽譜を探す
- 私は音感が無いので楽譜を探すところからスタートしましたが、楽譜はこちらの動画に載っていました。
- 楽譜を見ると「ファ#→レ→シ→ラ」となっていましたが、最後の一音が和音となっていました。
作ったコード
-
こちらの記事を参考にして、Beep関数を使って四点チャイムを再現してみました。
- ただしBeep関数では和音を鳴らすことができないので、最後の一音は単音としました😢
- Beep関数の第1引数は音の周波数、第2引数は音の再生時間となっています。
- 音階に対応した周波数については、こちらのサイトで調べました。
jr_east.ps1
[Console]::Beep(740, 600)
[Console]::Beep(587, 600)
[Console]::Beep(988, 600)
[Console]::Beep(880, 1800)
実行結果
- ビープ音なので、まあ何というか微妙です😅
- 旅情を感じるどころか、ちょっと疲れを感じそうです...
- 最後が和音でないことに目を瞑っても、そもそも音質がアレ過ぎるのでもうちょっとマシにしたいですね。