/usr/share/gimp/2.0/scripts/elsamuko-movie-300.scm is in gimp-plugin-registry 7.20140602ubuntu3.
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 | ; 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) 2010 elsamuko <elsamuko@web.de>
;
(define (elsamuko-movie-300 aimg adraw
color1 color2
desaturation overlay
gamma multiply
redtint grain
edge extra-dark)
(let* ((img (car (gimp-drawable-get-image adraw)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
(desat-layer (car (gimp-layer-copy adraw FALSE)))
(multiply-layer (car (gimp-layer-copy adraw FALSE)))
(multiply-layer2 (car (gimp-layer-copy adraw FALSE)))
(multiply-layer2-mask (car (gimp-layer-create-mask multiply-layer2 ADD-WHITE-MASK)))
(edge-layer (car (gimp-layer-copy adraw FALSE)))
(red-layer 0)
(overlay-layer1 (car (gimp-layer-copy adraw FALSE)))
(overlay-layer2 (car (gimp-layer-copy adraw FALSE)))
(yellow-layer (car (gimp-layer-new img
owidth
oheight
RGBA-IMAGE
"Yellow Multiply"
10
MULTIPLY-MODE)))
(sepia-layer (car (gimp-layer-new img
owidth
oheight
RGBA-IMAGE
"Sepia"
50
GRAIN-MERGE-MODE)))
(grain-layer (car (gimp-layer-new img
owidth
oheight
1
"Grain"
100
OVERLAY-MODE)))
(grain-layer-mask (car (gimp-layer-create-mask grain-layer ADD-WHITE-MASK)))
)
; init
(define (set-pt a index x y)
(begin
(aset a (* index 2) x)
(aset a (+ (* index 2) 1) y)
)
)
(define (splineValue)
(let* ((a (cons-array 6 'byte)))
(set-pt a 0 0 0)
(set-pt a 1 128 grain)
(set-pt a 2 255 0)
a
)
)
(gimp-context-push)
(gimp-image-undo-group-start img)
(if (= (car (gimp-drawable-is-gray adraw )) TRUE)
(gimp-image-convert-rgb img)
)
;some more red
(gimp-image-add-layer img edge-layer 0)
(gimp-drawable-set-name edge-layer "Edge Amp")
(gimp-color-balance edge-layer MIDTONES TRUE 20 0 0)
(gimp-color-balance edge-layer HIGHLIGHTS TRUE 20 0 0)
(gimp-layer-set-mode edge-layer GRAIN-EXTRACT-MODE)
(gimp-edit-copy-visible img)
(set! red-layer (car (gimp-layer-new-from-visible img img "Red")))
(gimp-image-add-layer img red-layer 0)
(gimp-layer-set-mode red-layer GRAIN-MERGE-MODE)
(gimp-layer-set-opacity red-layer redtint)
(gimp-invert red-layer)
(gimp-drawable-set-visible edge-layer FALSE)
;set desaturated and multiply layer
(gimp-image-add-layer img desat-layer -1)
(gimp-drawable-set-name desat-layer "Desaturated")
(gimp-layer-set-mode desat-layer NORMAL-MODE)
(gimp-layer-set-opacity desat-layer 100)
(gimp-hue-saturation desat-layer ALL-HUES 0 0 desaturation)
(gimp-image-add-layer img multiply-layer -1)
(gimp-drawable-set-name multiply-layer "Multiply 1")
(gimp-layer-set-mode multiply-layer MULTIPLY-MODE)
(gimp-layer-set-opacity multiply-layer multiply)
(gimp-hue-saturation multiply-layer ALL-HUES 0 0 desaturation)
(if(= extra-dark TRUE)
(begin
(gimp-image-add-layer img multiply-layer2 -1)
(gimp-drawable-set-name multiply-layer2 "Multiply 2")
(gimp-layer-set-mode multiply-layer2 MULTIPLY-MODE)
(gimp-layer-set-opacity multiply-layer2 100)
(gimp-desaturate-full multiply-layer2 DESATURATE-LUMINOSITY)
(gimp-layer-add-mask multiply-layer2 multiply-layer2-mask)
(gimp-selection-all img)
(gimp-edit-copy multiply-layer2)
(gimp-floating-sel-anchor (car (gimp-edit-paste multiply-layer2-mask TRUE)))
)
)
;set overlay layers
(gimp-image-add-layer img overlay-layer1 -1)
(gimp-drawable-set-name overlay-layer1 "Overlay 1")
(gimp-layer-set-mode overlay-layer1 OVERLAY-MODE)
(gimp-layer-set-opacity overlay-layer1 overlay)
(gimp-desaturate-full overlay-layer1 DESATURATE-LUMINOSITY)
(gimp-levels overlay-layer1 HISTOGRAM-VALUE 70 150 gamma 0 255)
(gimp-image-add-layer img overlay-layer2 -1)
(gimp-drawable-set-name overlay-layer2 "Overlay 2")
(gimp-layer-set-mode overlay-layer2 OVERLAY-MODE)
(gimp-layer-set-opacity overlay-layer2 overlay)
(gimp-desaturate-full overlay-layer2 DESATURATE-LUMINOSITY)
(gimp-levels overlay-layer2 HISTOGRAM-VALUE 70 150 gamma 0 255)
;set yellow multiply layer
(gimp-image-add-layer img yellow-layer -1)
(gimp-selection-all img)
(gimp-context-set-foreground color2)
(gimp-edit-bucket-fill yellow-layer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
;set sepia grain merge layer
(gimp-image-add-layer img sepia-layer -1)
(gimp-selection-all img)
(gimp-context-set-foreground color1)
(gimp-edit-bucket-fill sepia-layer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
;move red tint layer to top
(gimp-image-raise-layer-to-top img red-layer)
;add grain
(if(> grain 0)
(begin
;fill new layer with neutral gray
(gimp-image-add-layer img grain-layer -1)
(gimp-drawable-fill grain-layer TRANSPARENT-FILL)
(gimp-context-set-foreground '(128 128 128))
(gimp-selection-all img)
(gimp-edit-bucket-fill grain-layer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
(gimp-selection-none img)
;add grain and blur it
(plug-in-scatter-hsv 1 img grain-layer 2 0 0 100)
(plug-in-gauss 1 img grain-layer 0.5 0.5 1)
(gimp-layer-add-mask grain-layer grain-layer-mask)
;select the original image, copy and paste it as a layer mask into the grain layer
(gimp-selection-all img)
(gimp-edit-copy adraw)
(gimp-floating-sel-anchor (car (gimp-edit-paste grain-layer-mask TRUE)))
;set color curves of layer mask, so that only gray areas become grainy
(gimp-curves-spline grain-layer-mask HISTOGRAM-VALUE 6 (splineValue))
)
)
;edge detection
(if(= edge TRUE)
(begin
(gimp-image-raise-layer-to-top img edge-layer)
(gimp-drawable-set-visible edge-layer TRUE)
(plug-in-sobel TRUE img edge-layer TRUE TRUE TRUE)
(gimp-levels-stretch edge-layer)
(gimp-desaturate-full edge-layer DESATURATE-LUMINOSITY)
(gimp-invert edge-layer)
(gimp-layer-set-mode edge-layer MULTIPLY-MODE)
(gimp-layer-set-opacity edge-layer 50)
)
)
; tidy up
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "elsamuko-movie-300"
"_Movie 300"
"Color effect from the movie 300."
"elsamuko <elsamuko@web.de>"
"elsamuko"
"04/03/10"
"RGB*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-COLOR "Grain Merge" '(160 141 105)
SF-COLOR "Multiply" '(241 229 31)
SF-ADJUSTMENT "Desaturation" '(-60 -100 0 1 10 0 0)
SF-ADJUSTMENT "Overlay Opacity" '( 60 0 100 1 10 0 0)
SF-ADJUSTMENT "Overlay Gamma" '( 2 1 3 0.1 0.2 1 0)
SF-ADJUSTMENT "Multiply Opacity" '( 50 0 100 1 10 0 0)
SF-ADJUSTMENT "Red Tint Opacity" '( 80 0 100 1 10 0 0)
SF-ADJUSTMENT "Grain Strength" '(128 0 255 1 10 0 0)
SF-TOGGLE "Edge Amplification" TRUE
SF-TOGGLE "Extra Darkening" FALSE
)
(script-fu-menu-register "elsamuko-movie-300" _"<Image>/Filters/Artistic")
|