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 03:52:15 +04:00
parent e1a705c125
commit 0a4657ae9f
6 changed files with 27 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
plug-ins/script-fu/scripts/beveled-button.scm
View File

@ -74,10 +74,10 @@
(bumpmap (car (gimp-layer-new img (bumpmap (car (gimp-layer-new img
img-width img-height RGBA-IMAGE img-width img-height RGBA-IMAGE
"Bumpmap" 100 NORMAL-MODE))) _"Bumpmap" 100 NORMAL-MODE)))
(gradient (car (gimp-layer-new img (gradient (car (gimp-layer-new img
img-width img-height RGBA-IMAGE img-width img-height RGBA-IMAGE
"Gradient" 100 NORMAL-MODE))) _"Gradient" 100 NORMAL-MODE)))
) )
(gimp-context-push) (gimp-context-push)
@ -86,7 +86,7 @@
; Create bumpmap layer ; Create bumpmap layer
(gimp-image-add-layer img bumpmap -1) (gimp-image-insert-layer img bumpmap -1 -1)
(gimp-context-set-foreground '(0 0 0)) (gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -107,7 +107,7 @@
; Create gradient layer ; Create gradient layer
(gimp-image-add-layer img gradient -1) (gimp-image-insert-layer img gradient -1 -1)
(gimp-context-set-foreground ul-color) (gimp-context-set-foreground ul-color)
(gimp-context-set-background lr-color) (gimp-context-set-background lr-color)

8
plug-ins/script-fu/scripts/beveled-pattern-arrow.scm
View File

@ -75,8 +75,8 @@
(let* ( (let* (
(img (car (gimp-image-new size size RGB))) (img (car (gimp-image-new size size RGB)))
(background (car (gimp-layer-new img size size RGB-IMAGE "Arrow" 100 NORMAL-MODE))) (background (car (gimp-layer-new img size size RGB-IMAGE _"Arrow" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img size size RGB-IMAGE "Bumpmap" 100 NORMAL-MODE))) (bumpmap (car (gimp-layer-new img size size RGB-IMAGE _"Bumpmap" 100 NORMAL-MODE)))
(big-arrow (point-list->double-array (rotate-points (make-arrow size 6) size orientation))) (big-arrow (point-list->double-array (rotate-points (make-arrow size 6) size orientation)))
(med-arrow (point-list->double-array (rotate-points (make-arrow size 7) size orientation))) (med-arrow (point-list->double-array (rotate-points (make-arrow size 7) size orientation)))
(small-arrow (point-list->double-array (rotate-points (make-arrow size 8) size orientation))) (small-arrow (point-list->double-array (rotate-points (make-arrow size 8) size orientation)))
@ -85,8 +85,8 @@
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img background -1) (gimp-image-insert-layer img background -1 -1)
(gimp-image-add-layer img bumpmap -1) (gimp-image-insert-layer img bumpmap -1 -1)
; Create pattern layer ; Create pattern layer

8
plug-ins/script-fu/scripts/beveled-pattern-bullet.scm
View File

@ -22,15 +22,15 @@
(define (script-fu-beveled-pattern-bullet diameter pattern transparent) (define (script-fu-beveled-pattern-bullet diameter pattern transparent)
(let* ( (let* (
(img (car (gimp-image-new diameter diameter RGB))) (img (car (gimp-image-new diameter diameter RGB)))
(background (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bullet" 100 NORMAL-MODE))) (background (car (gimp-layer-new img diameter diameter RGBA-IMAGE _"Bullet" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img diameter diameter RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE))) (bumpmap (car (gimp-layer-new img diameter diameter RGBA-IMAGE _"Bumpmap" 100 NORMAL-MODE)))
) )
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img background -1) (gimp-image-insert-layer img background -1 -1)
(gimp-image-add-layer img bumpmap -1) (gimp-image-insert-layer img bumpmap -1 -1)
; Create pattern layer ; Create pattern layer

8
plug-ins/script-fu/scripts/beveled-pattern-button.scm
View File

@ -53,8 +53,8 @@
(+ ascent descent))) (+ ascent descent)))
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
(background (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE))) (background (car (gimp-layer-new img width height RGBA-IMAGE _"Background" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img width height RGBA-IMAGE "Bumpmap" 100 NORMAL-MODE))) (bumpmap (car (gimp-layer-new img width height RGBA-IMAGE _"Bumpmap" 100 NORMAL-MODE)))
(textl (car (textl (car
(gimp-text-fontname (gimp-text-fontname
img -1 0 0 text 0 TRUE text-size PIXELS font))) img -1 0 0 text 0 TRUE text-size PIXELS font)))
@ -63,8 +63,8 @@
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img background 1) (gimp-image-insert-layer img background -1 1)
(gimp-image-add-layer img bumpmap 1) (gimp-image-insert-layer img bumpmap -1 1)
; Create pattern layer ; Create pattern layer

14
plug-ins/script-fu/scripts/beveled-pattern-heading.scm
View File

@ -38,18 +38,18 @@
(background (car (gimp-layer-new img (background (car (gimp-layer-new img
width height RGBA-IMAGE width height RGBA-IMAGE
"Background" 100 NORMAL-MODE))) _"Background" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img (bumpmap (car (gimp-layer-new img
width height RGBA-IMAGE width height RGBA-IMAGE
"Bumpmap" 100 NORMAL-MODE))) _"Bumpmap" 100 NORMAL-MODE)))
) )
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-resize img width height 0 0) (gimp-image-resize img width height 0 0)
(gimp-image-add-layer img background 1) (gimp-image-insert-layer img background -1 1)
(gimp-image-add-layer img bumpmap 1) (gimp-image-insert-layer img bumpmap -1 1)
; Create pattern layer ; Create pattern layer
@ -64,12 +64,12 @@
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-context-set-background '(127 127 127)) (gimp-context-set-background '(127 127 127))
(gimp-selection-layer-alpha textl) (gimp-item-to-selection textl 2)
(gimp-selection-shrink img 1) (gimp-selection-shrink img 1)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
(gimp-context-set-background '(255 255 255)) (gimp-context-set-background '(255 255 255))
(gimp-selection-layer-alpha textl) (gimp-item-to-selection textl 2)
(gimp-selection-shrink img 2) (gimp-selection-shrink img 2)
(gimp-edit-fill bumpmap BACKGROUND-FILL) (gimp-edit-fill bumpmap BACKGROUND-FILL)
@ -82,7 +82,7 @@
; Clean up ; Clean up
(gimp-context-set-background '(0 0 0)) (gimp-context-set-background '(0 0 0))
(gimp-selection-layer-alpha textl) (gimp-item-to-selection textl 2)
(gimp-selection-invert img) (gimp-selection-invert img)
(gimp-edit-clear background) (gimp-edit-clear background)
(gimp-selection-none img) (gimp-selection-none img)

8
plug-ins/script-fu/scripts/beveled-pattern-hrule.scm
View File

@ -24,17 +24,17 @@
(img (car (gimp-image-new width height RGB))) (img (car (gimp-image-new width height RGB)))
(background (car (gimp-layer-new img (background (car (gimp-layer-new img
width height RGB-IMAGE width height RGB-IMAGE
"Hrule" 100 NORMAL-MODE))) _"Hrule" 100 NORMAL-MODE)))
(bumpmap (car (gimp-layer-new img (bumpmap (car (gimp-layer-new img
width height RGBA-IMAGE width height RGBA-IMAGE
"Bumpmap" 100 NORMAL-MODE))) _"Bumpmap" 100 NORMAL-MODE)))
) )
(gimp-context-push) (gimp-context-push)
(gimp-image-undo-disable img) (gimp-image-undo-disable img)
(gimp-image-add-layer img background -1) (gimp-image-insert-layer img background -1 -1)
(gimp-image-add-layer img bumpmap -1) (gimp-image-insert-layer img bumpmap -1 -1)
; Create pattern layer ; Create pattern layer