gimp-plugin-registry 7.20140602ubuntu3 / usr / share / gimp / 2.0 / scripts / lasm-gm-invert.scm

This file is indexed.

/usr/share/gimp/2.0/scripts/lasm-gm-invert.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
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Lasm's color invert effect  script  for GIMP 2.4
; Original author: lasm <lasm@rocketmail.com>
;;;  http://www.godsimmediatecontact.com
;;;  http://www.godsdirectcontact.org
;;;  http://www.raindesigninc.com
;
; Tags: color, invert
;
; Author statement:
;
;;; Welcome to the Grandmother's Light Invert
;;; Dedication - to my mother (1917-2002) in loving memory
;;; Grandmother's Color Invert::
;;; This effect is fully reversible.
;;; Another quality script brought to you by  the Grandmother Coffee House production.
;;; Created in the Special Palindrome Day of the century 20022002
;
; --------------------------------------------------------------------
; Distributed by Gimp FX Foundry project
; --------------------------------------------------------------------
;   - Changelog -
;;; version 1.0  by Lasm 2002/02/20 <lasm@rocketmail.com>
;;;     - Initial relase
;;; version 1.1  by Lasm 2005/11/08 <lasm@rocketmail.com>
;;;     - Updated for Gimp 2.3.4
;;;     - changed file name
;;; version 1.2  by Lasm 2005/11/09 <lasm@rocketmail.com>
;;;     - rearranged code
;;; version 1.2.1  by Lasm 2005/11/17 <lasm@rocketmail.com>
;;;     - added help text
;;; version 1.3  by Lasm 2005/11/18 <lasm@rocketmail.com>
;;;     - added to Sourceforge CVS
;;;     - added Asymmetric/Solarize
;;; version 2.0  by Lasm 2005/11/20 <lasm@rocketmail.com>
;;;     - added Vivid V-Invert
;;;     - shorten fly-out menu
;;; 11/01/2007 - fixed for gimp 2.4 by Alexia Death
;
; --------------------------------------------------------------------
;
; 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 2 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.
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;;  Color-invert
;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (script-fu-gm-color-invert invert-type img inLayer)

(define (copylayer layer layername)
  (let* ((new (car(gimp-layer-copy layer 1)))) ; Add an alpha channel
  (gimp-drawable-set-name new layername)
  new
  )
)

  (let*
      ((invert-layer (copylayer inLayer _"Invert Layer")))

  (gimp-image-undo-group-start img)

;; Real work goes in here

   (gimp-image-add-layer img invert-layer -1)
   (if (= invert-type 0)
    (gimp-invert inLayer)
       (gimp-invert invert-layer))
   (gimp-layer-set-mode invert-layer
            (cond
              ((= invert-type 0) HUE-MODE)
              ((= invert-type 1) HUE-MODE)
              ((= invert-type 2) NORMAL-MODE)
              ((= invert-type 3) DARKEN-ONLY-MODE)
              ((= invert-type 4) VALUE-MODE)))


   (gimp-drawable-set-name (car (gimp-image-merge-down img invert-layer EXPAND-AS-NECESSARY))
            (cond
              ((= invert-type 0) _"GM Light Invert")
              ((= invert-type 1) _"GM Color Only Invert")
              ((= invert-type 2) _"GM Simple Color Invert")
                 ((= invert-type 3) _"GM Solarize")
                 ((= invert-type 4) _"GM Vivid V-Invert")))

  (gimp-image-undo-group-end img)
  (gimp-displays-flush)

  )
)

;; Register scripts

(script-fu-register
 "script-fu-gm-color-invert 0"
 _"Lasm's Light Invert"
 _"Version 2.0\nLasm's color invert effect. This turns the photo into a photo negative without changing the colors and the effect is reversible.\n\nCycle through all 3 effects in random order and you will arrive back to the original image"
 "lasm"
 "Copyright 2002-2005, lasm"
 "February 20, 2002"
 "RGB*"
 SF-IMAGE "The Image"      0
 SF-DRAWABLE "The Layer" 0
)

(script-fu-menu-register "script-fu-gm-color-invert 0"
                         "<Image>/FX-Foundry/Color")

(script-fu-register
 "script-fu-gm-color-invert 1"
 _"Lasm's Color Only Invert"
 _"Version 2.0\nLasm's color invert effect. This inverts color only, leaving brightness alone on any RGB image and the effect is reversible.\n\nCycle through all 3 effects in random order and you will arrive back to the original image"
 "lasm"
 "Copyright 2002-2005, lasm"
 "February 20, 2002"
 "RGB*"
 SF-IMAGE "The Image"      0
 SF-DRAWABLE "The Layer" 0
)

(script-fu-menu-register "script-fu-gm-color-invert 1"
                         "<Image>/FX-Foundry/Color")

(script-fu-register
 "script-fu-gm-color-invert 2"
 _"Lasm's Simple Color Invert"
 _"Version 2.0\nLasm's color invert effect. This is vanilla color invert and the effect is reversible.\n\nCycle through all 3 effects in random order and you will arrive back to the original image"
 "lasm"
 "Copyright 2002-2005, lasm"
 "February 20, 2002"
 "RGB*"
 SF-IMAGE "The Image"      0
 SF-DRAWABLE "The Layer" 0
)

(script-fu-menu-register "script-fu-gm-color-invert 2"
                         "<Image>/FX-Foundry/Color")

(script-fu-register
 "script-fu-gm-color-invert 3"
 _"Lasm's Asymmetric Solarize"
 _"Version 2.0\nThe solarize effect is irreversible."
 "lasm"
 "Copyright 2002-2005, lasm"
 "November 19, 2005"
 "RGB*"
 SF-IMAGE "The Image"      0
 SF-DRAWABLE "The Layer" 0
)

(script-fu-menu-register "script-fu-gm-color-invert 3"
                         "<Image>/FX-Foundry/Color")

(script-fu-register
 "script-fu-gm-color-invert 4"
 _"Lasm's Vivid V-Invert"
 _"Version 2.0\nProduces a highly saturated version of v-invert. Compare this image with the regular plug-in-vinvert! Toggle it twice and it will stay in the V-invert mode, but the effect is not reversible to the original image."
 "lasm"
 "Copyright 2002-2005, lasm"
 "November 21, 2005"
 "RGB*"
 SF-IMAGE "The Image"      0
 SF-DRAWABLE "The Layer" 0
)

(script-fu-menu-register "script-fu-gm-color-invert 4"
                         "<Image>/FX-Foundry/Color")

APT Browse - Built by Thomas Orozco.