Hi Martin -

First, your questions would be better directed to the gimp-user (instead of gimp-developer) list. And I can also recommend the script-fu group on yahoo.

To answer your question: you can avoid creating the intermediate variable by doing
(gimp-floating-sel-anchor
(car (gimp-edit-paste target-layer FALSE)))

To ensure that your selection winds up in the same place in the new layer, try (if you can)
making sure that the layer from which you get your selection is the same size as the image, using (perl-fu-layer-to-image-size 1) . This works on the active layer only, and may not work on windows systems lacking perl-fu support.

HTH,

I've posted the siod documentation that I use on my website at

http://trefftzs.topcities.com/siod.html

It also shows functions that are not available in the Gimp, but fewer than your source. I seem to remember that I had to roll my own floor, ceil, and round functions.

Good luck.

Hi,

Martin Bernreuther writes:

I just wantet to copy a rectangle area from a source-layer to a target layer of an image. That's what I done first:

(gimp-rect-select image 0 0 layer-width height REPLACE FALSE 0) (gimp-edit-copy source-layer)
(let ((floating-sel (car (gimp-edit-paste target-layer FALSE)))) (gimp-floating-sel-anchor floating-sel))

This works for a lot of cases BUT if I have an image showing a figure on a transparent background (with alpha channel), something strange happens: The position of the figure on the target-layer is shifted (an the only the figure itself is selected) It only works if the bounding box of the visible parts equal the selection. I got the same results using the GUI (also with select-all).

the internal clipboard automatically crops the stored selection.

How can I avoid this?

Is there a faster way to transfer the layer contents to another layer, avoiding the intermediate step of the buffer?

you could copy the whole layer using (gimp-layer-copy).

Salut, Sven

Hi,

Jeff Trefftzs writes:

making sure that the layer from which you get your selection is the same size as the image, using (perl-fu-layer-to-image-size 1) . This works on the active layer only, and may not work on windows systems lacking perl-fu support.

oh, come on. calling perl to resize the layer to the image size is a bit of an overkill if it can also be done in one or two lines of scheme. The following code is untested, but might actually work:

(gimp-layer-resize layer (car (gimp-image-width image)) (car (gimp-image-height image)) (- (car (gimp-layer-offsets layer))) (- (cadr (gimp-layer-offsets layer))))

Salut, Sven

Sven wrote:

oh, come on. calling perl to resize the layer to the image size is a bit of an overkill if it can also be done in one or two lines of scheme. The following code is untested, but might actually work: ...

It may be overkill, but it's available from the layers & channels dialog box in the right-click menu, so I assumed that's how it was supposed to be done. Should we replace the menu entry with a call to your scheme function instead?

Hi,

Jeff Trefftzs writes:

oh, come on. calling perl to resize the layer to the image size is a bit of an overkill if it can also be done in one or two lines of scheme. The following code is untested, but might actually work: ...

It may be overkill, but it's available from the layers & channels dialog box in the right-click menu, so I assumed that's how it was supposed to be done.

that menu entry points to layer_resize_to_image() in app/layers.c.

Salut, Sven

Hi,

Jeff Trefftzs writes:

that menu entry points to layer_resize_to_image() in app/layers.c.

Aha! I didn't see a reference to it in the PDB explorer, so I thought the perl-fu function was what was used. Should I file a bug report? At any rate, I couldn't find it in the PDB.

it's not in the PDB since it was added late and it can be easily accomplished thru the PDB as it is. Please file a bug-report if you think we should add it. Chances that it will be added increase significantly if you attach a patch. Such a patch would probably only have to change the file tools/pdbgen/pdb/layer.pdb.

Salut, Sven