/usr/share/gimp/2.0/scripts/glossy.scm is in gimp-data 2.8.10-0ubuntu1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 | ; glossy-patterned-shadowed-and-bump-mapped-logo
; creates anything you can create with it :)
; (use it wisely, use it in peace...)
;
; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; glossy gives a glossy outlook to your fonts (unlogical name, isn't it?)
; Copyright (C) 1998 Hrvoje Horvat
;
; 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 <http://www.gnu.org/licenses/>.
(define (apply-glossy-logo-effect img
logo-layer
blend-gradient-text
blend-gradient-text-reverse
blend-gradient-outline
blend-gradient-outline-reverse
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(let* (
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(posx (- (car (gimp-drawable-offsets logo-layer))))
(posy (- (cadr (gimp-drawable-offsets logo-layer))))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE "Background" 100 NORMAL-MODE)))
(grow-me (car (gimp-layer-copy logo-layer TRUE)))
(dont-drop-me 0)
)
(gimp-context-push)
(gimp-context-set-defaults)
(script-fu-util-image-resize-from-layer img logo-layer)
(script-fu-util-image-add-layers img grow-me bg-layer)
(gimp-item-set-name grow-me "Grow-me")
(gimp-layer-translate grow-me posx posy)
(gimp-context-set-background bg-color)
(gimp-selection-all img)
(gimp-edit-bucket-fill bg-layer BG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
(gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer)
; if we are going to use transparent gradients for text, we will (maybe) need to uncomment this
; this clears black letters first so you don't end up with black where the transparent should be
; (gimp-edit-clear img logo-layer)
(if (= use-pattern-text TRUE)
(begin
(gimp-context-set-pattern pattern-text)
(gimp-edit-bucket-fill logo-layer
PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
)
)
(if (= use-pattern-text FALSE)
(begin
(gimp-context-set-gradient blend-gradient-text)
(gimp-edit-blend logo-layer CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE
blend-gradient-text-reverse
FALSE 0 0 TRUE
0 0 0 (+ height 5))
)
)
(gimp-selection-none img)
(gimp-image-select-item img CHANNEL-OP-REPLACE grow-me)
(gimp-selection-grow img grow-size)
; if we are going to use transparent gradients for outline, we will (maybe) need to uncomment this
; I didn't put it in the options because there are already enough settings there and anyway, transparent
; gradients will be used very rarely (if ever)
; (gimp-edit-clear img grow-me)
(if (= use-pattern-outline TRUE)
(begin
(gimp-context-set-pattern pattern-outline)
(gimp-edit-bucket-fill grow-me
PATTERN-BUCKET-FILL NORMAL-MODE 100
0 FALSE 0 0)
)
)
(if (= use-pattern-outline FALSE)
(begin
(gimp-context-set-gradient blend-gradient-outline)
(gimp-edit-blend grow-me CUSTOM-MODE NORMAL-MODE
GRADIENT-LINEAR 100 0 REPEAT-NONE
blend-gradient-outline-reverse
FALSE 0 0 TRUE
0 0 0 (+ height 5))
)
)
(gimp-selection-none img)
(plug-in-bump-map (if (= noninteractive TRUE)
RUN-NONINTERACTIVE
RUN-INTERACTIVE)
img grow-me logo-layer
110.0 45.0 3 0 0 0 0 TRUE FALSE 0)
(gimp-layer-set-mode logo-layer SCREEN-MODE)
(if (= use-pattern-overlay TRUE)
(begin
(gimp-image-select-item img CHANNEL-OP-REPLACE grow-me)
(gimp-context-set-pattern pattern-overlay)
(gimp-edit-bucket-fill grow-me PATTERN-BUCKET-FILL
OVERLAY-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
)
)
(if (= shadow-toggle TRUE)
(begin
(gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer)
(set! dont-drop-me (car (script-fu-drop-shadow img logo-layer
s-offset-x s-offset-y
15 '(0 0 0) 80 TRUE)))
(set! width (car (gimp-image-width img)))
(set! height (car (gimp-image-height img)))
(gimp-selection-none img)
)
)
(gimp-context-pop)
)
)
(define (script-fu-glossy-logo-alpha img
logo-layer
blend-gradient-text
blend-gradient-text-reverse
blend-gradient-outline
blend-gradient-outline-reverse
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(begin
(gimp-image-undo-group-start img)
(apply-glossy-logo-effect img logo-layer
blend-gradient-text
blend-gradient-text-reverse
blend-gradient-outline
blend-gradient-outline-reverse
grow-size bg-color
use-pattern-text pattern-text
use-pattern-outline pattern-outline
use-pattern-overlay pattern-overlay
noninteractive shadow-toggle
s-offset-x s-offset-y)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-glossy-logo-alpha"
_"Glo_ssy..."
_"Add gradients, patterns, shadows, and bump maps to the selected region (or alpha)"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"14/04/1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-GRADIENT _"Blend gradient (text)" "Shadows 2"
SF-TOGGLE _"Text gradient reverse" FALSE
SF-GRADIENT _"Blend gradient (outline)" "Shadows 2"
SF-TOGGLE _"Outline gradient reverse" FALSE
SF-ADJUSTMENT _"Outline size" '(5 0 250 1 10 0 1)
SF-COLOR _"Background color" "white"
SF-TOGGLE _"Use pattern for text instead of gradient" FALSE
SF-PATTERN _"Pattern (text)" "Electric Blue"
SF-TOGGLE _"Use pattern for outline instead of gradient" FALSE
SF-PATTERN _"Pattern (outline)" "Electric Blue"
SF-TOGGLE _"Use pattern overlay" FALSE
SF-PATTERN _"Pattern (overlay)" "Parque #1"
SF-TOGGLE _"Default bumpmap settings" TRUE
SF-TOGGLE _"Shadow" TRUE
SF-ADJUSTMENT _"Shadow X offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(8 0 100 1 10 0 1)
)
(script-fu-menu-register "script-fu-glossy-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-glossy-logo text
size
font
blend-gradient-text
blend-gradient-text-reverse
blend-gradient-outline
blend-gradient-outline-reverse
grow-size
bg-color
use-pattern-text
pattern-text
use-pattern-outline
pattern-outline
use-pattern-overlay
pattern-overlay
noninteractive
shadow-toggle
s-offset-x
s-offset-y)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(text-layer (car (gimp-text-fontname img -1 0 0 text 30 TRUE size PIXELS font)))
)
(gimp-image-undo-disable img)
(apply-glossy-logo-effect img text-layer
blend-gradient-text
blend-gradient-text-reverse
blend-gradient-outline
blend-gradient-outline-reverse
grow-size bg-color
use-pattern-text pattern-text
use-pattern-outline pattern-outline
use-pattern-overlay pattern-overlay
noninteractive shadow-toggle
s-offset-x s-offset-y)
(gimp-image-undo-enable img)
(gimp-display-new img)
)
)
(script-fu-register "script-fu-glossy-logo"
_"Glo_ssy..."
_"Create a logo with gradients, patterns, shadows, and bump maps"
"Hrvoje Horvat (hhorvat@open.hr)"
"Hrvoje Horvat"
"14/04/1998"
""
SF-STRING _"Text" "Galaxy"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Eras"
SF-GRADIENT _"Blend gradient (text)" "Shadows 2"
SF-TOGGLE _"Text gradient reverse" FALSE
SF-GRADIENT _"Blend gradient (outline)" "Shadows 2"
SF-TOGGLE _"Outline gradient reverse" FALSE
SF-ADJUSTMENT _"Outline size" '(5 0 250 1 10 0 1)
SF-COLOR _"Background color" "white"
SF-TOGGLE _"Use pattern for text instead of gradient" FALSE
SF-PATTERN _"Pattern (text)" "Electric Blue"
SF-TOGGLE _"Use pattern for outline instead of gradient" FALSE
SF-PATTERN _"Pattern (outline)" "Electric Blue"
SF-TOGGLE _"Use pattern overlay" FALSE
SF-PATTERN _"Pattern (overlay)" "Parque #1"
SF-TOGGLE _"Default bumpmap settings" TRUE
SF-TOGGLE _"Shadow" TRUE
SF-ADJUSTMENT _"Shadow X offset" '(8 0 100 1 10 0 1)
SF-ADJUSTMENT _"Shadow Y offset" '(8 0 100 1 10 0 1)
)
(script-fu-menu-register "script-fu-glossy-logo"
"<Image>/File/Create/Logos")
|