May

audiofile read tests

feature tests - specdiff

simplify packages

resampling stream

recording stream (javasound) -- how to interrupt record/playback?

name!

module yetilab.feature.feature;

vec = load yetilab.vector.vector;

fr = load yetilab.stream.framer;

// Utility functions for feature extractors

magdiff frame1 frame2 =

    sum (map2 do a b: abs(a - b) done (vec.list frame1) (vec.list frame2));

emptyFrameFor frames =

    vec.zeros

        if empty? frames then 0

        else vec.length (head frames)

        fi;

features featureFunc frames =

   (featuresOf prev frames =

        case frames of

        frame::rest: featureFunc prev frame :. \(featuresOf frame rest);

         _: [];

        esac;

    featuresOf (emptyFrameFor frames) frames);

{ magdiff, emptyFrameFor, features };

module yetilab.feature.specdiff;

vec = load yetilab.vector.vector;

fr = load yetilab.stream.framer;

cplx = load yetilab.vector.complex;

load yetilab.feature.feature;

specdiff frames = 

    features magdiff (map cplx.magnitudes frames);

specdiffOfFile parameters filename =

    specdiff (fr.frequencyDomainFramesOfFile parameters filename);

{

    specdiff,

    specdiffOfFile,

}

//!!! docs from turbot

    filt.withDuration (2 * rate)

       (filt.multiplexed (take channels (referenceChannels rate)));

ref = load yetilab.stream.test.audiofile_reference;

{ compare, compareUsing } = load yetilab.test.test;

readAll stream =

    case stream.available of

    Known n: stream.read n;

    _: failWith "Known-duration stream required";

    esac;

testReferenceFile rate channels bitdepth =

   (test = readAll (af.open (testfile "\(rate)-\(channels)-\(bitdepth)"));

    ref = readAll (ref.afReference rate channels);

    compareUsing mat.equal test ref);

"8000-1-8": \(

    testReferenceFile 8000 1 8;

),

"44100-2-16": \(

    testReferenceFile 44100 2 16;

),