/usr/share/gimp/2.0/scripts/frosty-logo.scm is in gimp-data 2.6.12-1ubuntu1.4.
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 | ; FROZEN-TEXT effect
; Thanks to Ed Mackey for this one
; Written by Spencer Kimball
(define (apply-frosty-logo-effect img
logo-layer
size
bg-color
isnew) ; The parameter isnew is used
; when the script is called
; using the logo script (not
; alpha to logo), in order to
; make sure some actions are
; performed only then
(let* (
(border (/ size 5))
(width (+ (car (gimp-drawable-width logo-layer)) border))
(height (+ (car (gimp-drawable-height logo-layer)) border))
(logo-layer-mask (car (gimp-layer-create-mask logo-layer
ADD-BLACK-MASK)))
(sparkle-layer (car (gimp-layer-new img width height RGBA-IMAGE
"Sparkle" 100 NORMAL-MODE)))
(matte-layer (car (gimp-layer-new img width height RGBA-IMAGE
"Matte" 100 NORMAL-MODE)))
(shadow-layer (car (gimp-layer-new img
(+ border width)
(+ border height)
RGBA-IMAGE
"Shadow" 90 MULTIPLY-MODE)))
(bg-layer (car (gimp-layer-new img width height RGB-IMAGE
"Background" 100 NORMAL-MODE)))
(selection 0)
(stack (car(gimp-image-get-layer-position img logo-layer)))
)
(gimp-context-push)
(if ( = isnew 1) (script-fu-util-image-resize-from-layer img shadow-layer))
(gimp-layer-add-mask logo-layer logo-layer-mask)
(gimp-image-add-layer img sparkle-layer (+ 1 stack))
(gimp-image-add-layer img matte-layer (+ 2 stack))
(gimp-image-add-layer img shadow-layer (+ 3 stack))
(gimp-layer-translate shadow-layer (- border) (- border))
(gimp-image-add-layer img bg-layer 5)
(gimp-selection-none img)
(gimp-edit-clear sparkle-layer)
(gimp-edit-clear matte-layer)
(gimp-edit-clear shadow-layer)
(gimp-selection-layer-alpha logo-layer)
(set! selection (car (gimp-selection-save img)))
(gimp-selection-feather img border)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill sparkle-layer BACKGROUND-FILL)
(plug-in-noisify RUN-NONINTERACTIVE img sparkle-layer FALSE 0.2 0.2 0.2 0.0)
(plug-in-c-astretch RUN-NONINTERACTIVE img sparkle-layer)
(gimp-selection-none img)
(plug-in-sparkle RUN-NONINTERACTIVE img sparkle-layer 0.03 0.5
(/ (min width height) 2)
6 15 1.0 0.0 0.0 0.0 FALSE FALSE FALSE 0)
(gimp-levels sparkle-layer 1 0 255 0.2 0 255)
(gimp-levels sparkle-layer 2 0 255 0.7 0 255)
(gimp-selection-layer-alpha sparkle-layer)
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-brush "Circle Fuzzy (11)")
(gimp-edit-stroke matte-layer)
(gimp-selection-feather img border)
(gimp-edit-fill shadow-layer BACKGROUND-FILL)
(gimp-selection-none img)
(gimp-context-set-background bg-color)
(gimp-edit-fill bg-layer BACKGROUND-FILL)
(gimp-context-set-background '(0 0 0))
(gimp-edit-fill logo-layer BACKGROUND-FILL)
(gimp-selection-load selection)
(gimp-context-set-background '(255 255 255))
(gimp-edit-fill logo-layer-mask BACKGROUND-FILL)
(gimp-selection-feather img border)
(gimp-selection-translate img (/ border 2) (/ border 2))
(gimp-edit-fill logo-layer BACKGROUND-FILL)
(gimp-layer-remove-mask logo-layer 0)
(gimp-selection-load selection)
(gimp-context-set-brush "Circle Fuzzy (07)")
(gimp-context-set-paint-mode BEHIND-MODE)
(gimp-context-set-foreground '(186 241 255))
(gimp-edit-stroke logo-layer)
(gimp-selection-none img)
(gimp-image-remove-channel img selection)
(gimp-layer-translate shadow-layer border border)
(if ( = isnew 1) (script-fu-util-image-resize-from-layer img logo-layer))
(gimp-layer-translate bg-layer (- 0 border) (- 0 border))
(gimp-context-pop)
)
)
(define (script-fu-frosty-logo-alpha img
logo-layer
size
bg-color)
(gimp-image-undo-group-start img)
;Checking if the effect size is to big or not
(gimp-selection-layer-alpha logo-layer)
(gimp-selection-feather img (/ size 5))
(gimp-selection-sharpen img)
(if (= 1 (car(gimp-selection-is-empty img)))
(begin
(gimp-image-undo-group-end img)
(gimp-selection-none img)
(gimp-message "Your layer's opaque parts are either too small for
this effect size, or they are not inside the canvas.")
))
(if (= 0 (car(gimp-selection-is-empty img)))
(begin
(gimp-selection-none img)
(gimp-layer-resize-to-image-size logo-layer)
(apply-frosty-logo-effect img logo-layer size bg-color 0)
(gimp-selection-none img)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
))
)
(script-fu-register "script-fu-frosty-logo-alpha"
_"_Frosty..."
_"Add a frost effect to the selected region (or alpha) with an added drop shadow"
"Spencer Kimball & Ed Mackey"
"Spencer Kimball & Ed Mackey"
"1997"
"RGBA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Effect size (pixels)" '(100 2 1000 1 10 0 1)
SF-COLOR _"Background color" "white"
)
(script-fu-menu-register "script-fu-frosty-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-frosty-logo text
size
font
bg-color)
(let* (
(img (car (gimp-image-new 256 256 RGB)))
(border (/ size 5))
(text-layer (car (gimp-text-fontname img -1 0 0 text (* border 2) TRUE size PIXELS font)))
(error-string "The text you entered contains only spaces.")
)
(if (= text-layer -1) ; checking that the text layer was created
; succesfully - it has more then just
; empty charcters
(begin
(gimp-image-delete img)
(gimp-message error-string)
)
(begin ; Checking if the effect size is too big or not
(gimp-image-undo-disable img)
(gimp-selection-layer-alpha text-layer)
(gimp-selection-feather img border)
(gimp-selection-sharpen img)
(if (= 0 (car(gimp-selection-is-empty img))) ; Checking whether
; the effect size
; is too big
(begin
(apply-frosty-logo-effect img text-layer size bg-color 1)
(gimp-selection-all img)
(gimp-image-undo-enable img)
(gimp-display-new img)
))
(if (= 1 (car(gimp-selection-is-empty img)))
(begin
(gimp-image-delete img)
(gimp-message error-string)
))))
)
)
(script-fu-register "script-fu-frosty-logo"
_"_Frosty..."
_"Create frozen logo with an added drop shadow"
"Spencer Kimball & Ed Mackey"
"Spencer Kimball & Ed Mackey"
"1997"
""
SF-STRING _"Text" "GIMP"
SF-ADJUSTMENT _"Font size (pixels)" '(100 2 1000 1 10 0 1)
SF-FONT _"Font" "Becker"
SF-COLOR _"Background color" "white"
)
(script-fu-menu-register "script-fu-frosty-logo"
"<Image>/File/Create/Logos")
|