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