diff aux/loudnesstest.m @ 6:ed0a8621b96a

prepare2listen small fixes, manual, standard target loudness (-23 dBLUFS)

--- a/aux/loudnesstest.m	Sun Nov 23 23:24:35 2014 +0000
+++ b/aux/loudnesstest.m	Mon Nov 24 16:55:55 2014 +0000
@@ -1,8 +1,10 @@
 % test loudness mod
 
+tic; 
+
 % target loudness and test file
 target_loudness = -18;  % dBLU
-filename = '';
+filename = 'pro.wav';
 
 % import sound file
 [audio, fs] = audioread(filename); 
@@ -14,9 +16,12 @@
 % apply gain
 difference_loudness = target_loudness - initial_loudness;
 disp(['Difference in loudness: ' num2str(difference_loudness)]);
-audio = 10^(difference_loudness/10) .* audio;
-disp(['Gain: ' num2str(10^(difference_loudness/10))]);
+audio = 10^(difference_loudness/20) .* audio;
+disp(['Gain: ' num2str(10^(difference_loudness/20))]);
 
 % measure and display loudness (should be equal to target loudness)
 resulting_loudness = getloudness(audio, fs, 'ITU', 0);
-disp(['Resulting loudness: ' num2str(resulting_loudness)]);
\ No newline at end of file
+disp(['Resulting loudness: ' num2str(resulting_loudness)]);
+
+elapsed_time = toc;
+disp(['Elapsed time: ' num2str(elapsed_time)]);
\ No newline at end of file