/usr/share/gimp/2.0/scripts/bovinated-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 | ; 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 2 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, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
;
; Bovinated Logos v0.1 04/08/98
; by Brian McFee <keebler@wco.com>
; Creates Cow-spotted logs.. what else?
(define (apply-bovinated-logo-effect img
logo-layer
spots-x
spots-y
bg-color)
(let* (
(width (car (gimp-drawable-width logo-layer)))
(height (car (gimp-drawable-height logo-layer)))
(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)
(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-context-set-background '(191 191 191))
(gimp-selection-none img)
(gimp-layer-set-lock-alpha blur-layer FALSE)
(gimp-selection-layer-alpha logo-layer)
(gimp-edit-fill blur-layer BACKGROUND-FILL)
(plug-in-gauss-rle RUN-NONINTERACTIVE img blur-layer 5.0 1 1)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer TRUE)
(gimp-selection-all img)
(plug-in-solid-noise RUN-NONINTERACTIVE img logo-layer 0 0 23 1 spots-x spots-y)
(gimp-brightness-contrast logo-layer 0 127)
(gimp-selection-none img)
(gimp-layer-set-lock-alpha logo-layer FALSE)
(plug-in-bump-map RUN-NONINTERACTIVE img logo-layer blur-layer
135 50 10 0 0 0 30 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-bovinated-logo-alpha img
logo-layer
spots-x
spots-y
bg-color)
(begin
(gimp-image-undo-group-start img)
(apply-bovinated-logo-effect img logo-layer spots-x spots-y bg-color)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-bovinated-logo-alpha"
_"Bo_vination..."
_"Add 'cow spots' 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 _"Spots density X" '(16 1 16 1 10 0 1)
SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1)
SF-COLOR _"Background Color" "white"
)
(script-fu-menu-register "script-fu-bovinated-logo-alpha"
"<Image>/Filters/Alpha to Logo")
(define (script-fu-bovinated-logo text
size
font
spots-x
spots-y
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-bovinated-logo-effect img text-layer spots-x spots-y bg-color)
(gimp-image-undo-enable img)
(gimp-display-new img)
)
)
(script-fu-register "script-fu-bovinated-logo"
_"Bo_vination..."
_"Create a logo with text in the style of 'cow spots'"
"Brian McFee <keebler@wco.com>"
"Brian McFee"
"April 1998"
""
SF-STRING _"Text" "Fear the Cow"
SF-ADJUSTMENT _"Font size (pixels)" '(80 2 1000 1 10 0 1)
SF-FONT _"Font" "RoostHeavy"
SF-ADJUSTMENT _"Spots density X" '(16 1 16 1 10 0 1)
SF-ADJUSTMENT _"Spots density Y" '(4 1 16 1 10 0 1)
SF-COLOR _"Background color" "white"
)
(script-fu-menu-register "script-fu-bovinated-logo"
"<Image>/File/Create/Logos")
|