RedHarmonicTree sorted harmonic tree


after http://www.csounds.com/ezine/trees/



*sorted(base, num, range)

base - frequency.  default is 110.

num - number of partials.

range - 1 and 2 will only produce unison and octaves.  default is 3.



//--

RedHarmonicTree.sorted(110, 8, 3);

RedHarmonicTree.sorted(110, 8, 3);


s.boot

Pbind(\freq, Pseq(RedHarmonicTree.sorted(110, 8, 3).postln), \dur, 0.125).play

Pbind(\freq, Pseq(RedHarmonicTree.sorted(110, 8, 3).postln), \dur, 0.125).play



Pbind(\freq, Pseq(RedHarmonicTree.sorted(110, 8, 2).postln), \dur, 0.125).play

Pbind(\freq, Pseq(RedHarmonicTree.sorted(110, 8, 4).postln), \dur, 0.125).play

Pbind(\freq, Pseq(RedHarmonicTree.sorted(110, 8, 6).postln), \dur, 0.125).play