/usr/share/gimp/2.0/scripts/elsamuko-obama-hope.scm is in gimp-plugin-registry 7.20140602+b4.
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 | ; The GIMP -- an 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, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
; http://www.gnu.org/licenses/gpl-3.0.html
;
; Copyright (C) 2008 elsamuko <elsamuko@web.de>
;
; Version 0.1 - First hack
; Version 0.2 - Seperated smoothness option to corn and smoothness
;
(define (elsamuko-obama-hope aimg adraw
smooth
corn
frame ;thickness
yellow
threshold1 color1 pattern
threshold2 color2
threshold3 color3
threshold4 color4
)
(let* ((img (car (gimp-drawable-get-image adraw)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
(yellowlayer (car (gimp-layer-new img
owidth
oheight
1
"Yellow"
100
NORMAL-MODE)))
(framelayer (car (gimp-layer-new img
owidth
oheight
1
"Frame"
100
NORMAL-MODE)))
;treshholds
(layer1 0)
(layer2 0)
(layer3 0)
(layer4 0)
;selections
(layer1b (car (gimp-layer-new img
owidth
oheight
1
"1 Fill"
100
NORMAL-MODE)))
(layer2b (car (gimp-layer-new img
owidth
oheight
1
"2 Fill"
100
NORMAL-MODE)))
(layer3b (car (gimp-layer-new img
owidth
oheight
1
"3 Fill"
100
NORMAL-MODE)))
(layer4b (car (gimp-layer-new img
owidth
oheight
1
"4 Fill"
100
NORMAL-MODE)))
)
;init
(gimp-context-push)
(gimp-image-undo-group-start img)
(if (= (car (gimp-drawable-has-alpha adraw )) FALSE)
(gimp-layer-add-alpha adraw)
)
(if (= (car (gimp-drawable-is-gray adraw )) TRUE)
(gimp-image-convert-rgb img)
)
(gimp-context-set-foreground yellow)
(gimp-context-set-background '(255 255 255))
;copy and add blurred original
(if (> smooth 0)
(plug-in-gauss 1 img adraw smooth smooth 0)
)
(set! layer1 (car(gimp-layer-copy adraw FALSE)))
(set! layer2 (car(gimp-layer-copy adraw FALSE)))
(set! layer3 (car(gimp-layer-copy adraw FALSE)))
(set! layer4 (car(gimp-layer-copy adraw FALSE)))
(gimp-image-add-layer img layer1 -1)
(gimp-image-add-layer img layer2 -1)
(gimp-image-add-layer img layer3 -1)
(gimp-image-add-layer img layer4 -1)
(gimp-drawable-set-name layer1 "1")
(gimp-drawable-set-name layer2 "2")
(gimp-drawable-set-name layer3 "3")
(gimp-drawable-set-name layer4 "4")
;add yellow color layer
(gimp-context-set-foreground yellow)
(gimp-image-add-layer img yellowlayer -1)
(gimp-drawable-fill yellowlayer TRANSPARENT-FILL)
(gimp-selection-all img)
(gimp-edit-bucket-fill yellowlayer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;add image layers
(gimp-image-add-layer img layer1b -1)
(gimp-drawable-fill layer1b TRANSPARENT-FILL)
(gimp-image-add-layer img layer2b -1)
(gimp-drawable-fill layer2b TRANSPARENT-FILL)
(gimp-image-add-layer img layer3b -1)
(gimp-drawable-fill layer3b TRANSPARENT-FILL)
(gimp-image-add-layer img layer4b -1)
(gimp-drawable-fill layer4b TRANSPARENT-FILL)
;stripes layer
(gimp-threshold layer1 threshold1 255)
(gimp-by-color-select layer1 '(0 0 0) 0 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(if (> corn 0)
(gimp-selection-grow img corn)
(gimp-selection-shrink img corn)
)
(gimp-context-set-pattern pattern)
(gimp-edit-bucket-fill layer1b PATTERN-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-by-color-select layer1b '(0 0 0) 0 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(gimp-context-set-foreground color1)
(gimp-edit-bucket-fill layer1b FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;2nd layer
(gimp-threshold layer2 threshold2 255)
(gimp-by-color-select layer2 '(0 0 0) 0 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(if (> corn 0)
(gimp-selection-grow img corn)
(gimp-selection-shrink img corn)
)
(gimp-context-set-foreground color2)
(gimp-edit-bucket-fill layer2b FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;3rd layer
(gimp-threshold layer3 threshold3 255)
(gimp-by-color-select layer3 '(0 0 0) 0 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(if (> corn 0)
(gimp-selection-grow img corn)
(gimp-selection-shrink img corn)
)
(gimp-context-set-foreground color3)
(gimp-edit-bucket-fill layer3b FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;4th layer
(gimp-threshold layer4 threshold4 255)
(gimp-by-color-select layer4 '(0 0 0) 0 CHANNEL-OP-REPLACE TRUE FALSE 0 FALSE)
(if (> corn 0)
(gimp-selection-grow img corn)
(gimp-selection-shrink img corn)
)
(gimp-context-set-foreground color4)
(gimp-edit-bucket-fill layer4b FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;add frame layer
(gimp-context-set-foreground yellow)
(gimp-image-add-layer img framelayer -1)
(gimp-drawable-fill framelayer TRANSPARENT-FILL)
(gimp-selection-all img)
(gimp-selection-shrink img frame)
(gimp-selection-invert img)
(gimp-edit-bucket-fill framelayer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
; tidy up
(gimp-selection-none img)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "elsamuko-obama-hope"
_"_Obama Hope"
"Shadow Style Portrait.
Newest version can be downloaded from http://registry.gimp.org"
"elsamuko <elsamuko@web.de>"
"elsamuko"
"20.02.2009"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Smoothness" '(10 0 50 1 10 0 0)
SF-ADJUSTMENT _"Corn Size" '(2 0 50 1 10 0 0)
SF-ADJUSTMENT _"Frame Thickness" '(16 1 500 1 10 0 0)
SF-COLOR _"Basic Color" '(253 229 169) ;yellow
SF-ADJUSTMENT _"Threshold 1" '(220 0 255 1 10 0 0)
SF-COLOR _"Color 1" '(113 150 159) ;blue
SF-STRING "Pattern" "Stripes"
SF-ADJUSTMENT _"Threshold 2" '(200 0 255 1 10 0 0)
SF-COLOR _"Color 2" '(113 150 159) ;blue
SF-ADJUSTMENT _"Threshold 3" '(150 0 255 1 10 0 0)
SF-COLOR _"Color 3" '(215 26 33) ;red
SF-ADJUSTMENT _"Threshold 4" '(100 0 255 1 10 0 0)
SF-COLOR _"Color 4" '( 0 50 77) ;dark
)
(script-fu-menu-register "elsamuko-obama-hope" _"<Image>/Filters/Artistic")
|