SoundScape 2020

// SoundScape 2020
Int rsd=Random(2020) // 乱数の種
Int tpo=Random(20,40) // テンポ
Int trk=Random(1,9) // トラック数
Int nlw=Random(36,60) // 音程の下限
Int nup=Random(48,86) // 音程の上限
Array PC=(1) // 音色配列 Piano Solo version
//Array PC=(1,1,5,7,9,12,13,25,42,47,48,49,50,51,52,53,58,61,69,71,72,74,78,107,108,117) // GMの例　
Print("Seed="+rsd,"Tempo="+tpo,"Trk="+trk,"Note="+nlw,nup,"PC="+PC)
System.RandomSeed=rsd
ResetGM; Int i=1
TempoChange(tpo)
[(trk) TR(i) // CH(1) for no multi timbre
@(RandomSelect(PC)) v.Random=24 t.Random=240 q(Random(90,160))
[(16*(16/trk))
Time(Random(16)+1:Random(4)+1:0) n(Random(nlw,nup))
]
i++
]
Time(17:1:0) l1r
Int TM=Time/TimeBase*(600000/Tempo)/10000 Print("演奏は "+TM/60+" 分 "+ TM%60+" 秒)

作者からのコメント

K×I×Y 三人展 vol.1 - 時の断片 -
https://koten-navi.com/node/120679
展示作品 SoundScape 2020
https://etext-music.com/SS2020/
のための曲生成スクリプトです。COBOLで500曲（100×5パターン）の SAKURA 用のソースコードを自動生成、MIDIにコンパイルして録音したものを、今では多くのモダンブラウザで動くHTML5オーディオで再生します。曲は100個並んだ再生ボタンで選択できますが、そのまま流しておけばランダムに曲を選んで再生を続けます。曲の開始に合わせて用意された背景画像（1000枚）がランダムに切り替わります。画面はブラウザのサイズに自動でフィットするように作ってありますのでスマホでも大丈夫です。画面のサイズを変更した場合は再読込してください。PCなら全画面（F11）モードで流しておけばアートな環境音楽として使えます。

作曲者: 自作
ライセンス: 🌐パブリックドメイン↗商用利用 ○改変 ○改変も転載も自由
転載: 許可しない
推奨音源: GM/GS
ピコサクラ対応: 未対応
ピコサクラバージョン: 0.2.3
動画: ▶ YouTubeで見る
投稿日時: 2020-08-27 08:52
更新日時: 2020-08-27 12:45