audio.pm: round loudness level

2022-04-22 13:40:46 +02:00
parent 36204c5a6b
commit 61ab74e7a6
1 changed files with 2 additions and 0 deletions
--- a/lib/calcms/audio.pm
+++ b/lib/calcms/audio.pm
@@ -87,6 +87,7 @@ sub formatBitrateMode($) {
 sub formatLoudness {
    my $value = shift;
    my $prefix = shift || '';
+    my $round = shift || '';
    return '' unless $value;

    $value = sprintf( "%.1f", $value );
@@ -96,6 +97,7 @@ sub formatLoudness {
    $class = 'error' if $value > -16.0;
    $class = 'warn'  if $value < -24.0;
    $class = 'error' if $value < -27.0;
+    $value = int($value+0.5) if $round; 

    return qq{<div class="badge-$class">$prefix$value dB</div>};
 }