current/SOURCES/gimp-scripting-sample.pl

#!/usr/bin/perl

# For faster multiple execs, start a gimp, and do Xtns/Perl/Server.

#- (gc) this shit wasted me something like 2 hours: opposedly to what's
#- claimed in the doc, we need to precise `:auto' in the imports, grrrrr..
use Gimp qw(:consts main xlfd_size :auto);

Gimp::init();
#- disable the following when your script is finished
Gimp::set_trace(TRACE_ALL);

my $img = gimp_file_load("/tmp/t.png", "/tmp/t.png");

my $w = gimp_image_width($img);
my $h = gimp_image_height($img);

my $rot = gimp_rotate(gimp_image_active_drawable($img), 1, 0.0872664625997165);

gimp_crop($img, $w, $h, 0, 0);

gimp_file_save($img, $rot, "/tmp/t_.png", "/tmp/t_.png");

Gimp::end();

1	ahmad	24820	#!/usr/bin/perl
2
3			# For faster multiple execs, start a gimp, and do Xtns/Perl/Server.
4
5			#- (gc) this shit wasted me something like 2 hours: opposedly to what's
6			#- claimed in the doc, we need to precise `:auto' in the imports, grrrrr..
7			use Gimp qw(:consts main xlfd_size :auto);
8
9			Gimp::init();
10			#- disable the following when your script is finished
11			Gimp::set_trace(TRACE_ALL);
12
13			my $img = gimp_file_load("/tmp/t.png", "/tmp/t.png");
14
15			my $w = gimp_image_width($img);
16			my $h = gimp_image_height($img);
17
18			my $rot = gimp_rotate(gimp_image_active_drawable($img), 1, 0.0872664625997165);
19
20			gimp_crop($img, $w, $h, 0, 0);
21
22			gimp_file_save($img, $rot, "/tmp/t_.png", "/tmp/t_.png");
23
24			Gimp::end();
25