r := RandomChoice[{2, 5, 10}]
g[x_] := RandomChoice[{0.3, 0.9, 0.8} -> {x, {x[[1]]}, {x[[1]], x[[2]]}}];
accord := Module[{}, r1 = r; {{3 + r1, -6 + r1, 4 + r1}, {7, 4, 2}}];
scale = {-1 + r, 9 + r, 2 + r};
s := g[RandomChoice[accord]] + RandomChoice[scale]
A = Table[{s, Random[Integer, 10] + 2}, {40}];
sn[{a_, t_}] := SoundNote[s, t];
S = Sound[{"Cello", "Piano", sn /@ A}, 30]
Export["weina_scott.midi",S, "Midi"]