243 lines
8.9 KiB
Perl
Executable File
243 lines
8.9 KiB
Perl
Executable File
#!/usr/bin/perl
|
|
# gallery.pl
|
|
#
|
|
# Copyright (c) Fabian Frederick 2001
|
|
#
|
|
# 17/07/2001 (Fab)
|
|
# V2.0
|
|
# -Adding Html instance per picture + Header
|
|
# -Adding URL
|
|
#
|
|
# 07/07/2001 (Darkin)
|
|
# -Item was unreachable from menu because of RGB requesite -> undef.
|
|
#
|
|
# 17/6/2001 (Fab)
|
|
# V1.3
|
|
# -Adding global progression bar
|
|
# -Preserving Gimp cache (progressive image_delete)
|
|
# -Adding trailing / to path
|
|
# -Plugin crashed when no label was given
|
|
# 25/5/2001 (Fab)
|
|
# V1.2 -Bug in rotation parameter : OK
|
|
# -Adding color for label(Parasite editor helped here :) ).
|
|
# -Register as gallery_maker
|
|
# -Adding corner selection for copyright using layer_translate
|
|
# -Recovering colors for HTML (Thanks Marc).
|
|
#
|
|
# 18/19/5/2001 (Fab)
|
|
# V1.01 -Moving plug-in to Toolbox/Render menu
|
|
# -Added some error-handling
|
|
# -Automatically put html file in gallery path
|
|
# -Added some features to HTML generated
|
|
# -Simplified I/O
|
|
# -Status supply
|
|
# -Source is not overwritten anymore .... c$name applied.
|
|
# -Working in sub-path (using gallery title)
|
|
# -HTML file not deployed in /tmp (directly in dpath)
|
|
# 10-13/5/2001 (Fab)
|
|
# V1.0 First workable version.
|
|
#
|
|
|
|
use Gimp qw(:auto __ N_);
|
|
use Gimp::Fu;
|
|
use Gimp::Util;
|
|
|
|
#Gimp::set_trace(TRACE_ALL);
|
|
|
|
sub printHeader {
|
|
my ($rf,$gf,$bf,$r,$g,$b, $htmlFile,$gallerytitle)=@_;
|
|
printf $htmlFile "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 4.0//EN\">";
|
|
printf $htmlFile "<body bgcolor='#%x%x%x'>\n",$r,$g,$b;
|
|
printf $htmlFile "<center><font face=\"verdana,arial\" size=\"5\" color=\"#%x%x%x\">",$rf,$gf,$bf;
|
|
printf $htmlFile "$gallerytitle\n";
|
|
printf $htmlFile "<table><tr>\n";
|
|
}
|
|
|
|
|
|
sub printFooter {
|
|
my ($rf,$gf,$bf,$URL, $htmlFile)=@_;
|
|
printf $htmlFile "<br><br><hr size=\"1\" color=\"white\"><a href=\"$URL\">Back to previous page</a>\n";
|
|
printf $htmlFile "</body>\n</html>";
|
|
|
|
}
|
|
|
|
sub galleryMaker {
|
|
my ($path, $label, $labelcolor, $labelpos, $font, $bright, $contrast, $rotate, $scalefix, $fixed, $gallerytitle, $color, $foregroundcolor, $galleryfile,$columns,$parentURL) = @_;
|
|
|
|
$oldforeground=gimp_palette_get_foreground();
|
|
$path=$path.'/';
|
|
if ($path eq ""){
|
|
Gimp->message(__"All fields were not completed, sorry.");
|
|
exit main;
|
|
}
|
|
if ($fixed == 0){
|
|
Gimp->message(__"Scale factor has not to be 0");
|
|
exit main;
|
|
}
|
|
|
|
$countTotal=`ls $path*.jpg | wc -l`+`ls $path*.JPG | wc -l`;
|
|
$gallerytitle=~s/ /_/g;
|
|
opendir(cpath, $path) or die ("Unable to open destination path");
|
|
$sysval=system("mkdir $path$gallerytitle");
|
|
if ($sysval != 0){
|
|
Gimp->message(__"Make sure you've got write access to selected path ...\nMaybe the target path already exist in which case you can simply change the Gallery title and launch again");
|
|
exit main;
|
|
}
|
|
my $dpath="$path$gallerytitle/";
|
|
open (htmlFile, "> $dpath$galleryfile.html") or die ("Unable to process HTML File.");
|
|
|
|
my ($rf,$gf, $bf)=@$foregroundcolor;
|
|
my ($r,$g,$b)=@$color;
|
|
printHeader($rf,$gf,$bf,$r,$g,$b,htmlFile,$gallerytitle);
|
|
print htmlFile "<table><tr>\n";
|
|
my $totalentries=0;
|
|
my $entries=1;
|
|
my $twidthEval=0;
|
|
my $txtwidth=0;
|
|
my $txtheight=0;
|
|
my $ycorrection=0;
|
|
my $xcorrection=0;
|
|
|
|
Gimp->progress_init("Releasing the gallery");
|
|
while (defined($cfile=readdir(cpath))) {
|
|
if (( $cfile =~ /.jpg/ ) || ($cfile =~ /.JPG/)) {
|
|
my $img=gimp_file_load(RUN_NONINTERACTIVE,"$path$cfile", "$path$cfile");
|
|
my $clayer=gimp_image_get_active_layer($img);
|
|
if ($rotate != 0){
|
|
#plug_in_rotate manages both global 90-180-270 - reshape $img
|
|
plug_in_rotate(RUN_NONINTERACTIVE,$img,-1,$rotate,1);
|
|
}
|
|
|
|
my $width=gimp_image_width($img);
|
|
my $height=gimp_image_height($img);
|
|
gimp_brightness_contrast($clayer, $bright, $contrast);
|
|
if ( $label ne "" ){
|
|
my $newlayer=gimp_layer_new($img, 200, 100, RGB_IMAGE, "newlayer", 100, NORMAL_MODE);
|
|
gimp_palette_set_foreground($labelcolor);
|
|
my $txtlayer=gimp_text_fontname($img, -1, 1, 1, $label, 0, 0, 16, 0, $font);
|
|
if ($twidthEval == 0) {
|
|
$txtwidth=gimp_drawable_width($txtlayer);
|
|
$txtheight=gimp_drawable_height($txtlayer);
|
|
$twidthEval=1;
|
|
}
|
|
$ycorrection=$height-$txtheight if (($labelpos == 2) || ($labelpos == 3));
|
|
$xcorrection=$width-$txtwidth if (($labelpos == 1) || ($labelpos == 3));
|
|
gimp_layer_translate($txtlayer, $xcorrection, $ycorrection);
|
|
gimp_image_merge_visible_layers($img,0);
|
|
}
|
|
my $cvname="$dpath$cfile";
|
|
#$cvname=~s/ /c/g;
|
|
($img->get_layers)[0]->file_jpeg_save("$cvname", "$cvname",0.7,0,1,0,"",0,1,0,0);
|
|
|
|
#Processing Thumbnail
|
|
my $tbheight=1;
|
|
my $tbwidth=1;
|
|
if ($scalefix == 1){
|
|
my $scalefactor=$width/$fixed;
|
|
$tbheight=$height/$scalefactor;
|
|
$tbwidth=$fixed;
|
|
}else{
|
|
if ($scalefix == 2) {
|
|
my $scalefactor=$height/$fixed;
|
|
my $newwidth=$width/$scalefactor;
|
|
$tbwidth=$newwidth;
|
|
$tbheight=$fixed;
|
|
}else {
|
|
# scalefix 0 => both scaled by factor (value_factor)
|
|
$tbwidth=$width/$fixed;
|
|
$tbheight=$height/$fixed;
|
|
}
|
|
}
|
|
my $tbfname="$dpath $cfile";
|
|
$tbfname=~s/ /m/g;
|
|
system("cp $cvname $tbfname");
|
|
gimp_image_delete($img);
|
|
my $img=gimp_file_load(RUN_NONINTERACTIVE,"$tbfname", "$tbfname");
|
|
my $clayer=gimp_image_get_active_layer($img);
|
|
gimp_image_scale($img, $tbwidth, $tbheight);
|
|
|
|
#Processing detail HTML
|
|
my $htmlDetail=$cfile;
|
|
$htmlDetail=~s/.jpg/.html/g;
|
|
$htmlDetail=~s/.JPG/.html/g;
|
|
open (fhtmlDetail, "> $dpath$htmlDetail") or die ("Unable to process HTML File.");
|
|
printHeader($rf,$gf,$bf,$r,$g,$b,fhtmlDetail,$gallerytitle);
|
|
print fhtmlDetail "<img src=\"$cfile\"></img>";
|
|
printFooter($rf,$gf,$bf,"$galleryfile.html", fhtmlDetail);
|
|
close fhtmlDetail;
|
|
file_jpeg_save(RUN_NONINTERACTIVE,$img, ($img->get_layers)[0],"$tbfname", "$tbfname",0.7,0,1,0,"",0,1,0,0);
|
|
print htmlFile " <td><a href='$htmlDetail'><img src='m$cfile' border='0'></a></td>\n";
|
|
if ($entries >= $columns){
|
|
print htmlFile "</tr><tr>";
|
|
$entries=1;
|
|
}else{
|
|
$entries=$entries+1;
|
|
}
|
|
$totalentries=$totalentries+1;
|
|
Gimp->progress_update ($totalentries/$countTotal);
|
|
gimp_image_delete($img);
|
|
}
|
|
}
|
|
Gimp->progress_update(1);
|
|
print htmlFile "</table>\n";
|
|
printFooter($rf,$gf,$bf,$parentURL, htmlFile);
|
|
close htmlFile;
|
|
Gimp->message(__"Your gallery ($galleryfile) has been generated through Gallery plug-in with $totalentries entries");
|
|
gimp_palette_set_foreground($oldforeground);
|
|
# return();
|
|
|
|
}
|
|
|
|
$help=<<EOF.$help;
|
|
This script will hopefully help you creating an html gallery of a path full of JPG pictures ... This one creates thumbnails - Copyright notice on picture and some other cool tips.
|
|
EOF
|
|
|
|
register("gallerymaker",
|
|
"Generate your gallery in HTML format + some picture improvements",
|
|
$help,
|
|
"Fabian Frederick <Fabian.Frederick\@gmx.fr>",
|
|
"(c) 2001 Fabian Frederick",
|
|
"20010601",
|
|
N_"<Toolbox>/Xtns/Render/Gallery Maker",
|
|
undef,
|
|
[
|
|
[PF_FILE, "path", "Destination path .... "],
|
|
[PF_STRING, "label", "Text to add at the top of each picture"],
|
|
[PF_COLOR, "label_color", "Color of the label to be displayed on each picture", [255,255,255]],
|
|
[PF_RADIO, "label_position", "Position of your text label...", 0, [ UpLeft => 0, UpRight => 1, DownLeft => 2, DownRight => 3 ]],
|
|
[PF_FONT, "displayfont", "Select font", undef ],
|
|
[PF_SLIDER, "brightness", "Brightness correction", 0, [ -127, 127]],
|
|
[PF_SLIDER, "contrast", "Contrast correction", 0, [-127,127]],
|
|
[PF_RADIO, "rotate", "Rotation angle", 0, [ None => 0, Rotate90CCW => 3, Rotate90 => 1]],
|
|
[PF_RADIO, "scalefix", "Scale fixing for thumbnails", 1 ,[ both_by_factor => 0, X => 1, Y => 2 ]],
|
|
[PF_INT32, "value_factor", "value or factor", 150],
|
|
[PF_STRING, "gallery_title", "Gallery's Title" ],
|
|
[PF_COLOR, "background_color","Gallery background color", [100,100,100]],
|
|
[PF_COLOR, "foreground_color","Gallery background color", [255,255,255]],
|
|
[PF_STRING, "gallery_file", "HTML file generated" ],
|
|
[PF_INT32, "columns", "Gallery columns number", 2],
|
|
[PF_STRING, "parent_file", "Gallery's parent URL" ]
|
|
],
|
|
\&galleryMaker);
|
|
exit main;
|
|
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
Gallery Maker
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
Gallery Maker
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
Gallery Maker is a Gimp plugin.It generates an HTML file from all pictures it finds in a designed path.A thumbnail is generated from each picture with a desired global scale or X or Y fixed...This tool will hopefully help batch conversions from photo albums for instance as you can add copyright notice on source picture but also adjust brightness/contrast or give polar rotations ....
|
|
Convention used here is the following : All pictures converted is c<name> ....Relative thumbnail is m<name>
|
|
Note : This plugin only processes JPG pictures.
|
|
|
|
=head1 AUTHOR
|
|
|
|
Written by Fabian Frederick <fabian.frederick@gmx.fr>, (c) 2001
|