/usr/share/gimp/2.0/scripts/wade-powertone.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 | ;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Powertone script for GIMP 2.4
; Created by Art Wade
;
; Tags: color, photo, artistic, tone
;
; Author statement:
;
; This script is based on a tutorial presented by gimptalk.com member,
; lylejk (http://www.gimptalk.com/forum/topic/Powertoning-Very-Simple-Technique-26500-1.html).
; It takes an existing image's active layer and makes two copies: setting the Middle copy
; to Saturation and the Top copy to Value. The Original Layer is then filled with your
; choice of color. Gives a very dramatic effect and, depending on the image, somewhat
; resembles an Infrared Photograph.
;
; --------------------------------------------------------------------
; 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 (power-toning inImage inLayer inColor inMerge)
; Declare the Variables
(let*
(
(width (car (gimp-image-width inImage)))
(height (car (gimp-image-height inImage)))
(saturation-layer (car (gimp-layer-copy inLayer TRUE)))
(value-layer (car (gimp-layer-copy inLayer TRUE)))
)
; Allow for the foreground color to be reset to the value used prior to running the script
(gimp-context-push)
; Begin Undo Group
(gimp-image-undo-group-start inImage)
; Add Saturation and Value Layers to the Image and change names & blend modes accordingly
(gimp-image-add-layer inImage saturation-layer -1)
(gimp-layer-set-mode saturation-layer SATURATION-MODE)
(gimp-drawable-set-name saturation-layer _"Saturation Layer")
(gimp-image-add-layer inImage value-layer -1)
(gimp-layer-set-mode value-layer VALUE-MODE)
(gimp-drawable-set-name value-layer _"Value Layer")
; Change the active layer to the background layer
(gimp-image-set-active-layer inImage inLayer)
; Set the background color to that chosen by the user and fill the background layer
(gimp-context-set-foreground inColor)
(gimp-edit-fill inLayer FOREGROUND-FILL)
; Merge the layers if requested by the user
(if (= inMerge TRUE)
(gimp-image-merge-visible-layers inImage CLIP-TO-IMAGE))
(set! inLayer (car (gimp-image-get-active-layer inImage)))
; Update display
(gimp-displays-flush)
; End Undo Group
(gimp-image-undo-group-end inImage)
; Return GIMP defaults
(gimp-context-pop)
)
)
(script-fu-register "power-toning"
_"Power Toning..."
_"Adds a neutral gray and color of choice to an existing image. Almost an IR effect."
"Art Wade"
"Art Wade"
"2007"
"RGB*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-COLOR _"Background Color" '(0 0 0)
SF-TOGGLE _"Merge Layers" FALSE
)
(script-fu-menu-register "power-toning"
"<Image>/FX-Foundry/Artistic")
|