diff options
Diffstat (limited to 'icons/gen-load-icons.sh')
-rwxr-xr-x | icons/gen-load-icons.sh | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/icons/gen-load-icons.sh b/icons/gen-load-icons.sh index 2ff765e..6b07de9 100755 --- a/icons/gen-load-icons.sh +++ b/icons/gen-load-icons.sh @@ -8,16 +8,19 @@ use Image::Xpm; use POSIX; my $iwidth = 8; -my $iheight = 16; -my $pixels_per = $iheight / 8; +my $iheight = 24; +my $pixels_per = 2; my $color_bg = "white"; -my $color_fg = "darkseagreen"; +# my $color_fg = "darkseagreen"; +my $color_fg = "grey90"; + +# $color_bg = "black"; +# $color_fg = "grey40"; for ( my $file_num = 0; $file_num <= 8; $file_num++ ) { - my $i = Image::Xpm->new(-file => "load_$file_num.xpm", - -width => $iwidth, - -height => $iheight, - -background => $color_bg); + my $fname = "load_$file_num.xpm"; + unlink $fname; + my $i = Image::Xpm->new(-file => $fname, -width => $iwidth, -height => $iheight); my $h = $file_num * $pixels_per; @@ -26,8 +29,9 @@ for ( my $file_num = 0; $file_num <= 8; $file_num++ ) { $i->xy($x, $y, $color_bg); } } + for ( my $x = 0; $x < $iwidth; $x++ ) { - for ( my $y = $iheight; $y >= ($iheight - $h); $y-- ) { + for ( my $y = ($iheight - 6); $y >= ($iheight - 6 - $h); $y-- ) { $i->xy($x, $y, $color_fg); } } |