SoundScape 2020

K×I×Y 三人展 vol.1のための曲生成スクリプトです。

// 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+" 秒)

HTML版

COBOLで500曲（100×5パターン）の SAKURA 用のソースコードを自動生成、MIDIにコンパイルして録音したものを、今では多くのモダンブラウザで動くHTML5オーディオで再生します。曲は100個並んだ再生ボタンで選択できますが、そのまま流しておけばランダムに曲を選んで再生を続けます。曲の開始に合わせて用意された背景画像（1000枚）がランダムに切り替わります。画面はブラウザのサイズに自動でフィットするように作ってありますのでスマホでも大丈夫です。画面のサイズを変更した場合は再読込してください。PCなら全画面（F11）モードで流しておけばアートな環境音楽として使えます。

SoundScape 2020
https://etext-music.com/SS2020/

K×I×Y 三人展 vol.1 - 時の断片 -
https://koten-navi.com/node/120679

Piano Version
https://youtu.be/wuN38GKMJvE