next;
}
- system "convert -trim -geometry 400x $source $image";
+ #system "convert -trim -geometry 400x $source $image";
+ system qq{convert -fill white -draw "color 1,1 floodfill" -trim -geometry 400x $source $image};
#system "convert $image -scale 100x100 -gravity center -background white -extent 100x100 $thumb";
system qq{convert $source -fill white -draw "color 1,1 floodfill" -scale 100x100 -gravity center -background white -extent 100x100 $thumb};
$i->{image} = $image;