Hi All, I have just written a couple of little perl scripts to convert existing gimp-1.2.x palettes and gradients into a form that gimp-1.3.20 finds acceptable. In the hope that others might find them useful, I have attached them.
Happy Gimping! -- --Jeff Jeff Trefftzs <[EMAIL PROTECTED]> http://www.tcsn.net/trefftzs Home Page http://gug.sunsite.dk/gallery.php?artist=68 Gimp Gallery http://trefftzs.topcities.com/ Photo Gallery
#!/bin/env perl # grad2-1.3.pl: convert gimp gradients from old (1.2 format) to # gimp-1.3 format by adding a Name: gradient name line and a .ggr # extension to the output file. # usage: grad2-1.3.pl <list of old gradients> <output directory> use strict; use File::Basename; # Make sure the last arg is a target directory my $outdir = $ARGV[$#ARGV]; die "grad2-1.3.pl: last parameter should be a directory.\n" unless (-d $outdir); if (substr($outdir, length($outdir), 1) ne '/') { $outdir .= '/'; } $#ARGV--; # Get the first gradient name my ($fname, $path, $ext) = fileparse($ARGV[0]); print STDERR "$fname\n"; my $outfname = $outdir . $fname . '.ggr'; # .ggr extension print STDERR "Outfname is $outfname\n"; open(GRAD, ">$outfname") or die "Can't open output file\n"; while(<>) { if ($. == 2) { my $gradname = $fname; $gradname =~ s/_/ /g; # convert underscores to spaces print GRAD "Name: $gradname\n"; } print GRAD; next unless (eof); close ARGV; # reset line numbers last unless ($ARGV[0]); close GRAD; ($fname, $path, $ext) = fileparse($ARGV[0]); $outfname = $outdir . $fname . '.ggr'; print STDERR "$fname\n"; print STDERR "Outfilename is $outfname\n"; open(GRAD, ">$outfname") or die "Can't open output file\n"; } close GRAD;
#!/bin/env perl # palette2-1.3.pl: convert gimp paletteients from old (1.2 format) to # gimp-1.3 format by adding a Name: palette name line and a .gbr # extension to the output file. # usage: palette2-1.3.pl <list of old palettes> <output directory> use strict; use File::Basename; # Make sure the last arg is a target directory my $outdir = $ARGV[$#ARGV]; die "palette2-1.3.pl: last parameter should be a directory.\n" unless (-d $outdir); if (substr($outdir, length($outdir), 1) ne '/') { $outdir .= '/'; } $#ARGV--; # Get the first palette name my ($fname, $path, $ext) = fileparse($ARGV[0]); print STDERR "$fname\n"; my $outfname = $outdir . $fname . '.gpl'; # .gpl extension print STDERR "Outfname is $outfname\n"; open(PALETTE, ">$outfname") or die "Can't open output file\n"; while(<>) { if ($. == 2) { my $palettename = $fname; $palettename =~ s/_/ /g; # convert underscores to spaces print PALETTE "Name: $palettename\n"; } print PALETTE; next unless (eof); close ARGV; # reset line numbers last unless ($ARGV[0]); close PALETTE; ($fname, $path, $ext) = fileparse($ARGV[0]); $outfname = $outdir . $fname . '.gpl'; print STDERR "$fname\n"; print STDERR "Outfilename is $outfname\n"; open(PALETTE, ">$outfname") or die "Can't open output file\n"; } close PALETTE;
_______________________________________________ Gimp-user mailing list [EMAIL PROTECTED] http://lists.xcf.berkeley.edu/mailman/listinfo/gimp-user