アルバム「A*B*C*D*E」制作ノート
ラ・シ・ド・レ・ミの5つの音 (a,b,c,d,e) を使って作ることができる 3125個の組み合わ せ音列を演奏させてみた作品。 aaaaa ~ eeeea、 aaaab ~ eeeeb、 aaaac ~ eeeec、 aaaad ~ eeeed、 aaaae ~ eeeee の5曲と全曲を演奏させた全部で6曲で構成。 1~5はシンセ音源 (Prism)、6 はピアノ音源を使って録音しました。
[生成アルゴリズム ]
R の関数 expand grid() を使って音の組み合わせを生成しました。 拍子は 5/16 に設定。
[プログラム ] (RScript+cSakura)
rscript --vanilla -e "s=c('a','b','c','d','e');exg=expand.grid(s,s,s,s,s);cat('System.TimeSignature=5,16 l16\n');for(i in 1:nrow(exg)){cat(paste(exg[i,1],exg[i,2],exg[i,3],exg[i,4],exg[i,5],sep=''),sep='\n')}" > abcde.mml
csakura -p abcde.mml > nul
[アートワーク ]
5 つの音(a,b,c,d,e) の 3125 個の組み合わせを色に対応させたグラフを [R] で作り、これをそのまま使ってみました。
scl=c("a","b","c","d","e")
exg=expand.grid(scl,scl,scl,scl,scl)
df=data.frame(x=rep((1:length(scl)),nrow(exg)),y=rep(1:nrow(exg),each=length(scl)),note=as.vector(t(exg)))
g=qplot(x,y,fill=note,data=df,geom="tile")+scale_fill_manual(values=c(cpal(5)[1],cpal(5)[2],cpal(5)[3],cpal(5)[4],cpal(5)[5]))
plot(g)
この記事が気に入ったらサポートをしてみませんか?