From 3abf6de94447fd34b56d3d07aa534b8b5059fb6a Mon Sep 17 00:00:00 2001 From: Alexandre Prokoudine Date: Sun, 10 Oct 2010 17:59:29 +0400 Subject: [PATCH] Porting scripts to new API, marking layer names for translation --- plug-ins/script-fu/scripts/burn-in-anim.scm | 10 +++++----- plug-ins/script-fu/scripts/circuit.scm | 10 +++++----- plug-ins/script-fu/scripts/clothify.scm | 4 ++-- plug-ins/script-fu/scripts/coffee.scm | 4 ++-- 4 files changed, 14 insertions(+), 14 deletions(-) diff --git a/plug-ins/script-fu/scripts/burn-in-anim.scm b/plug-ins/script-fu/scripts/burn-in-anim.scm index b41e29b979..cff13e6a12 100644 --- a/plug-ins/script-fu/scripts/burn-in-anim.scm +++ b/plug-ins/script-fu/scripts/burn-in-anim.scm @@ -74,14 +74,14 @@ (set! bl-layer-name (string-append "fr-nr" (number->string frame-nr 10) ) ) - (gimp-image-add-layer img bl-layer -2) + (gimp-image-insert-layer img bl-layer -1 -2) (gimp-item-set-name bl-layer bl-layer-name) (gimp-item-set-visible bl-layer TRUE) (gimp-layer-set-lock-alpha bl-layer TRUE) (gimp-layer-add-alpha bl-layer) ;--- add an alpha mask for blending and select it - (gimp-selection-layer-alpha bl-layer) + (gimp-item-to-selection bl-layer 2) (set! bl-mask (car (gimp-layer-create-mask bl-layer ADD-BLACK-MASK))) (gimp-layer-add-mask bl-layer bl-mask) @@ -148,7 +148,7 @@ (- (+ bl-x-off bl-width) after-glow) 0) ;--- add corona effect - (gimp-selection-layer-alpha bl-layer) + (gimp-item-to-selection bl-layer 2) (gimp-selection-sharpen img) (gimp-selection-grow img corona-width) (gimp-layer-set-lock-alpha bl-layer FALSE) @@ -164,8 +164,8 @@ ;--- merge with bg layer (set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE))) - (gimp-image-add-layer img bg-layer -1) - (gimp-image-lower-layer img bg-layer) + (gimp-image-insert-layer img bg-layer -1 -1) + (gimp-image-lower-item img bg-layer) (set! bg-layer-name (string-append "bg-" (number->string frame-nr 10))) (gimp-item-set-name bg-layer bg-layer-name) diff --git a/plug-ins/script-fu/scripts/circuit.scm b/plug-ins/script-fu/scripts/circuit.scm index 85ebc566d4..3b840cb20b 100644 --- a/plug-ins/script-fu/scripts/circuit.scm +++ b/plug-ins/script-fu/scripts/circuit.scm @@ -58,7 +58,7 @@ (if (= (car (gimp-selection-is-empty image)) TRUE) (begin - (gimp-selection-layer-alpha drawable) + (gimp-item-to-selection drawable 2) (set! active-selection (car (gimp-selection-save image))) (set! from-selection FALSE)) (begin @@ -77,15 +77,15 @@ select-width select-height type - "effect layer" + _"Effect layer" 100 NORMAL-MODE))) - (gimp-image-add-layer image effect-layer -1) + (gimp-image-insert-layer image effect-layer -1 -1) (gimp-layer-set-offsets effect-layer select-offset-x select-offset-y) (gimp-selection-none image) (gimp-edit-clear effect-layer) - (gimp-selection-load active-selection) + (gimp-item-to-selection active-selection 2) (gimp-edit-copy drawable) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE)))) @@ -101,7 +101,7 @@ (gimp-context-set-foreground '(14 14 14)) ) - (gimp-selection-load active-selection) + (gimp-item-to-selection active-selection 2) (plug-in-maze RUN-NONINTERACTIVE image active-layer 5 5 TRUE 0 seed 57 1) (plug-in-oilify RUN-NONINTERACTIVE image active-layer mask-size 0) (plug-in-edge RUN-NONINTERACTIVE image active-layer 2 1 0) diff --git a/plug-ins/script-fu/scripts/clothify.scm b/plug-ins/script-fu/scripts/clothify.scm index 1568cdac34..cacc30d03d 100644 --- a/plug-ins/script-fu/scripts/clothify.scm +++ b/plug-ins/script-fu/scripts/clothify.scm @@ -19,7 +19,7 @@ (gimp-image-undo-disable img) - (gimp-image-add-layer img layer-one 0) + (gimp-image-insert-layer img layer-one -1 0) (gimp-context-set-background '(255 255 255)) (gimp-edit-fill layer-one BACKGROUND-FILL) @@ -28,7 +28,7 @@ (set! layer-two (car (gimp-layer-copy layer-one 0))) (gimp-layer-set-mode layer-two MULTIPLY-MODE) - (gimp-image-add-layer img layer-two 0) + (gimp-image-insert-layer img layer-two -1 0) (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-one bx TRUE FALSE) (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE) diff --git a/plug-ins/script-fu/scripts/coffee.scm b/plug-ins/script-fu/scripts/coffee.scm index fd1a4f3919..1f6fba6a59 100644 --- a/plug-ins/script-fu/scripts/coffee.scm +++ b/plug-ins/script-fu/scripts/coffee.scm @@ -32,11 +32,11 @@ (while (> theNumber 0) (set! theNumber (- theNumber 1)) (set! theStain (car (gimp-layer-new theImage theSize theSize - RGBA-IMAGE "Stain" 100 + RGBA-IMAGE _"Stain" 100 (if (= inDark TRUE) DARKEN-ONLY-MODE NORMAL-MODE)))) - (gimp-image-add-layer theImage theStain 0) + (gimp-image-insert-layer theImage theStain -1 0) (gimp-selection-all theImage) (gimp-edit-clear theStain)