Initial import.
[Faustine.git] / dsp_files / even-odd-circuit.dsp
1 evens = case {
2 (2) => (_:vectorize(1)) , ! ;
3 (n) => ((_:vectorize(1)) , ! , evens(n - 2)) : #;
4 };
5 odds = case {
6 (2) => ! , (_:vectorize(1)) ;
7 (n) => (! , (_:vectorize(1)) , odds(n - 2)) : # ;
8 };
9
10 process = (0,0.1,0.2,0.3,0.4,0.5,0.6,0.7) <: evens(8), odds(8) : oneOutputStereoFile;
11
12 oneOutputStereoFile = serialize, serialize : vectorize(1), vectorize(1) : #;