/usr/share/gimp/2.0/scripts/elsamuko-grain.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 | ; 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 - Adding Film Grain after: http://www.gimpguru.org/Tutorials/FilmGrain/
;
(define (elsamuko-grain aimg adraw holdness value strength grainblur blackwhite)
(let* ((img (car (gimp-drawable-get-image adraw)))
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
(bw-layer (car (gimp-layer-copy adraw FALSE)))
(grainlayer (car (gimp-layer-new img
owidth
oheight
1
"Grain"
100
OVERLAY-MODE)))
(grainlayermask (car (gimp-layer-create-mask grainlayer ADD-WHITE-MASK)))
(floatingsel 0)
)
; 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 strength)
(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)
)
(gimp-context-set-foreground '(0 0 0))
(gimp-context-set-background '(255 255 255))
;optional b/w
(if(= blackwhite TRUE)
(begin
(gimp-image-add-layer img bw-layer -1)
(gimp-drawable-set-name bw-layer "B/W")
(gimp-desaturate-full bw-layer DESATURATE-LIGHTNESS)
)
)
;fill new layer with neutral gray
(gimp-image-add-layer img grainlayer -1)
(gimp-drawable-fill grainlayer TRANSPARENT-FILL)
(gimp-context-set-foreground '(128 128 128))
(gimp-selection-all img)
(gimp-edit-bucket-fill grainlayer 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 grainlayer holdness 0 0 value)
(if(> grainblur 0)
(begin
(plug-in-gauss 1 img grainlayer grainblur grainblur 1)
)
)
(gimp-layer-add-mask grainlayer grainlayermask)
;select the original image, copy and paste it as a layer mask into the grain layer
(gimp-selection-all img)
(gimp-edit-copy adraw)
(set! floatingsel (car (gimp-edit-paste grainlayermask TRUE)))
(gimp-floating-sel-anchor floatingsel)
;set color curves of layer mask, so that only gray areas become grainy
(gimp-curves-spline grainlayermask HISTOGRAM-VALUE 6 (splineValue))
; tidy up
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
)
)
(script-fu-register "elsamuko-grain"
_"_Film Grain"
"Simulating Film Grain.
Newest version can be downloaded from http://registry.gimp.org/node/8108"
"elsamuko <elsamuko@web.de>"
"elsamuko"
"13/08/08"
"*"
SF-IMAGE "Input image" 0
SF-DRAWABLE "Input drawable" 0
SF-ADJUSTMENT _"Holdness" '(2 1 8 1 2 0 0)
SF-ADJUSTMENT _"Value" '(100 0 255 1 10 0 0)
SF-ADJUSTMENT _"Strength" '(128 0 255 1 10 0 0)
SF-ADJUSTMENT _"Grain Blur" '(1 0 3 0.1 0.2 1 0)
SF-TOGGLE _"Desaturate Image" FALSE
)
(script-fu-menu-register "elsamuko-grain" _"<Image>/Filters/Generic")
|