May

    var padded = true;

    var windower = id;

    var transform = id;

    for options \case of

        Hop h: hop := h;

        Padded p: padded := p;

            if f then

                transform := mat.mapRows (fft.realForwardMagnitude framesize);

            fi;

    esac;

    map transform

       (map windower

complexFrames framesize options stream =

   (var hop = framesize;

    var windower = id;

    var rowTransform = 

        do r: complex.complexArray r (vec.zeros (vec.length r)) done;

    for options \case of

        Hop h: hop := h;

        Padded p: padded := p;

            if f then 

                rowTransform := fft.realForward framesize;

            fi;

    esac;

    map do m:

        cm.fromRows (map rowTransform (mat.asRows m))

        done

       (map windower

streamContiguous rate framesize frames =

   (var remaining = frames;