/usr/share/gimp/2.0/scripts/elsamuko-technicolor-2-color-batch.scm is in gimp-plugin-registry 7.20140602ubuntu2.
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 | ; 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 - Simulating the 2 color technicolor
; Version 0.2 - Some decomposing options
;
;
; This is the batch version of the elsamuko-technicolor-2-color-batch script, run it with
; gimp -i -b '(elsamuko-technicolor-2-color-batch "picture.jpg" 0.97 FALSE 1 0.5 0 255 255 255 0 0 255 255 0 TRUE)' -b '(gimp-quit 0)'
; or for more than one picture
; gimp -i -b '(elsamuko-technicolor-2-color-batch "*.jpg" 0.97 FALSE 1 0.5 0 255 255 255 0 0 255 255 0 TRUE)' -b '(gimp-quit 0)'
(define (elsamuko-technicolor-2-color-batch pattern quality overwrite
redpart greenpart
cyanfill_R cyanfill_G cyanfill_B
redfill_R redfill_G redfill_B
yellowfill_R yellowfill_G yellowfill_B
sharpen)
(let* ((filelist (cadr (file-glob pattern 1))))
(while (not (null? filelist))
(let* ((filename (car filelist))
(fileparts (strbreakup filename "."))
(img (car (gimp-file-load RUN-NONINTERACTIVE filename filename)))
(adraw (car (gimp-image-get-active-drawable img)))
(cyanfill (list cyanfill_R cyanfill_G cyanfill_B))
(redfill (list redfill_R redfill_G redfill_B))
(yellowfill (list yellowfill_R yellowfill_G yellowfill_B))
;--------------------------------------------------------
;--------------------------------------------------------
;--------------------------------------------------------
(owidth (car (gimp-image-width img)))
(oheight (car (gimp-image-height img)))
(sharpenlayer (car (gimp-layer-copy adraw FALSE)))
(redlayer (car (gimp-layer-copy adraw FALSE)))
(cyanlayer (car (gimp-layer-copy adraw FALSE)))
(yellowlayer (car (gimp-layer-new img
owidth
oheight
1
"Yellow"
30 ;opacity
OVERLAY-MODE)))
;decomposing filter colors, you may change these
(red-R redpart)
(red-G (/ (- 1 redpart) 2) )
(red-B (/ (- 1 redpart) 2) )
(cyan-R 0)
(cyan-G greenpart)
(cyan-B (- 1 greenpart) )
)
; init
(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))
(gimp-drawable-set-visible adraw FALSE)
;red and cyan filter
(gimp-drawable-set-name cyanlayer "Cyan")
(gimp-drawable-set-name redlayer "Red")
(gimp-image-add-layer img redlayer -1)
(gimp-image-add-layer img cyanlayer -1)
(plug-in-colors-channel-mixer 1 img redlayer TRUE
red-R red-G red-B ;R
0 0 0 ;G
0 0 0 ;B
)
(plug-in-colors-channel-mixer 1 img cyanlayer TRUE
cyan-R cyan-G cyan-B ;R
0 0 0 ;G
0 0 0 ;B
)
;colorize filter layers back
(gimp-context-set-foreground cyanfill)
(gimp-context-set-background redfill)
(gimp-selection-all img)
(gimp-edit-bucket-fill redlayer FG-BUCKET-FILL SCREEN-MODE 100 0 FALSE 0 0)
(gimp-edit-bucket-fill cyanlayer BG-BUCKET-FILL SCREEN-MODE 100 0 FALSE 0 0)
(gimp-layer-set-mode cyanlayer MULTIPLY-MODE)
;add yellow layer
(gimp-image-add-layer img yellowlayer -1)
(gimp-context-set-foreground yellowfill)
(gimp-edit-bucket-fill yellowlayer FG-BUCKET-FILL NORMAL-MODE 100 0 FALSE 0 0)
;sharpness + contrast layer
(if(= sharpen TRUE)
(begin
(gimp-image-add-layer img sharpenlayer -1)
(gimp-desaturate-full sharpenlayer DESATURATE-LIGHTNESS)
(plug-in-unsharp-mask 1 img sharpenlayer 5 1 0)
(gimp-layer-set-mode sharpenlayer OVERLAY-MODE)
(gimp-layer-set-opacity sharpenlayer 40)
)
)
; tidy up
(gimp-selection-none img)
(gimp-image-undo-group-end img)
(gimp-displays-flush)
(gimp-context-pop)
;--------------------------------------------------------
;--------------------------------------------------------
;--------------------------------------------------------
; Ending
(gimp-image-merge-visible-layers img EXPAND-AS-NECESSARY)
(set! adraw (car (gimp-image-get-active-drawable img)))
(if (= overwrite TRUE)
(file-jpeg-save RUN-NONINTERACTIVE img adraw filename filename quality 0 1 0 "" 0 1 0 1)
(file-jpeg-save RUN-NONINTERACTIVE img adraw (string-append (car fileparts) "-Technicolor2.jpg") (string-append (car fileparts) "-Technicolor2.jpg") quality 0 1 0 "" 0 1 0 1))
(gimp-image-delete img))
(set! filelist (cdr filelist))
)
)
)
|