Re: 1.1.19-installation fails
Hi all, > programm in this distribution that includes "msgmerge"? I found and installed it. It's also found by "make", but the next problem came directly after that (it's last words again): /usr/bin/perl ../pxgettext `find .. -name '*.pm' -o -name '*.xs' -o -path '../examples/*'` ../Perl-Server > gimp-perl.pot~ if cmp -s gimp-perl.pot~ gimp-perl.pot; then : ; else mv gimp-perl.pot~ gimp-perl.pot; fi msgmerge -w 83 cs.po gimp-perl.pot >cs.po~ .. done. if cmp -s cs.po~ cs.po; then : ; else mv cs.po~ cs.po; fi no -o cs.gmo cs.po make[4]: no: Command not found make[4]: *** [cs.gmo] Error 127 make[4]: Leaving directory `/opt/gimp-1.1.19/plug-ins/perl/po'make[3]: *** [subdirs] Error 2 make[3]: Leaving directory `/opt/gimp-1.1.19/plug-ins/perl' make[2]: *** [all-recursive] Error 1 ...stop I already looked for cs.gmo and cs.po but there is nothing like this in my Distriution. How could I go on? Hago
Re: Organized
On Sat, 01 Apr 2000, Per Pettersson wrote: > Hi all! > > Would'nt it be better if all mails from this list could have a [gimplist] in > their subject? This would really help me (and others maybe) out a bit, > because I work with Linux.com -Support and with The Swedish Linux Society, > so it's kinda hard to know wich mails are from whom... > Hello, All of my emails from the list say: TO: [EMAIL PROTECTED] Gordon
Perl-fu. Error when saving file.
Hello,
I have a simple Perl-fu script that loads a jpeg file, scales it
and then save the image in a new file.
At least this is how is should work! The following error occurs
when it attempts to save the file:
file_jpeg_save: procedural database execution failed at ./image_resize.pl
line 44 (DIE)
Thank you!
I am also including the script:
#!/usr/bin/perl -w
use IO::File;
use File::Find;
use File::Basename;
use Gimp qw( :auto );
use Gimp::Fu;
sub pt_image_scale {
my ($ImagePath, $newImagePath
) = @_;
# Create a temporary file
to hold the file names of the images to be process.
$fh = IO::File->new("> /tmp/img.txt")
|| die "Unable to create a new temporary file: $!";
find (\&write_files,
$ImagePath );
# Close temp file.
$fh->close();
# Read the temp file.
$input = IO::File->new("<
/tmp/img.txt") || die "Unable to open temporary file for reading: $!";
while( defined( $fullImagePath
= $input->getline()))
{
chomp ( $fullImagePath );
$image_name = $fullImagePath;
# Load image from disk
$image = file_jpeg_load(RUN_NONINTERACTIVE, "$image_name","$image_name");
# Resize everything
gimp_image_scale($image, 100, 100);
$imageName = basename($fullImagePath);
$newImageFullPath = "$newImagePath" . "/" . "$imageName";
# Write the new file
file_jpeg_save( RUN_NONINTERACTIVE,$image,-1,"$newImageFullPath","$newImageFullPath",1,0,0)
or die "Could not save file $newImageFullPath\n";
gimp_image_delete($image);
}
$input->close();
return 1;
}sub write_files {
($name, $path, $suffix)
= fileparse( $File::Find::name, '\.jpg','\.jpeg','\.JPG','\.JPEG','\.gif','\.GIF');
if ( $suffix ne "")
{
print $fh "$File::Find::name\n";
}
}
register
"pt_image_scale",
#
"Sacle a image to the desired
size", #
"A test script",
#
"MB",
#
"PT",
#
"03/30/2000",
#
"/Xtns/Perl-Fu/PT/Toolbar",#
menu path
"*",
# Image types
[
[PF_STRING, "path_in","image
path in","./OLD"],
[PF_STRING, "path_out","image
path out","./NEW"]
],
\&pt_image_scale;
exit main();
---
Mihail Baba
mailto:[EMAIL PROTECTED]
Re: 1.1.19-installation fails
Hi, > > I tried to install Gimp 1.1.19 > > Configuration is OK > > Make stops after a while. Its last words have been: > > That's my fault. I tried to make the i18n-stuff more gnome-like. > My question is: how do I fix that? My basdic problem is that I have no good > way to detect wether msgmerge is available. Does that mean, that I will not be able to run 1.1.19 on my machine ? I'm running a SuSE 6.3 . Is there perhaps a programm in this distribution that includes "msgmerge"? Or could I do something else ? > ...I still have not done much progress :( Courage ! Regards Hago
Re: Organized
On Sat, Apr 01, 2000 at 02:32:29PM +0200, Per Pettersson <[EMAIL PROTECTED]> wrote: > Hi all! > > Would'nt it be better if all mails from this list could have a [gimplist] in There is no sense punishing people, so the answer is a clear: no! > because I work with Linux.com -Support and with The Swedish Linux Society, > so it's kinda hard to know wich mails are from whom... Filter them. I can't count the number of ways to do this, there is an endless number of tools to do that, and most (even netscape) mailers can do that as well. -- -==- | ==-- _ | ---==---(_)__ __ __ Marc Lehmann +-- --==---/ / _ \/ // /\ \/ / [EMAIL PROTECTED] |e| -=/_/_//_/\_,_/ /_/\_\ XX11-RIPE --+ The choice of a GNU generation | |
Re: 1.1.19-installation fails
On Sat, Apr 01, 2000 at 05:48:20PM +0200, Hago Ziegler <[EMAIL PROTECTED]> wrote: > I tried to install Gimp 1.1.19 > Configuration is OK > Make stops after a while. Its last words have been: That's my fault. I tried to make the i18n-stuff more gnome-like. My question is: how do I fix that? My basdic problem is that I have no good way to detect wether msgmerge is available. The "old" solution was that you had to clal update.sh to force an update (it's not done by default). NMow I changed it to do it whenever necessary. The problem is that gettext.m4 doesn't seem to give me enough information to detect wether msgmerge is available or not. Should I just ignore the error when msgmerge can't be found? BTW, an alternative solution would be to revert the whole i18n stuff to the way it was before the many changes I did in recent times (it was working but not following the gimp standard). I am chasing the vaguely-defined and non-documented i18n makefile standards since months, and I still have not done much progress :( -- -==- | ==-- _ | ---==---(_)__ __ __ Marc Lehmann +-- --==---/ / _ \/ // /\ \/ / [EMAIL PROTECTED] |e| -=/_/_//_/\_,_/ /_/\_\ XX11-RIPE --+ The choice of a GNU generation | |
Re: gimp/perl problem on solaris
On Fri, Mar 31, 2000 at 11:13:08AM -0500, Mike Markowski <[EMAIL PROTECTED]> wrote:
> Hi all,
>
> When I try to start gimp on a Solaris 8 box, I get these errors
> regarding something called _eprintf. Does any know what I'm missing?
Yes, _eprintf ;) No, sorry, I have no idea where this symbol comes from.
Could you look (= grep) through your include files for that symbol? Maybe
it's some kind of #define printf eprintf (who knows ;)-
What compiler did you use? I suppose it wasn't gcc (if you have gcc
installed, could you try it with gcc, just for a comparison)?
> (I seem to not be linking with whatever library contains eprintf,
> but I don't know which that would be...)
Neither do I. My best guesses are that perl itself misdetected something that
I use (leading to the eprintf), or that gimp's configure in detected
something that is not _really_ available (like vsnprintf..).
Could you edit the file plug-ins/perl/Gimp/Lib.xs, search for
#if __STDC_VERSION__ > 199900
and replace it by:
#if 1
#include
static void trace_printf (char *frmt, ...) { }
#elif 0
and then check wether the problem goes away? That place is the most
probably cause.
Thanks!
--
-==- |
==-- _ |
---==---(_)__ __ __ Marc Lehmann +--
--==---/ / _ \/ // /\ \/ / [EMAIL PROTECTED] |e|
-=/_/_//_/\_,_/ /_/\_\ XX11-RIPE --+
The choice of a GNU generation |
|
1.1.19-installation fails
Hi all, I tried to install Gimp 1.1.19 Configuration is OK Make stops after a while. Its last words have been: ... make[4]: Entering directory `/opt/gimp-1.1.19/plug-ins/perl/po' /usr/bin/perl ../pxgettext `find .. -name '*.pm' -o -name '*.xs' -o -path '../examples/*'` ../Perl-Server > gimp-perl.pot~ if cmp -s gimp-perl.pot~ gimp-perl.pot; then : ; else mv gimp-perl.pot~ gimp-perl.pot; fi msgmerge -w 83 cs.po gimp-perl.pot >cs.po~ /bin/sh: msgmerge: command not found make[4]: *** [cs.po] Error 127 make[4]: Leaving directory `/opt/gimp-1.1.19/plug-ins/perl/po' make[3]: *** [subdirs] Error 2 make[3]: Leaving directory `/opt/gimp-1.1.19/plug-ins/perl' make[2]: *** [all-recursive] Error 1 make[2]: Leaving directory `/opt/gimp-1.1.19/plug-ins' make[1]: *** [all-recursive] Error 1 make[1]: Leaving directory `/opt/gimp-1.1.19' make: *** [all-recursive-am] Error 2 By the way: Gimp 1.1.18 and before 1.1.17 have been compiling and running perfectly. Someone can help me? Hago
Re: Combining several *.pbm into one picture with layers
Raoul Boenisch <[EMAIL PROTECTED]> writes: > You think so? Isn't it an all day task? I draw images by hand to > form an animation and then scan them all with my fax-device which > has an automagic page feeder. That's comfortable. But it is not very > comfortable to load every image into a layer by hand with gimp :( Here is a little script-fu that will handle such kind of things. It takes an filename as argument. The given file must contain a list of the images you want to load, the only problem is, that the filenames must be complete, so you can have relative filenames. An example: You have a directory full of .png files you want to merge, so you 'cd' to that directory and enter: $ find . -name "*.png" -type f -and -printf "`pwd`/%P\n" > image.list $ cat image.list /tmp/boom/0002.png /tmp/boom/0003.png /tmp/boom/0004.png /tmp/boom/0005.png Now you can start Gimp and load 'image.list' with "/Script-fu/Misc/Load Sequenze" You should get now an new image, containing all the mentioned images as layers. HTH Ingo ;; snip --- ;; Load a sequenze of images ;; Copyright (C) 2000 Ingo Ruhnke <[EMAIL PROTECTED]> ;; ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2 of the License, or ;; (at your option) any later version. ;; ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; ;; You should have received a copy of the GNU General Public License ;; along with this program; if not, write to the Free Software ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. (define else #t) (define have-eof #f) (define (vector->list vector) (define (vector->list-helper vector index) (cond ((< index (length vector)) (cons (aref vector index) (vector->list-helper vector (+ index 1 (else ( (vector->list-helper vector 0)) (define (my-getline filehandle) (let ((character (fread 1 filehandle))) (cond ((equal? character "\n") "") ((equal? character ()) (set! have-eof #t) "") (else (string-append character (my-getline filehandle)) (define (my-readfile filehandle) (cond ((not have-eof) (let ((line (my-getline filehandle))) (cond ((> (string-length line) 0) (cons line (my-readfile filehandle))) (else (my-readfile filehandle) (else ( (define (load-images images) (map (lambda (filename) (car (gimp-file-load 0 filename filename))) images)) (define (copy-drawables-to new-image drawables) (cond ((not (null? drawables)) (let* ((drawable (car drawables)) (width (car (gimp-drawable-width drawable))) (height (car (gimp-drawable-height drawable (gimp-edit-copy drawable) (let ((new-layer (car (gimp-layer-new new-image width height RGB (car (gimp-image-get-filename (car (gimp-drawable-image drawable 100 0 (gimp-layer-add-alpha new-layer) (gimp-floating-sel-anchor (car (gimp-edit-paste new-layer 0))) (gimp-image-add-layer new-image new-layer 0)) (define (copy-image-to new-image other-image) (copy-drawables-to new-image (vector->list (cadr (gimp-image-get-layers other-image) (define (copy-all-images-to new-image images) (cond ((not (null? images)) (copy-image-to new-image (car images)) (copy-all-images-to new-image (cdr images) (define (script-fu-load-sequenze filename) (let* ((filehandle (fopen filename)) (filecontent (reverse (my-readfile filehandle))) (images (load-images filecontent)) (width (apply max (map (lambda (x) (car (gimp-image-width x))) images))) (height (apply max (map (lambda (x) (car (gimp-image-height x))) images (print width) (print height) (let ((new-image (car (gimp-image-new width height RGB (copy-all-images-to new-image images) (gimp-display-new new-image (script-fu-register "script-fu-load-sequenze" "/Xtns/Script-Fu/Misc/Load sequenze." "Load a sequenze of images" "Ingo Ruhnke" "1999, Ingo Ruhnke" "Fri Mar 3 16:00:13 2000" "RGB RGBA" SF-FILENAME "Directory:" "") ;; EOF ;; -- ICQ:
Re: Organized
Per Pettersson wrote: > > Hi all! > > Would'nt it be better if all mails from this list could have a [gimplist] in > their subject? This would really help me (and others maybe) out a bit, > because I work with Linux.com -Support and with The Swedish Linux Society, > so it's kinda hard to know wich mails are from whom... > > Is this possible? > What are you using to read your mail with? The more common way of sorting mail is to use the header information. For example in Netscape I use a mailrule to keep all of the gimp messages in one folder. name="gimp" enabled="yes" description="" type="1" action="Move to folder" actionValue="Inbox.sbd/gimp" condition=" OR (to,contains,[EMAIL PROTECTED])OR(CC,contains,[EMAIL PROTECTED])" -- When efcarey listens,... everyone talks!
Organized
Hi all! Would'nt it be better if all mails from this list could have a [gimplist] in their subject? This would really help me (and others maybe) out a bit, because I work with Linux.com -Support and with The Swedish Linux Society, so it's kinda hard to know wich mails are from whom... Is this possible? PER PETTERSSON THE SWEDISH LINUX SOCIETY(SeLinux) & LINUX.COM -SUPPORT ICQ: 69405221 E-MAIL: [EMAIL PROTECTED] PHONE: 073 6938935WEBBADRESS: HTTP://WELCOME.TO/PERSA __ Get Your Private, Free Email at http://www.hotmail.com
Re: Script-Fu beginner...
Fábio Sato <[EMAIL PROTECTED]> writes: > I can use a script to open the images and call another one to do the > dirty job, passing the references to the images and to the drawables > (like you mentioned). So my problem is this: how can I open a file > (within a script) and get a reference to the background layer ? Something like this should work (untested): (define (my-get-background-layer image) (let ((layers (cadr (gimp-image-get-layers image (aref layers (- (length layers) 1 (define (do-something) (let* ((image (car (gimp-file-load 0 "/home/ingo/images/nasa.xcf" "nasa.xcf"))) (background-layer (my-get-background-layer image))) ...)) -- ICQ: 59461927http://pingus.seul.org | Ingo Ruhnke <[EMAIL PROTECTED]> http://home.pages.de/~grumbel/ | '
