Resize all layers in script-fu

[programmer_ceds]

(10-24-2022, 09:59 PM)BaconWizard17 Wrote: I am more familiar with Python coding than I am with Scheme, but I've gotten this far with Scheme so I may as well finish the job. I'm assuming that using gimp-image-get-layers would just be: 

Code:

(let*
   (
       (num-layers (car (gimp-image-get-layers image)))
       (layer-ids (cdr (gimp-image-get-layers image)))
   )
        
)

(I haven't done anything with multiple return values before, but from some quick googling this seems to be the right way to do that)

I haven't been able to find terrific documentation on looping in Scheme. Based on what I've seen, I was able to put this together, but it doesn't resize any layers

Code:

(define layer-resize
   (lambda (a-layer layer-ids)
       (gimp-layer-resize-to-image-size a-layer)
   )
)

Any insight?

You could try something like:

Code:

(set! x 0)
  (while (< x num_layers)
    (gimp-layer-resize-to-image-size (aref layer_ids x))
    (set! x (+ x 1))
  )    ; end - while