0c5a716fe8
Mostly one word substitutions. A few function definitions were moved to the scope of a single script that used them. Those functions won't be available to third party scripts except now by cut and paste. For major release 3.0.
52 lines
1.6 KiB
Scheme
52 lines
1.6 KiB
Scheme
; reverse-layers.scm: Reverse the order of layers in the current image.
|
|
; Copyright (C) 2006 by Akkana Peck.
|
|
;
|
|
; This program is free software: you can redistribute it and/or modify
|
|
; it under the terms of the GNU General Public License as published by
|
|
; the Free Software Foundation; either version 3 of the License, or
|
|
; (at your option) any later version.
|
|
;
|
|
; This program is distributed in the hope that it will be useful,
|
|
; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
; GNU General Public License for more details.
|
|
;
|
|
; You should have received a copy of the GNU General Public License
|
|
; along with this program. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
(define (script-fu-reverse-layers img drawables)
|
|
(let* (
|
|
(layers (gimp-image-get-layers img))
|
|
(num-layers (car layers))
|
|
(layer-array (cadr layers))
|
|
(i (- num-layers 1))
|
|
)
|
|
|
|
(gimp-image-undo-group-start img)
|
|
|
|
(while (>= i 0)
|
|
(let ((layer (vector-ref layer-array i)))
|
|
(if (= (car (gimp-layer-is-floating-sel layer)) FALSE)
|
|
(gimp-image-lower-item-to-bottom img layer))
|
|
)
|
|
|
|
(set! i (- i 1))
|
|
)
|
|
|
|
(gimp-image-undo-group-end img)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register-filter "script-fu-reverse-layers"
|
|
_"Reverse Layer _Order"
|
|
_"Reverse the order of layers in the image"
|
|
"Akkana Peck"
|
|
"Akkana Peck"
|
|
"August 2006"
|
|
"*"
|
|
SF-ONE-OR-MORE-DRAWABLE
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-reverse-layers"
|
|
"<Image>/Layer/Stack")
|