Request script - Change randomly Layers order

d4rkheart · **Joined:** Jul 21, 2012 **Posts:** 103

Hi to everyone, i've a crazy request.
I want change layers order automatically and randomly, there is a script or plug-in for this?
Thanks in advance.

Odinbc · **Posted:** Sun Mar 17, 2013 12:43 pm **(#2)**

If you have Gap or LayerGroups subsystem script you can do some interesting sorting.

saulgoode · **Posted:** Sun Mar 17, 2013 2:29 pm **(#3)**

Code: Select all

(define (script-fu-sg-shuffle-layers image)              
  (gimp-image-undo-group-start image)
  (let raise-loop ((layers (vector->list (cadr (gimp-image-get-layers image)))))
    (unless (null? layers)
      (let shuffle-loop ((i (random (length layers))))
        (when (> i 0)
          (set! layers (cons (car (last layers)) (butlast layers)))
          (shuffle-loop (- i 1)) ))
      (gimp-image-raise-layer-to-top image (car layers))
      (raise-loop (cdr layers)) ))
  (gimp-image-undo-group-end image)
  (gimp-displays-flush) )
  
(script-fu-register "script-fu-sg-shuffle-layers"
  "Shuffle layer stack"
  "Randomly change the position of layers in the layer stack"
  "Saul Goode"
  "saulgoode"
  "March 2013"
  "*"
  SF-IMAGE    "Image"    0
  )
(script-fu-menu-register "script-fu-sg-shuffle-layers"
  "<Image>/Image"
  )

d4rkheart · **Joined:** Jul 21, 2012 **Posts:** 103

@odinbc, thanks for your answer.
I've used gimp gap rarely, i don't know all its potentiality. With the script mig-gimp-layer-groups.scm i have encountered a lot of problems. The script returns an error or it isn't loaded if i don't move all scripts, that i have downloaded, in an other folder.

I think that gimp doesn't tolerate many scripts
@saulgoode: :tyspin

work well! Thank you so much.

I'm sorry for my bad translation. :oops:

Sweeney · **Joined:** Mar 27, 2015 **Posts:** 22

Hello kind coders,

Thanks for your generous coding and for making gimp so good.

This script works fine, however it starts to run very slowly when there are a lot* of layers.
Is it a recursive script? It's way beyond my crude scripting level.

If it is, is there a non-recursive solution?

Many thanks

*up to 10,000

saulgoode · **Posted:** Fri Mar 27, 2015 8:04 pm **(#6)**

Sweeney, please try the following version and see if it's any faster.

Code: Select all

(define (script-fu-sg-shuffle-layers image)             
  (gimp-image-undo-group-start image)
  (let ((layers (cadr (gimp-image-get-layers image)))
        (len  (car (gimp-image-get-layers image))))
    (let loop ((cnt (* 3 len)))
      (unless (zero? cnt)
        (gimp-image-reorder-item image (vector-ref layers (random len)) 0 0)
        (loop (pred cnt)))))
  (gimp-image-undo-group-end image)
  (gimp-displays-flush) )
 
(script-fu-register "script-fu-sg-shuffle-layers"
  "Shuffle layer stack"
  "Randomly change the position of layers in the layer stack"
  "Saul Goode"
  "saulgoode"
  "March 2013" ; modified March 2015
  "*"
  SF-IMAGE    "Image"    0
  )
(script-fu-menu-register "script-fu-sg-shuffle-layers"
  "<Image>/Image"
  )

Sweeney · **Joined:** Mar 27, 2015 **Posts:** 22

Thanks, that's all good!

HenryG · **Joined:** Jun 24, 2016 **Posts:** 2

Oh wow I really would like to use this script, but I don't know how. I copied the code and saved it is an .scm file in my scripts folder, but I see nothing. Pardon my ignorance, but how do I use this?

HenryG · **Joined:** Jun 24, 2016 **Posts:** 2

I found it. Man I feel stupid.

It is under Image->Shuffle layer stack.

PhotoMaster · **Posted:** Fri Jun 24, 2016 6:14 pm **(#10)**

It works perfectly!