// title: polynom
// author: scornaz
// description:

// code:
(
var genPolynom = { arg depart ... l;
	var function = 
	"{arg x; %% }".format(
		depart,
		l.collect({ arg v, i;
		  " + (% * ( x div: % ))".format(v, i + 1)
	    }).join
	);
	function.compile().value;
};

var un = genPolynom.(0, 1);
var deux = genPolynom.(2, 4, 1);
var trois = genPolynom.(5, 5, -1);

a = (..20).collect({ arg i;
	[un.(i), trois.(i) ] % 7
})
)

(
Pdef(\a, 
Pbind(
	\tempo, 2,
	\degree, Pseq(a).repeat,
		\octave, [3, 5],
		\amp, [2, 1] * 0.1,
		)).play
)