+
+ if ( ! -e $source ) {
+ warn "ERROR: no image $source";
+ next;
+ }
+
+ #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 -gravity south -background white -extent 100x100 $thumb};