put all small images down to bottom (south)
authorDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 23 Jan 2021 11:29:39 +0000 (12:29 +0100)
committerDobrica Pavlinusic <dpavlin@rot13.org>
Sat, 23 Jan 2021 11:29:39 +0000 (12:29 +0100)
csv2js.pl

index a1fa2d3..cdba38b 100755 (executable)
--- a/csv2js.pl
+++ b/csv2js.pl
@@ -31,7 +31,7 @@ foreach my $i ( @$aoh ) {
        #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};
+       system qq{convert $source -fill white -draw "color 1,1 floodfill" -scale 100x100 -gravity center -gravity south -background white -extent 100x100 $thumb};
        $i->{image} = $image;
        $i->{thumbnail} = $thumb;
 #      $i->{label} = $i->{opis_predmeta};