annotate yetilab/stream/test/audiofile_reference.yeti @ 182:1ab130dcf7f3

Start on audiofile-test-reference implementation
author Chris Cannam
date Fri, 03 May 2013 18:00:48 +0100
parents b6db07468ed1
children 045908c861a4
rev   line source
Chris@157 1
Chris@157 2 module yetilab.stream.test.audiofile_reference;
Chris@157 3
Chris@157 4 syn = load yetilab.stream.syntheticstream;
Chris@182 5 filt = load yetilab.stream.filter;
Chris@157 6 vec = load yetilab.block.fvector;
Chris@157 7 block = load yetilab.block.block;
Chris@157 8
Chris@182 9 pulseChannel rate = syn.silent rate; //!!! to be implemented!
Chris@182 10
Chris@182 11 referenceChannels rate =
Chris@182 12 (leftovers rate n =
Chris@182 13 (syn.generated rate \(n / 20) :. \(leftovers rate (n+1)));
Chris@182 14 syn.sinusoid rate 600 :: pulseChannel rate :: leftovers rate 2);
Chris@182 15
Chris@182 16 afReference rate channels =
Chris@182 17 filt.multiplexed (take channels (referenceChannels rate));
Chris@157 18
Chris@182 19 {
Chris@182 20 afReference
Chris@182 21 }
Chris@182 22
Chris@182 23