Dolittle版 A*B*C*D*E

2014年のアルバム「A*B*C*D*E」のドリトル版を作ってみました。

0001:3125 | YAMAZAWA

0001:3125 by YAMAZAWA, released 28 October 2014

https://yamazawa.bandcamp.com/track/0001-3125

ラ・シ・ド・レ・ミの５つの音で作る3125通りの組み合わせを弾く。

演奏している音を色に割り当て、音と同期してグラフィックを描きます。

ラ=紺碧 シ=霞色 ド=紅赤 レ=薄緑 ミ=黒茶

// A*B*C*D*E（Dolittle版）

abcde=system！"echo {a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e}" execute.

tone=abcde! "\s" split.

map=[|v s1 e1 s2 e2| s2+(e2-s2)*((v-s1)/(e1-s1))].

w=screen!width?. h=screen!height?.

z=tone! size?.

紺碧=0x007bbb.

霞色=0xc8c2c6.

紅赤=0xd9333f.

薄緑=0x69b076.

黒茶=0x241a08.

i=0.

timer! create (0.5) interval (z) times [

　i=i+1.

　m=tone! (i) get.

　n=m! length?.

　f=melody! create.

　j=0.

　[j=j+1.

t=m! (j)(1) substr.

f=melody! create (t) add.

band! create (320) tempo (f) add play wait.

ws=ceil(w/n).

hs=ceil(h/(z-1)).

x=!(j)(1)(n+1)(w/-2)(w/2) map. y=!(i)(1)(z)(h/2)(h/-2) map.

[t=="a"]! then [c=color! (紺碧) create] execute.

[t=="b"]! then [c=color! (霞色) create] execute.

[t=="c"]! then [c=color! (紅赤) create] execute.

[t=="d"]! then [c=color! (薄緑) create] execute.

[t=="e"]! then [c=color! (黒茶) create] execute.

[i!=0]! then [

label! create (ws)(hs) size (x)(y) position (c) paint.

] execute.

　]! (n) repeat.

] execute.

外部のMIDI音源（Poano One）で演奏してみます。

こちらは、musescore 版。楽譜を楽しみながら演奏を聴けます。

A*B*C*D*E sheet music for Piano download free in PDF or MIDI

Print and download in PDF or MIDI A*B*C*D*E. bashのブレース展開を使ってMMLを生成。「ラ・シ・ド・レ・ミ」の5つの音でできる3125通りの組み合わせを演奏。 echo 'System.TimeSignature=5,16 l16' {a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e}{a,b,c,d,e} > tmp; csakura -p tmp

https://musescore.com/user/4546001/scores/1191181

#プログラミング #ドリトル