RSS/Atom feed Twitter
Site is read-only, email is disabled

help Perl-fu: Cannot save image

This discussion is connected to the gimp-user-list.gnome.org mailing list which is provided by the GIMP developers and not related to gimpusers.com.

This is a read-only list on gimpusers.com so this discussion thread is read-only, too.

1 of 1 message available
Toggle history

Please log in to manage your subscriptions.

help Perl-fu: Cannot save image Valter Mazzola 21 Feb 19:24
Valter Mazzola
2003-02-21 19:24:51 UTC (about 21 years ago)

help Perl-fu: Cannot save image

This script isn't able to save the logo in png format, i've tried othe formats but seesm there are bug in gimp.

I'm using GIMP version 1.2.3, Mandrake Linux 9.0.

thanks, valter

------------------------------------------------------ #!/usr/local/bin/perl

use Gimp ":auto"; use Gimp::Fu;
use strict;

sub net {
}

Gimp::init;
Gimp::on_net(\&net);

Gimp::set_trace (TRACE_ALL);

my $i=0;

system ("rm -f image_1.png");

script_fu_alien_glow_logo("hello hello $i", "150", "-*-utopia-bold-r-*-*-150-*-*-*-*-*-*-*", [255,0,0] );

my $img = &gimp_image_list();

my $fname = "image_1.png"; my $activelayer= &gimp_image_flatten($img);

file_png_save(RUN_NONINTERACTIVE, $img, $activelayer, $fname, $fname, 0, 9, 0, 0, 0, 0, 0);

# Handle over control to gimp

exit main();