callisto-debian/gimp
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Porting scripts to new API, marking layer names for translation

Browse Source
This commit is contained in:
Alexandre Prokoudine
2010-10-10 17:59:29 +04:00
parent 4d18135b46
commit 3abf6de944
4 changed files with 14 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
plug-ins/script-fu/scripts/burn-in-anim.scm
View File

@ -74,14 +74,14 @@
(set! bl-layer-name (string-append "fr-nr" (set! bl-layer-name (string-append "fr-nr"
(number->string frame-nr 10) ) ) (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-name bl-layer bl-layer-name)
(gimp-item-set-visible bl-layer TRUE) (gimp-item-set-visible bl-layer TRUE)
(gimp-layer-set-lock-alpha bl-layer TRUE) (gimp-layer-set-lock-alpha bl-layer TRUE)
(gimp-layer-add-alpha bl-layer) (gimp-layer-add-alpha bl-layer)
;--- add an alpha mask for blending and select it ;--- 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))) (set! bl-mask (car (gimp-layer-create-mask bl-layer ADD-BLACK-MASK)))
(gimp-layer-add-mask bl-layer bl-mask) (gimp-layer-add-mask bl-layer bl-mask)
@ -148,7 +148,7 @@
(- (+ bl-x-off bl-width) after-glow) 0) (- (+ bl-x-off bl-width) after-glow) 0)
;--- add corona effect ;--- add corona effect
(gimp-selection-layer-alpha bl-layer) (gimp-item-to-selection bl-layer 2)
(gimp-selection-sharpen img) (gimp-selection-sharpen img)
(gimp-selection-grow img corona-width) (gimp-selection-grow img corona-width)
(gimp-layer-set-lock-alpha bl-layer FALSE) (gimp-layer-set-lock-alpha bl-layer FALSE)
@ -164,8 +164,8 @@
;--- merge with bg layer ;--- merge with bg layer
(set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE))) (set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE)))
(gimp-image-add-layer img bg-layer -1) (gimp-image-insert-layer img bg-layer -1 -1)
(gimp-image-lower-layer img bg-layer) (gimp-image-lower-item img bg-layer)
(set! bg-layer-name (string-append "bg-" (set! bg-layer-name (string-append "bg-"
(number->string frame-nr 10))) (number->string frame-nr 10)))
(gimp-item-set-name bg-layer bg-layer-name) (gimp-item-set-name bg-layer bg-layer-name)

10
plug-ins/script-fu/scripts/circuit.scm
View File

@ -58,7 +58,7 @@
(if (= (car (gimp-selection-is-empty image)) TRUE) (if (= (car (gimp-selection-is-empty image)) TRUE)
(begin (begin
(gimp-selection-layer-alpha drawable) (gimp-item-to-selection drawable 2)
(set! active-selection (car (gimp-selection-save image))) (set! active-selection (car (gimp-selection-save image)))
(set! from-selection FALSE)) (set! from-selection FALSE))
(begin (begin
@ -77,15 +77,15 @@
select-width select-width
select-height select-height
type type
"effect layer" _"Effect layer"
100 100
NORMAL-MODE))) 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-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-selection-none image) (gimp-selection-none image)
(gimp-edit-clear effect-layer) (gimp-edit-clear effect-layer)
(gimp-selection-load active-selection) (gimp-item-to-selection active-selection 2)
(gimp-edit-copy drawable) (gimp-edit-copy drawable)
(let ((floating-sel (car (gimp-edit-paste effect-layer FALSE)))) (let ((floating-sel (car (gimp-edit-paste effect-layer FALSE))))
@ -101,7 +101,7 @@
(gimp-context-set-foreground '(14 14 14)) (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-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-oilify RUN-NONINTERACTIVE image active-layer mask-size 0)
(plug-in-edge RUN-NONINTERACTIVE image active-layer 2 1 0) (plug-in-edge RUN-NONINTERACTIVE image active-layer 2 1 0)

4
plug-ins/script-fu/scripts/clothify.scm
View File

@ -19,7 +19,7 @@
(gimp-image-undo-disable img) (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-context-set-background '(255 255 255))
(gimp-edit-fill layer-one BACKGROUND-FILL) (gimp-edit-fill layer-one BACKGROUND-FILL)
@ -28,7 +28,7 @@
(set! layer-two (car (gimp-layer-copy layer-one 0))) (set! layer-two (car (gimp-layer-copy layer-one 0)))
(gimp-layer-set-mode layer-two MULTIPLY-MODE) (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-one bx TRUE FALSE)
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE) (plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE)

4
plug-ins/script-fu/scripts/coffee.scm
View File

@ -32,11 +32,11 @@
(while (> theNumber 0) (while (> theNumber 0)
(set! theNumber (- theNumber 1)) (set! theNumber (- theNumber 1))
(set! theStain (car (gimp-layer-new theImage theSize theSize (set! theStain (car (gimp-layer-new theImage theSize theSize
RGBA-IMAGE "Stain" 100 RGBA-IMAGE _"Stain" 100
(if (= inDark TRUE) (if (= inDark TRUE)
DARKEN-ONLY-MODE NORMAL-MODE)))) 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-selection-all theImage)
(gimp-edit-clear theStain) (gimp-edit-clear theStain)