3
3
(define (apply-chrome-logo-effect img
7
(let* ((offx1 (* offsets 0.4))
8
(offy1 (* offsets 0.3))
9
(offx2 (* offsets (- 0.4)))
10
(offy2 (* offsets (- 0.3)))
11
(feather (* offsets 0.5))
12
(width (car (gimp-drawable-width logo-layer)))
13
(height (car (gimp-drawable-height logo-layer)))
14
(layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 DIFFERENCE-MODE)))
15
(layer2 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
16
(layer3 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 3" 100 NORMAL-MODE)))
17
(shadow (car (gimp-layer-new img width height RGBA-IMAGE "Drop Shadow" 100 NORMAL-MODE)))
18
(background (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
19
(layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK))))
8
(offx1 (* offsets 0.4))
9
(offy1 (* offsets 0.3))
10
(offx2 (* offsets (- 0.4)))
11
(offy2 (* offsets (- 0.3)))
12
(feather (* offsets 0.5))
13
(width (car (gimp-drawable-width logo-layer)))
14
(height (car (gimp-drawable-height logo-layer)))
15
(layer1 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 1" 100 DIFFERENCE-MODE)))
16
(layer2 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 2" 100 DIFFERENCE-MODE)))
17
(layer3 (car (gimp-layer-new img width height RGBA-IMAGE "Layer 3" 100 NORMAL-MODE)))
18
(shadow (car (gimp-layer-new img width height RGBA-IMAGE "Drop Shadow" 100 NORMAL-MODE)))
19
(background (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
20
(layer-mask (car (gimp-layer-create-mask layer1 ADD-BLACK-MASK)))
21
23
(gimp-context-push)
62
64
(gimp-drawable-set-name layer1 (car (gimp-drawable-get-name logo-layer)))
63
65
(gimp-image-remove-layer img logo-layer)
67
72
(define (script-fu-chrome-logo-alpha img
72
77
(gimp-image-undo-group-start img)
73
78
(apply-chrome-logo-effect img logo-layer offsets bg-color)
74
79
(gimp-image-undo-group-end img)
75
(gimp-displays-flush)))
77
84
(script-fu-register "script-fu-chrome-logo-alpha"
79
"Somewhat simplistic, but cool chromed logos"
81
"Spencer Kimball & Peter Mattis"
85
SF-DRAWABLE "Drawable" 0
86
SF-ADJUSTMENT _"Offsets (pixels * 2)" '(10 2 100 1 10 0 1)
87
SF-COLOR _"Background Color" '(191 191 191))
86
_"Add a simple chrome effect to the selected region (or alpha)"
88
"Spencer Kimball & Peter Mattis"
92
SF-DRAWABLE "Drawable" 0
93
SF-ADJUSTMENT _"Offsets (pixels * 2)" '(10 2 100 1 10 0 1)
94
SF-COLOR _"Background Color" "lightgrey"
89
97
(script-fu-menu-register "script-fu-chrome-logo-alpha"
90
_"<Image>/Script-Fu/Alpha to Logo")
98
"<Image>/Filters/Alpha to Logo")
93
101
(define (script-fu-chrome-logo text
97
(let* ((img (car (gimp-image-new 256 256 RGB)))
99
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font))))
106
(img (car (gimp-image-new 256 256 RGB)))
107
(b-size (* size 0.2))
108
(text-layer (car (gimp-text-fontname img -1 0 0 text b-size TRUE size PIXELS font)))
100
110
(gimp-image-undo-disable img)
101
(gimp-drawable-set-name text-layer text)
102
111
(apply-chrome-logo-effect img text-layer (* size 0.1) bg-color)
103
112
(gimp-image-undo-enable img)
104
(gimp-display-new img)))
113
(gimp-display-new img)
106
117
(script-fu-register "script-fu-chrome-logo"
108
"Somewhat simplistic, but cool chromed logos"
110
"Spencer Kimball & Peter Mattis"
113
SF-STRING _"Text" "The GIMP"
114
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
115
SF-FONT _"Font" "Bodoni"
116
SF-COLOR _"Background color" '(191 191 191))
119
_"Create a simplistic, but cool, chromed logo"
121
"Spencer Kimball & Peter Mattis"
124
SF-STRING _"Text" "GIMP"
125
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
126
SF-FONT _"Font" "Bodoni"
127
SF-COLOR _"Background color" "lightgrey"
118
130
(script-fu-menu-register "script-fu-chrome-logo"
119
_"<Toolbox>/Xtns/Script-Fu/Logos")
131
"<Toolbox>/Xtns/Logos")