-
BWV772によるファンタジア
バッハの２声のインヴェンション第1番の音の並びをデフォルメしてみました。前半は音の長さをランダムに、後半は音の出現順序と長さをランダムにしています。 曲名{"BWV772によるファンタジア"} System.RandomSeed=2018 Array p1=(,60,62,64,65,62,64,60,67,72,72,71,72,71,72,74,67,69,71,72,69,71,67,74,79,79,77,79,77,79,76,81,79,77,76,79,77,81,79,77,76,74,72,76,74,77,76,74,72,71,69,72,71,74,72,71,69,67,66,69,67,71,69,62,72,71,72,74,71,69,67,66,64,67,66,69,67,71,69,72,71,74,72,76,74,71,72,74,79,72,71,72,71,69,67,67,67,69,71,72,69,71,67,67,66,67,66,69,71,72,74,71,72,69,71,74,72,71,69,72,71,74,72,76,74,72,71,74,73,76,74,73,74,76,77,69,71,73,74,66,68,69,71,72,74,64,66,68,69,66,68,64,76,74,72,76,74,72,71,74,72,81,80,83,81,76,77,74,68,77,76,74,72,71,69,69,81,79,77,76,79,77,81,79,76,77,79,81,77,79,76,77,79,77,76,74,77,76,79,77,74,76,77,79,76,77,74,76,72,74,76,77,74,76,72,74,76,77,79,81,77,79,76,77,79,81,83,84,81,83,79,84,79,76,74,72,72,70,69,67,65,69,67,70,69,71,72,64,62,72,65,71,64,67,72) Array p2=(,48,50,52,53,50,52,48,55,43,55,57,59,60,57,59,55,60,59,60,62,64,55,57,59,60,52,54,55,57,59,60,50,52,54,55,52,54,50,55,47,48,50,52,54,55,52,47,48,50,38,43,45,47,48,45,47,43,50,55,54,55,57,50,52,54,55,52,54,50,57,62,60,62,55,67,65,64,62,65,64,67,65,64,65,62,64,69,67,65,64,67,65,69,67,65,67,64,65,70,69,67,65,69,67,70,69,67,65,64,62,65,64,67,65,64,62,60,59,62,60,64,62,60,59,57,56,59,57,60,59,52,62,60,62,64,60,59,57,55,54,57,56,59,57,60,59,62,60,64,62,65,64,57,64,52,57,45,64,62,60,59,62,61,64,62,57,59,60,62,59,60,57,59,62,60,59,57,60,59,62,60,55,57,58,60,57,58,55,57,58,57,55,53,62,60,58,57,65,64,62,64,50,52,53,55,52,53,50,52,48,50,52,53,50,52,53,55,43,36,48) Int i Tempo=80 TR(1) P(64-32) i=1 [(SizeOf(p1)-1) l(RandomSelect(2,4,8,8,8)) n(p1(i)) i++] i=1 TR(2) P(64+32) r1 [(SizeOf(p2)-1) l(RandomSelect(2,4,4,8)) n(p2(i)) i++] TrackSync Tempo=160 TR(1) P(64-32) [(SizeOf(p1)-1) l(RandomSelect(2,4,8,8,8)) n(p1(Random(1,SizeOf(p1))))] TR(2) P(64+32) r1 [(SizeOf(p2)-1) l(RandomSelect(2,4,4,8)) n(p2(Random(1,SizeOf(p2))))] BWV772によるファンタジア https://soundcloud.com/a_company/bwv772f
実験音楽 2018
mugen
-
SoundScape 2018
一行（280文字以内）のプログラムで曲を生成する「One-Liner-Music」シリーズ（2018年版）の試作作品。録音はピアノ音源になっていますが、シンセなど様々な音源で演奏できます。 曲名{SoundScape 2018} System.RandomSeed=2018 Tempo=30 v.Random=24 t.Random=240 q(Random(90,160)) [(16*16) Time(Random(16)+1:Random(4)+1:0)n(Random(24,96))] /* 曲名{SoundScape 2018} System.RandomSeed=2018 Tempo=30 v.Random=24 t.Random=240 q(Random(90,160)) [(16*16) Time(Random(16)+1:Random(4)+1:0)n(Random(24,96)) ] */ SoundScape 2018 https://soundcloud.com/a_company/soundscape-2018
実験音楽 2018
mugen
-
笙と十七絃と大太鼓のための戌の舞
曲名{"笙と十七絃と大太鼓のための戌の舞"} System.RandomSeed=20180101 Array s=("o5a o6e o6a o6b o7e o7f+","o5b o6d o6e o6a o6b o7f+","o6c+ o6d o6e o6g+ o6a o6b","o6d o6e o6a o6b o7e o7f+","o6e o6a o6b o7d o7e o7f+","o6f+ o6g+ o6a o6b o7d o7f+","o6f+ o6g o6a o6b o7d o7e","o6g o6a o6b o7d o7e","o6g+ o6a o6b o7c o7d o7f+","o6a o6b o7d o7e o7f+","o6a o6b o7c o7d o7e o7f+") Tempo=30 TR(1) @107,0,127 v.Random=20 t.Random=4 V=40 [24 l(RandomSelect(1,1,2,2,4)) q(RandomSelect(99,100)) #A=s(Random(SizeOf(s))) '#A'] TR(2) @48 v.Random=20 t.Random=400 l2r [24 l(RandomSelect(1,1,2,2,4)) o2c+] TR(3) @108 v.Random=20 t.Random=400 [8 l(RandomSelect(1,1,2,2,4)) r o3'ef+ab' o4'cdea'] https://youtu.be/8WQGUouUGDE
実験音楽 2018
mugen
-
KOTEKAN
音楽生成スクリプト // Kotekan System.RandomSeed=(2018-1) Array SC=("c","e","f","g","b") Str S_H="10100100100100100100100100100100" Str S_L="01001001001001001010010010010010" Str P_H="00010010010010010001001001001001" Str P_L="10100100100100100100100100100100" Int i Int Gm_1 Int Gm_2 [8 #M1="l16 o6" #M2="l16 o5" #M3="l16 o5" #M4="l16 o4" i=1 [32 IF (MID(S_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M1=#M1+#W IF (MID(S_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M2=#M2+#W IF (MID(P_H,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M3=#M3+#W IF (MID(P_L,i,1)="1") {#W=SC(Random(SizeOf(SC)))} ELSE {#W="r"} #M4=#M4+#W i++ ] Gm_1=RandomSelect(10,12,13,14) Gm_2=RandomSelect(10,12,13,14) Tempo=RandomSelect(30,45,60,75,90) TR=1 @(Gm_1) P(64-48) v.Random(40) q(200) [4 #M1] "r4" TR=2 @(Gm_1) P(64+16) v.Random(40) q(200) [4 #M2] "r4" TR=3 @(Gm_2) P(64-16) v.Random(40) q(200) [4 #M3] "r4" TR=4 @(Gm_2) P(64+48) v.Random(40) q(200) [4 #M4] "r4 ] https://youtu.be/zxTH0yIOXME
実験音楽 2018
mugen
-
春の曲
曲名{春の曲} System.RandomSeed=2018 Array L=(2,4,4,8) Array O=(4,5) Array K=("agde","dega","ee","cd","ga") Int i=1 Tempo=48 [2 #M="" TR(i) @Koto v.Random=12 [32 #M=#M+"l"+#STR(L(Random(SizeOf(L))))+"o"+#STR(O(Random(SizeOf(O))))+K(Random(SizeOf(K)))] #M i++] 一行（280文字以内）のプログラムで曲を生成する「One-Liner-Music」シリーズ（2018年版）の試作作品。 [ 録音音源 ] 十三絃：SoundFont (Koto) シンセ：Alchemy https://youtu.be/fDb7e2GOqhw
実験音楽 2018
mugen
-
SoundScape 2018 #5
SoundScape 2018 #5（シンセサイザーとハープのための） 曲名{SoundScape 2018} Int wn=5 Int i Int j System.RandomSeed=(2018-wn) Tempo=(30+Random(-5,+5)) i=Random(12,24) j=Random(8,16) v.Random=24 t.Random=240 q(Random(90,160)) [(i*j) Time(Random(i)+1:Random(4)+1:0)n(Random(24,96))] 一行（280文字以内）のプログラムで曲を生成する「One-Liner-Music」シリーズ（2018年版）の試作作品。 [ 録音音源 ] 打楽器：SoundFont (Harp) シンセ：PODOLSKI https://youtu.be/h06_V6H_Uss
実験音楽 2018
mugen
-
SoundScape 2018 #4
SoundScape 2018 #4（シンセサイザーと打楽器奏者のための） 曲名{SoundScape 2018} Int wn=4 Int i Int j System.RandomSeed=(2018-wn) Tempo=(30+Random(-5,+5)) i=Random(12,24) j=Random(8,16) v.Random=24 t.Random=240 q(Random(90,160)) [(i*j) Time(Random(i)+1:Random(4)+1:0)n(Random(24,96))] 一行（280文字以内）のプログラムで曲を生成する「One-Liner-Music」シリーズ（2018年版）の試作作品。 [ 録音音源 ] 打楽器：SoundFont (GS ASIA) シンセ：Oatmeal https://youtu.be/60B7SGpzFmA
実験音楽 2018
mugen
-
SoundScape 2018 #1
SoundScape 2018 #1 https://soundcloud.com/a_company/soundscape-2018
実験音楽 2018
mugen
-
SoundScape 2018 #3
SoundScape2018 #3 https://soundcloud.com/a_company/soundscape2018-3
実験音楽 2018
mugen
-
SoundScape 2018 #2
SoundScape2018 #2 https://soundcloud.com/a_company/soundscape2018-2
実験音楽 2018
mugen
大事なお知らせ：
ミューゼオを次の世代につなぐために―運営譲渡のお知らせと改善策について
