From a86b7ddf871b545cb951c58d7dda2cedee80cf2a Mon Sep 17 00:00:00 2001 From: Andinus Date: Wed, 29 Jul 2020 21:22:18 +0530 Subject: Change color intensity, remove colors from state column The numbers are increasing & it made sense to increase values for bolder colors. Also, I changed from ON_COLOR to BOLD because the latter looks better. State colors were removed because it wasn't much helpful. --- ara.pl | 23 ++++++++++------------- 1 file changed, 10 insertions(+), 13 deletions(-) diff --git a/ara.pl b/ara.pl index b1766b0..b28cd31 100755 --- a/ara.pl +++ b/ara.pl @@ -271,13 +271,13 @@ foreach my $i ( 0 ... scalar @$statewise - 1 ) { $_ .= " " for ($confirmed, $recovered, $deaths); my $delta_confirmed = $statewise->[$i]{deltaconfirmed}; - if ( $delta_confirmed > 1000 ) { - $confirmed .= LOCALCOLOR BLACK ON_MAGENTA + if ( $delta_confirmed > 2000 ) { + $confirmed .= LOCALCOLOR BOLD MAGENTA sprintf "%+d", $delta_confirmed; - } elsif ( $delta_confirmed > 500 ) { + } elsif ( $delta_confirmed > 1000 ) { $confirmed .= LOCALCOLOR BRIGHT_MAGENTA sprintf "%+d", $delta_confirmed; - } elsif ( $delta_confirmed > 100 ) { + } elsif ( $delta_confirmed > 500 ) { $confirmed .= LOCALCOLOR MAGENTA sprintf "%+d", $delta_confirmed; } else { @@ -285,13 +285,13 @@ foreach my $i ( 0 ... scalar @$statewise - 1 ) { } my $delta_recovered = $statewise->[$i]{deltarecovered}; - if ( $delta_recovered > 1000 ) { - $recovered .= LOCALCOLOR BLACK ON_GREEN + if ( $delta_recovered > 2000 ) { + $recovered .= LOCALCOLOR BOLD GREEN sprintf "%+d", $delta_recovered; - } elsif ( $delta_recovered > 500 ) { + } elsif ( $delta_recovered > 1000 ) { $recovered .= LOCALCOLOR BRIGHT_GREEN sprintf "%+d", $delta_recovered; - } elsif ( $delta_recovered > 100 ) { + } elsif ( $delta_recovered > 500 ) { $recovered .= LOCALCOLOR GREEN sprintf "%+d", $delta_recovered; } else { @@ -299,16 +299,13 @@ foreach my $i ( 0 ... scalar @$statewise - 1 ) { } my $delta_deaths = $statewise->[$i]{deltadeaths}; - if ( $delta_deaths > 100 ) { - $state = LOCALCOLOR BLACK ON_RED $state; - $deaths .= LOCALCOLOR BLACK ON_RED + if ( $delta_deaths > 200 ) { + $deaths .= LOCALCOLOR BOLD RED sprintf "%+d", $delta_deaths; } elsif ( $delta_deaths > 50 ) { - $state = LOCALCOLOR BRIGHT_RED $state; $deaths .= LOCALCOLOR BRIGHT_RED sprintf "%+d", $delta_deaths; } elsif ( $delta_deaths > 25 ) { - $state = LOCALCOLOR RED $state; $deaths .= LOCALCOLOR RED sprintf "%+d", $delta_deaths; } else { -- cgit 1.4.1-2-gfad0