Return to Answer

added 74 characters in body

Source Link

edited Jan 2, 2015 at 14:33

7.7k
3
22
29

Mathematica - 136130

r = Riffle;
s = SoundNote;
Export["m.mid", 
 Sound@Riffle[Flatten@Riffle[SoundNote[0Sound@
   r[Flatten@
     r[
       s[0,.4(Boole@#+.5)]&/@ 
 Array[#>4&@Array[#>4&,5,5-#]&/@{2,0,1,5},
       (b=SoundNote[None,#]&b=None~s~#&)@.6]6
     ],b@.2]]2
   ]
]

Play online

Mathematica - 136

Export["m.mid", 
 Sound@Riffle[Flatten@Riffle[SoundNote[0,.4(Boole@#+.5)]&/@ 
 Array[#>4&,5,5-#]&/@{2,0,1,5},(b=SoundNote[None,#]&)@.6],b@.2]]

Mathematica - 130

r = Riffle;
s = SoundNote;
Export["m.mid", 
 Sound@
   r[Flatten@
     r[
       s[0,.4(Boole@#+.5)]&/@Array[#>4&,5,5-#]&/@{2,0,1,5},
       (b=None~s~#&)@.6
     ],b@.2
   ]
]

Play online

Source Link

created Jan 2, 2015 at 14:22

swish

7.7k
3
22
29

Mathematica - 136

Export["m.mid", 
 Sound@Riffle[Flatten@Riffle[SoundNote[0,.4(Boole@#+.5)]&/@ 
 Array[#>4&,5,5-#]&/@{2,0,1,5},(b=SoundNote[None,#]&)@.6],[email protected]]]