kalipso/racalmas
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

audio.pm: round loudness level

Browse Source
This commit is contained in:
Milan
2022-04-22 13:40:46 +02:00
parent 36204c5a6b
commit 61ab74e7a6
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/calcms/audio.pm
View File

@@ -87,6 +87,7 @@ sub formatBitrateMode($) {
sub formatLoudness { sub formatLoudness {
my $value = shift; my $value = shift;
my $prefix = shift || ''; my $prefix = shift || '';
my $round = shift || '';
return '' unless $value; return '' unless $value;
$value = sprintf( "%.1f", $value ); $value = sprintf( "%.1f", $value );
@@ -96,6 +97,7 @@ sub formatLoudness {
$class = 'error' if $value > -16.0; $class = 'error' if $value > -16.0;
$class = 'warn' if $value < -24.0; $class = 'warn' if $value < -24.0;
$class = 'error' if $value < -27.0; $class = 'error' if $value < -27.0;
$value = int($value+0.5) if $round;
return qq{<div class="badge-$class">$prefix$value dB</div>}; return qq{<div class="badge-$class">$prefix$value dB</div>};
} }