Need some help for a script

Ronounours · **Joined:** Jan 03, 2011 **Posts:** 1656

Hello there,
I know lot of you are fantastic script writers, and Patrick David and myself have a little problem you could probably easily solve.

We want to reproduce what 'Wavelet Decompose' does, and I wrote a small G'MIC command that allows to decompose an image to several 'detail scales',
so that the original image can be seen as all these layers blended with the 'Grain merge' mode.
We have already wrote a small script that is able to call the G'MIC plug-in to perform the image decomposition into layers.
Now, we are stuck in the step which should set the correct blending modes for all layers.
Could we get help from some of you to do this ? We are not really expert in GIMP script coding.

Attached file is our first attempt : it takes an image and decompose it as several layers.
To make it work correctly, you need latest G'MIC (1.5.8.0) with latest update file (update your filters from the G'MIC plug-in before).

Any help is appreciated ! Thanks by advance.

Attachment:

gwd.scm [3.27 KiB]
Downloaded 125 times

patdavid · **Posted:** Fri Dec 13, 2013 12:21 pm **(#2)**

Some more details:

The G'MIC function will create multiple layers (for the residual and multiple scales - variable number of scales) on the image.

Each layer will be named:
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse (#N)

Where the top most layer doesn't have (#N) appended, but subsequent ones do, where N = 1 -> (number of scales - 1).

So, requesting 5 scales will yield 5 new layers, named:
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse #1
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse #2
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse #3
[G'MIC] : -v - -split_details 5,3 -+[^0] 128 -c 0,255 -reverse #4

We simply need to iterate through these new layers, and set their layer modes to "Grain Merge"...

Ronounours · **Joined:** Jan 03, 2011 **Posts:** 1656

... except for the base layer (#4 in your example) which keep the 'normal' blending mode.

RobA · **Joined:** Jul 14, 2010 **Posts:** 697

Does the (plugin-in-gmic...) call return the IDs of the new layers?

If not the script will have to get a list of all the image layers, call GMIC, then get all the layers again after, and set the blend mode for all new layers.

To get a list of all the layers use:
(vector->list (cadr (gimp-image-get-layers img)))

before and after

To change the layer mode use:
(gimp-layer-set-mode <layer> GRAIN-MERGE-MODE)

You can do this via (map..) like so:

before is set to the list before
after is set to the list after

Code: Select all

(map (lambda (x) (if  (eq? (member x before) #f) (gimp-layer-set-mode x GRAIN-MERGE-MODE))) after)

Hope those dribbits of code help - I don't have a machine handy to try this on.

-Rob A>

patdavid · **Posted:** Fri Dec 13, 2013 1:02 pm **(#5)**

RobA wrote:

Does the (plugin-in-gmic...) call return the IDs of the new layers?

If not the script will have to get a list of all the image layers, call GMIC, then get all the layers again after, and set the blend mode for all new layers.

To get a list of all the layers use:
(vector->list (cadr (gimp-image-get-layers img)))

before and after

To change the layer mode use:
(gimp-layer-set-mode <layer> GRAIN-MERGE-MODE)

You can do this via (map..) like so:

before is set to the list before
after is set to the list after

Code: Select all

(map (lambda (x) (if  (eq? (member x before) #f) (gimp-layer-set-mode x GRAIN-MERGE-MODE))) after)

Hope those dribbits of code help - I don't have a machine handy to try this on.

-Rob A>

For the love of Pete, this is why this is an awesome place. Thank you so much Rob! (I was conceptually there, but technically failing).

saulgoode · **Posted:** Fri Dec 13, 2013 3:17 pm **(#6)**

RobA wrote:

Code: Select all

(if (eq? (member x before) #f) ...

Equivalent alternatives:
(if (not (member x before)) ...
(unless (member x before) ...

Graechan · **Posted:** Fri Dec 13, 2013 11:22 pm **(#7)**

before

after

Code: Select all

(let* (
         (copy-layer (car (gimp-layer-copy drawable TRUE)))
       (layerList 0)
       (layerId 0)
         )

    ;; Add a copy of the layer to the image.
    (gimp-image-add-layer img copy-layer -1)

    ;; Render a 3D mapped cube from the active layer, using G'MIC.
    (plug-in-gmic 1 img drawable 1
                  (string-append
                   "-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
                   "-split_details "
                   (number->string nbs) ","
                   (number->string ratio) " -+[^0] 128 -c 0,255 -reverse"
                   ))
   (gimp-drawable-set-visible drawable FALSE)
    (set! layerList (vector->list (cadr (gimp-image-get-layers img))))
    (while (not (null? layerList))
    (set! layerId (car layerList))
    (if (= (car (gimp-drawable-get-visible layerId)) TRUE) (begin
   (gimp-layer-set-mode layerId GRAIN-MERGE-MODE)
   )) ;endif
    (set! layerList (cdr layerList)))
    (gimp-drawable-set-visible drawable TRUE)   
    )

or this is easier and more concise (thanks RobA)

Code: Select all

(let* (
         (copy-layer (car (gimp-layer-copy drawable TRUE)))
       (before (vector->list (cadr (gimp-image-get-layers img))))
       (after 0)
         )

    ;; Add a copy of the layer to the image.
    (gimp-image-add-layer img copy-layer -1)

    ;; Render a 3D mapped cube from the active layer, using G'MIC.
    (plug-in-gmic 1 img drawable 1
                  (string-append
                   "-v - " ; To have a silent output. Remove it to display errors from the G'MIC interpreter on stderr.
                   "-split_details "
                   (number->string nbs) ","
                   (number->string ratio) " -+[^0] 128 -c 0,255 -reverse"
                   ))
   (set! after (vector->list (cadr (gimp-image-get-layers img))))            
   (map (lambda (x) (if  (eq? (member x before) #f) (gimp-layer-set-mode x GRAIN-MERGE-MODE))) after)            
    )

do you want the layers merged after, and would you like me to post the amended script?

Graechan · **Posted:** Sat Dec 14, 2013 1:32 am **(#8)**

This result is similiar to the G'MIC HardLight Mode