#!/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();