/usr/share/gimp/2.0/scripts/melcher-aquarel.scm is in gimp-plugin-registry 5.20120621.
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 | ;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; xMedia quarel script for GIMP 2.4
; Original author: Alexander Melcher (a.melchers@planet.nl)
; At xMedia, The Netherlands
;
; Tags: photo, artistic
;
; Author statement:
;
; Gives the image an aquareled look
;
; --------------------------------------------------------------------
; Distributed by Gimp FX Foundry project
; --------------------------------------------------------------------
; - Changelog -
;
; --------------------------------------------------------------------
;
; 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, see <http://www.gnu.org/licenses/>.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Define the function
(define (script-fu-aquarel inImage
inLayer
inWaterEdges
inBrushSize
inAccuracy
)
(let* (
(textureLayer 0)
(oldSelection 0)
(oldPattern 0)
)
; Group undo information
(gimp-image-undo-group-start inImage)
; Water edge effect
(plug-in-gauss-rle 1 inImage inLayer inWaterEdges 1 1)
(plug-in-gauss-rle 1 inImage inLayer inWaterEdges 1 1)
; Add a brushed effect
(plug-in-oilify 1 inImage inLayer inBrushSize 1)
(if (= inAccuracy 0)
(plug-in-oilify 1 inImage inLayer inBrushSize 1)
()
)
; Enhance edges
(plug-in-sharpen 1 inImage inLayer inWaterEdges)
; Enhance contrast
(gimp-brightness-contrast inLayer 0 50)
; Add a paper texture
(set! textureLayer (car (gimp-layer-new inImage
(car (gimp-image-width inImage))
(car (gimp-image-height inImage))
(car (gimp-drawable-type-with-alpha inLayer))
_"Paper Texture" 100 OVERLAY-MODE)))
(gimp-image-add-layer inImage textureLayer -1)
(set! oldSelection (car (gimp-selection-save inImage)))
(gimp-selection-all inImage)
(gimp-edit-clear textureLayer)
(set! oldPattern (car (gimp-context-get-pattern)))
(gimp-context-set-pattern "Paper")
(gimp-edit-bucket-fill textureLayer PATTERN-BUCKET-FILL NORMAL-MODE 100 0 0 0 0)
(gimp-context-set-pattern oldPattern)
(gimp-selection-load oldSelection)
(if (= (car (gimp-selection-is-empty inImage)) TRUE)
()
(begin
(gimp-selection-invert inImage)
(gimp-edit-clear textureLayer)
(gimp-selection-load oldSelection)
)
)
; Group undo information
(gimp-image-undo-group-end inImage)
; Force update
(gimp-displays-flush)
; Return
(list inLayer)
)
)
; Register script-fu-aquarel
(script-fu-register
"script-fu-aquarel"
_"Aquarel..."
_"Gives an image an aquarelled look"
"Alexander Melchers"
"2002, Alexander Melchers, xMedia"
"29th March 2003"
"RGB* GRAY*"
SF-IMAGE "The Image" 0
SF-DRAWABLE "The Layer" 0
SF-ADJUSTMENT _"Water Edges" '(7 3 50 1 1 0 0)
SF-ADJUSTMENT _"Brush Size" '(7 3 50 1 1 0 0)
SF-ADJUSTMENT _"Accuracy" '(0 0 1 1 1 0 0)
)
(script-fu-menu-register "script-fu-aquarel"
"<Image>/FX-Foundry/Artistic")
|