I have been trying to get Gimp Perl to run without success for a while now.
I have decided to try another way..
The script i want to run is as follows;
#!/usr/bin/perl
use Gimp qw( :auto );
use Gimp::Fu;
register "center_guide",
"Creates h- & v-guides at the center of the image.",
"Physical center = width/2 and height/2; Optical center = the
Golden Mean.",
"Claes G Lindblad <[EMAIL PROTECTED]>",
"Claes G Lindblad",
"990323",
"<Image>/Center Guide",
"*",
[
[PF_RADIO,
"center",
"center",
0,
[Physical => 0, Optical => 1]
]
],
sub {
my ($img, $layer, $center) = @_;
$w = $img->width();
$h = $img->height();
$hc = int($h/2 + 0.5);
$vc = int($w/2 + 0.5);
if ($center == 1) {
$hc = int(($h / 2.6179) + 0.5);
};
$bit_bucket = $img->add_hguide($hc);
$bit_bucket = $img->add_vguide($vc);
gimp_drawable_update($layer, 0, 0, $w, $h);
};
exit main;
How do i convert it to python?
Python i DO have working...
(I did try to mail the author, but i got a bounced mail...)
--
/Rikard
" Sharing knowledge is the most fundamental act of friendship.
Because it is a way you can give something without loosing something."
-R. Stallman
---------------------------------------------------------------
Rikard Johnels email : [EMAIL PROTECTED]
Mob : +46 763 19 76 25
PGP : 0x461CEE56
---------------------------------------------------------------
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.xcf.berkeley.edu
http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user
