アルバム「JOMON」制作ノート

縄文の土笛をイメージした音と自然の音をミックスして作った作品。
森・野・海の3曲で 構成してみました。

[生成アルゴリズム ]

DDBJ (DNA Data Bank of Japan) に登録されている人類 (Homo sapiens) の 「mRNA」塩 基配列 (アクセッション番号 D19451, D19471,D19461) のデータを使い、 A,G,C,T の4つ の文字に音符や休符を割り当てています。

(D19461)
gatccaaaga agacaaaatg gagttcagcc atctatgeet acagcagcag aaagagacga aattttggga gcaatgcaaa anatgcccta ctgagtattt genttaaaat tntttctata acttgaaa

[プログラム ] （RScript）

set.seed(sum(as.numeric(charToRaw(script))))
mmlh="Tempo=30"
mml1="TR=1 @Ocarina t.Random=0 v.Random=80 BR(1) r4 "
for(i in 1:nchar(script)){
code=substr(script,i,i)
note=switch(code,"g"="l1r","a"="l1r","t"="l1r","c"="l1o5c","n"="l1r")
pan=Random(10,64); rev=Random(40,80); cho=Random(2,4)
mml1=paste(mml1,"P(",pan,") ","REV(",rev,") ","CHO(",cho,") ","p",Random(128)," ",note,"
",sep="")
}
mml2="TR=2 @Ocarina t.Random=0 v.Random=80 BR(1) r2 "
for(i in 1:nchar(script)){
code=substr(script,i,i)
note=switch(code,"g"="l1r","a"="l1r","t"="l1o4c","c"="l1r","n"="l1r")
pan=Random(65,120); rev=Random(40,80);cho=Random(2,4)
mml2=paste(mml2,"P(",pan,") ","REV(",rev,") ","CHO(",cho,") ","p",Random(128)," ",note,"
",sep="")
}
mml3="TR=3 @BirdTweet t.Random=50 v.Random=40 q=200 "
for(i in 1:nchar(script)){
code=substr(script,i,i)
note=switch(code,"g"="l1o7c","a"="l1o6g","t"="l1o6c","c"="l1o5g","n"="l1o4g")
pan=Random(10,64); rev=Random(80,120);cho=Random(2,4)
mml3=paste(mml3,"P(",pan,") ","REV(",rev,") ","CHO(",cho,") ",note," ",sep="")
}
mml4="TR=4 @BirdTweet t.Random=50 v.Random=40 q=200 r2 "
for(i in 1:nchar(script)){
code=substr(script,i,i)
note=switch(code,"g"="l1o5c","a"="l1o5d","t"="l1o5e","c"="l1o5f","n"="l1o7c")
pan=Random(65,120); rev=Random(80,120);cho=Random(2,4)
mml4=paste(mml4,"P(",pan,") ","REV(",rev,") ","CHO(",cho,") ",note," ",sep="")
}
mml=paste(mmlh,mml1,mml2,mml3,mml4,sep="¥n")
write(mml,file="tmp.mml")
shell("cSakura -p tmp.mml> nul")

[生成用データ ]

森（D19451）
script="gatctggacttcatgtggagaccatagctgttttnacttcttactacccacccnttctccaatccacttaagacgttaaatgggtctnccnatgctctg
gggtgggggaaataancagaaccagctgtaatttttttaaa"
野（D19471）
script="gatcgtggatggcagagnggtagtccgagactaatgacaccagagttctgaggcactgaggcaganatngagggaacccctgggaactgag
ggaccaataaaagttgagagctcactggaaa"
海（D19461）
script="gatccaaagaagacaaaatggagttcagccatctatgcctacagcagcagaaagagacgaaattttgggagcaatgcaaaanatgccctactg
agtatttgcnttaaaattntttctataacttgaaa"

[アートワーク ]

玉川縄文遺跡の近くにある月山高原の風景写真と縄文の土笛 (青森県十腰内猿沢遺跡出土) の復元モデルの画像を合成して作成しました。