Re: no gimp-perl anymore? :(

[Martin Kretzschmar <m_kretzschmar@gmx.net>]

Am Do, den 01.04.2004 schrieb Chris Halls um 17:16:
> On Thu, 2004-04-01 at 04:55, Rene Engelhard wrote:
> > well, we could come out without gimp-perl. We could "fix" that bug we
> > now have. But I wouldn't 100% like this and I moreover I would not like
> > removing gimp-perl although I never used it except for this conversions
> > we do in the OOo package now.
> 
> I think we should use script-fu directly.  The script is not complicated
> and then we only need the gimp itself.

lalala...

Not a drop-in replacement for xcftobmp, but very close.

------8<----------------8<-----
#!/bin/bash

GIMP=gimp-2.0

script_fu="
(let* ((in-name \"$1\")
       (out-name \"$2\")
       (img (car (gimp-xcf-load 0 in-name in-name)))
       (layer (car (gimp-image-flatten img))))
  (file-bmp-save 0 img layer out-name out-name)
  (gimp-image-delete img)
  (gimp-quit 0))
"

$GIMP -i -d -c -b "$script_fu"
------>8---------------->8-----

Regards,

	Martin