/usr/share/gimp/2.0/scripts/hdroberts-tone-adjust.scm is in gimp-plugin-registry 5.20120621ubuntu3.
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 | ;
; tone-adjust
;
; Copyright (C) 2010 Howard Roberts(howardroberts@comcast.net)
;
; 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.
(define (tone-adjust img drawable tone method density flatten)
(gimp-context-push)
(gimp-image-undo-group-start img)
(let* (
(width (car (gimp-image-width img)))
(height (car (gimp-image-height img)))
(old-color (car (gimp-context-get-foreground)))
(fill-color '(255 255 255))
(overlay-layer (car (gimp-layer-new img width height RGB-IMAGE "Tone" 100 OVERLAY-MODE)))
(myChannel (car (gimp-channel-new-from-component img RED-CHANNEL "Value")))
)
(gimp-image-add-layer img overlay-layer 0)
(gimp-image-raise-layer-to-top img overlay-layer)
(if (or (= tone 6)(= method 1))
(gimp-selection-combine myChannel CHANNEL-OP-REPLACE)
)
(cond ((= tone 0)
(set! fill-color '(0 109 255))
)
((= tone 1)
(set! fill-color '(0 181 255))
)
((= tone 2)
(set! fill-color '(235 177 19))
)
((= tone 3)
(set! fill-color '(237 138 0))
)
((= tone 4)
(gimp-image-remove-layer img overlay-layer)
(gimp-color-balance drawable 1 TRUE 0 -5 -20)
)
((= tone 5)
(gimp-image-remove-layer img overlay-layer)
(let* (
(warmed-layer (car (gimp-layer-copy drawable FALSE)))
)
(gimp-image-add-layer img warmed-layer -1)
(gimp-colorize warmed-layer 40 50 0)
(gimp-layer-set-opacity warmed-layer density)
)
)
((= tone 6)
(set! fill-color '(255 255 255))
)
)
(unless (or (= tone 4)(= tone 5))
(if (= tone 6)
(gimp-layer-set-opacity overlay-layer 100)
(gimp-layer-set-opacity overlay-layer density)
)
)
(cond ((or (< tone 4)(= tone 6))
(gimp-context-set-background fill-color)
(gimp-edit-bucket-fill-full overlay-layer BG-BUCKET-FILL NORMAL-MODE 100 255 FALSE FALSE SELECT-CRITERION-COMPOSITE 0 0)
(gimp-context-set-background old-color)
(gimp-selection-none img)
)
)
(if (= flatten TRUE)
(gimp-image-flatten img)
)
)
(gimp-displays-flush)
(gimp-image-undo-group-end img)
(gimp-context-pop)
)
(script-fu-register "tone-adjust"
"Warming or Cooling Filter"
"Warm or cool an image using one of several methods"
"Howard Roberts <howardroberts@comcast.net>"
"(c) 2010 Howard D. Roberts"
"May 24,2010"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer" 0
SF-OPTION "Tone" '("Cooling - Wratten 80"
"Cooling - Wratten 82"
"Warming - Wratten 81"
"Warming - Wratten 85"
"Roy's Warm"
"Brauer's Warm"
"Pasty Cadaveric Look")
SF-OPTION _"Overlay Fill Method\nApplies only to Wratten filters" '("Fill Entire layer"
"Fill Red Channel")
SF-ADJUSTMENT _"Opacity\nPasty Cadaveric defaults to 100%" '(25 1 100 0 1 0 0 0)
SF-TOGGLE _"\nFlatten image" FALSE)
(script-fu-menu-register "tone-adjust"
"<Image>/Colors")
|