 ;;                            public static int xtract_rms_amplitude(SWIGTYPE_p_double data, int N, SWIGTYPE_p_void argv, double[] result)
 
                             (let [rms (double-array [0])
+                                  noiseness (double-array [0])
+                                  loudness (double-array [0])
+                                  tonality (double-array [0])
                                   argv [(/ SAMPLERATE block-size)]
 
                                   spectral-inharmonicity (spectral-inharmonicity

                                                          f0 0.5 NUM_HARMONICS 0)]

                              (xtract/xtract_rms_amplitude ds block-size (apply xtract-args argv) rms)

                              {(* idx SAMPLERATE)
                               {:spectral-inharmonicity spectral-inharmonicity
                                :rms_amplitude (first rms)
                                :midi midi
                                :f0 f0}
                               }))

        block-size 512
        half-block-size (/ 512 2)

        mel-filters  (xtract/create_filterbank  MFCC_FREQ_BANDS block-size)

      ;;  bark-band-limits (xtract/new_int_array 0)
    ;;    _ (xtract/int_array_setitem bark-band-limits 0 0)
        ]

    (xtract/xtract_init_mfcc (/ block-size 2)
                             (/ SAMPLERATE 2)
