Revert "I'll do myself one better: three lines with GD"

This reverts commit 4357bd2.

lib/Acoustics/Web.pm

@@ -9,7 +9,8 @@ use Moose;
 use Module::Load 'load';
 use List::Util 'shuffle';
 use LWP::Simple;
-use Image::Resize;
+use Image::Imlib2;
+use File::Temp qw/ tempfile /;
 
 
 has 'psgi_env'  => (is => 'ro', isa => 'HashRef');
@@ -1166,9 +1167,20 @@ sub art
 		$albumart = "www-data/icons/cd_case.png";
 	}
 
-	my $image_in  = Image::Resize->new($albumart);
-	my $image_out = $image_in->resize($size,$size);
-	my $buf = $image_out->png();
+	my $image_in  = Image::Imlib2->load($albumart);
+	my $image_out = $image_in->create_scaled_image($size,0);
+	my ($fh, $filename) = tempfile(SUFFIX => '.png');
+	close($fh);
+	$image_out->image_set_format("png");
+	$image_out->save($filename);
+
+	open ART, "<", $filename or return [], {error => "Failed to open art file."};
+	binmode ART;
+	my ($buf, $data, $n);
+	while (($n = read ART, $data, 655360) != 0) {
+		$buf .= $data;
+	}
+	close(ART);
 
 	return [-type => $art_type], $buf;
 }