diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-02-18 23:59:48 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-02-18 23:59:48 +0100 |
commit | b4dfd9ce0f4e600409292cbbec5d2940ca0bab46 (patch) | |
tree | dcbc9f9b4d752c284c653095068690ce9d7ce906 /bin | |
parent | 0dc2bd910f19f6eb48eec26d08539d448511d1d4 (diff) |
vdf: More compact display
Diffstat (limited to 'bin')
-rwxr-xr-x | bin/vdf | 23 |
1 files changed, 16 insertions, 7 deletions
@@ -125,9 +125,16 @@ sub show_df_console { } sub show_df_png { - my $spacing = 35; + my $spacing = 32; my $h = @mounts * $spacing; - my $w = 220; + my $w = 200; + my $offset_left = 5; + my $offset_top = 3; + my $offset_right = 5; + my $offset_free = $w - $offset_right - (6 * 6); + my $bar_width = $w - $offset_left - $offset_right; + my $bar_height = 10; + my $bar_top = $offset_top + 13; my $im = GD::Image->new($w, $h); my $black = $im->colorAllocateAlpha( 0, 0, 0, $alpha); @@ -143,12 +150,14 @@ sub show_df_png { my $mount = $mounts[$i]; my $percent = $mount->[4]->{'used'} * 100 / $mount->[4]->{'blocks'}; - $im->string(gdSmallFont, 10, $spacing * $i + 4, $mount->[1], - $black); - $im->string(gdSmallFont, $w - 46, $spacing * $i + 4, + $im->string(gdSmallFont, $offset_left, $spacing * $i + $offset_top, + $mount->[1], $black); + + $im->string(gdSmallFont, $offset_free, $spacing * $i + $offset_top, sprintf("%6s", format_size($mount->[4]->{'bavail'})), $black); - $im->copy(bar_png($percent, $w - 20, 10), 10, $spacing * $i + 17, 0, - 0, $w - 20, 10); + + $im->copy(bar_png($percent, $bar_width, $bar_height), $offset_left, + $spacing * $i + $bar_top, 0, 0, $bar_width, $bar_height); } open(my $out_fh, '>', '/tmp/vdf.png'); |