/usr/share/gimp/2.0/scripts/gradient-bevel-logo.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 | ; GIMP - The GNU Image Manipulation Program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; 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/>.
;
; Gradient Bevel v0.1 04/08/98
; by Brian McFee <keebler@wco.com>
; Create cool glossy bevelly text
(define (apply-gradient-bevel-logo-effect img
logo-layer
b-size
bevel-height
bevel-width
bg-color)
(let* (
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(indentX (+ b-size 12))
(indentY (+ b-size (/ height 8)))
(bg-layer (car (gimp-layer-new img width height RGBA-IMAGE "Background" 100 NORMAL-MODE)))
(blur-layer (car (gimp-layer-new img width height RGBA-IMAGE "Blur" 100 NORMAL-MODE)))
)
(gimp-context-push)
(gimp-context-set-defaults)
(script-fu-util-image-resize-from-layer img logo-layer)
(script-fu-util-image-add-layers img blur-layer bg-layer)
(gimp-selection-all img)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha blur-layer TRUE)
(gimp-context-set-background '(255 255 255))
(gimp-selection-all img)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(gimp-edit-clear blur-layer)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha blur-layer FALSE)
(gimp-image-select-item img CHANNEL-OP-REPLACE logo-layer)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer bevel-width 1 1)
(gimp-selection-none img)
(gimp-context-set-background '(127 127 127))
(gimp-context-set-foreground '(255 255 255))
(gimp-layer-set-lock-alpha logo-layer TRUE)
(gimp-selection-all img)
(gimp-edit-blend logo-layer FG-BG-RGB-MODE NORMAL-MODE
GRADIENT-RADIAL 95 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
indentX indentY indentX (- height indentY))
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer 115 bevel-height 5 0 0 0 15 TRUE FALSE 0)
(gimp-layer-set-offsets blur-layer 5 5)
(gimp-invert blur-layer)
(gimp-layer-set-opacity blur-layer 50.0)
(gimp-image-set-active-layer img logo-layer)
(gimp-context-pop)
)
)
(define (script-fu-gradient-bevel-logo-alpha img
logo-layer
b-size
bevel-height
bevel-width
bg-color)
(gimp-image-undo-group-start img)
(apply-gradient-bevel-logo-effect img logo-layer b-size
bevel-height bevel-width bg-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
(script-fu-register "script-fu-gradient-bevel-logo-alpha"
_"Gradient Beve_l..."
_"Add a shiny look and bevel effect to the selected region (or alpha)"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Border size (pixels)" '(22 1 300 1 10 0 1)
SF-ADJUSTMENT _"Bevel height (sharpness)" '(40 1 250 1 10 0 1)
SF-ADJUSTMENT _"Bevel width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background color" "white"
)
(script-fu-menu-register "script-fu-gradient-bevel-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-gradient-bevel-logo text
size
font
bevel-height
bevel-width
bg-color)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(border (/ size 4))
(text-layer (car (gimp-text-fontname img -1 0 0 text
border TRUE size PIXELS font)))
)
(gimp-image-undo-disable img)
(apply-gradient-bevel-logo-effect img text-layer border
bevel-height bevel-width bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)
)
)
(script-fu-register "script-fu-gradient-bevel-logo"
_"Gradient Beve_l..."
_"Create a logo with a shiny look and beveled edges"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
""
SF-STRING _"Text" "Moo"
SF-ADJUSTMENT _"Font size (pixels)" '(90 2 1000 1 10 0 1)
SF-FONT _"Font" "Sans Bold"
SF-ADJUSTMENT _"Bevel height (sharpness)" '(40 1 250 1 10 0 1)
SF-ADJUSTMENT _"Bevel width" '(2.5 1 200 1 10 1 1)
SF-COLOR _"Background color" "white"
)
(script-fu-menu-register "script-fu-gradient-bevel-logo"
"<Image>/File/Create/Logos")
|