File: fade-outline.scm

package info (click to toggle)
gimp 2.2.13-1etch4
  • links: PTS
  • area: main
  • in suites: etch
  • size: 94,832 kB
  • ctags: 47,113
  • sloc: ansic: 524,858; xml: 36,798; lisp: 9,870; sh: 9,409; makefile: 7,923; python: 2,674; perl: 2,589; yacc: 520; lex: 334
file content (173 lines) | stat: -rw-r--r-- 6,214 bytes parent folder | download | duplicates (3)
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
; fade-outline.scm
; version 1.1.11a
;
; This GIMP script_fu operates on a single Layer
; It blends the outline boarder from one to another transparency level
; by adding a layer_mask that follows the shape of the selection.
; usually from 100% (white is full opaque) to 0% (black is full transparent)
;
; The user can specify the thickness of the fading border
; that is used to blend from transparent to opaque
; and the Fading direction (shrink or grow).
;
; The outline is taken from the current selection
; or from the layers alpha channel if no selection is active.
;
; Optional you may keep the generated layermask or apply
; it to the layer 

;
; 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 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.


; Define the main function:

(define (script-fu-fade-outline   inImage
                                  inLayer
                                  inBorderSize
                                  inFadeFrom
                                  inFadeTo
                                  inGrowingSelection
                                  inApplyMask
                                  inClearUnselected)
  (let* ((l-idx 0)
	 (l-has-selection TRUE))

    (gimp-context-push)

    ; check Fade from and To Values (and force values from 0% to 100%)
    (if (> inFadeFrom 100) (begin (set! inFadeFrom 100 )) )
    (if (< inFadeFrom 0)   (begin (set! inFadeFrom 0 )) )
    (if (> inFadeTo 100) (begin (set! inFadeTo 100 )) )
    (if (< inFadeTo 0)   (begin (set! inFadeTo 0 )) )
    
    (set! l-from-gray (* inFadeFrom 255))
    (set! l-to-gray (* inFadeTo 255))
    (set! l-step (/  (- l-from-gray l-to-gray) (+ inBorderSize 1)))
    (set! l-gray l-to-gray)

    ; do nothing if the layer is a layer mask
    (if (= (car (gimp-drawable-is-layer-mask inLayer)) 0)
	(begin

	  (gimp-image-undo-group-start inImage)
              
	  ; if the layer has no alpha add alpha channel
	  (if (= (car (gimp-drawable-has-alpha inLayer)) FALSE)
	      (begin
		(gimp-layer-add-alpha inLayer)))

          ; if the layer is the floating selection convert to normal layer
          ; because floating selection cant have a layer mask
	  (if (> (car (gimp-layer-is-floating-sel inLayer)) 0)
	      (begin
		(gimp-floating-sel-to-layer inLayer)))

          ; if there is no selection we use the layers alpha channel
	  (if (= (car (gimp-selection-is-empty inImage)) TRUE)
	      (begin
		(set! l-has-selection FALSE)
		(gimp-selection-layer-alpha inLayer)))

	  (gimp-selection-sharpen inImage)

          ; apply the existing mask before creating a new one
	  (gimp-layer-remove-mask inLayer 0)

	  (if (= inClearUnselected  TRUE)
	      (begin
		(set! l-mask (car (gimp-layer-create-mask inLayer ADD-BLACK-MASK))))
	      (begin
		(set! l-mask (car (gimp-layer-create-mask inLayer ADD-WHITE-MASK)))))

	  (gimp-layer-add-mask inLayer l-mask)

	  (if (= inGrowingSelection  TRUE)
	      (begin
		(set! l-gray l-from-gray)
		(set! l-from-gray l-to-gray)
		(set! l-to-gray l-gray)
		(set! l-step (/  (- l-from-gray l-to-gray) (+ inBorderSize 1)))
		(set! l-orig-selection  (car (gimp-selection-save inImage)))
		(gimp-selection-invert inImage)))
                                           
	  (while (<= l-idx inBorderSize)
                 (if (= l-idx inBorderSize)
                     (begin
		       (set! l-gray l-from-gray)))

		 (gimp-context-set-background (list (/ l-gray 100) (/ l-gray 100) (/ l-gray 100)))
		 (gimp-edit-fill l-mask BACKGROUND-FILL)
		 (set! l-idx (+ l-idx 1))
		 (set! l-gray (+ l-gray l-step))
		 (gimp-selection-shrink inImage 1)
		 ; check if selection has shrinked to none
		 (if (= (car (gimp-selection-is-empty inImage)) TRUE)
		     (begin
		       (set! l-idx (+ inBorderSize 100))     ; break the while loop
		       )))
              
	  (if (= inGrowingSelection  TRUE)
	      (begin
		(gimp-selection-load l-orig-selection)
		(gimp-context-set-background (list (/ l-to-gray 100) (/ l-to-gray 100) (/ l-to-gray 100)))
		(gimp-edit-fill l-mask BACKGROUND-FILL)
		(gimp-selection-grow inImage inBorderSize)
		(gimp-selection-invert inImage)
		(if (= inClearUnselected  TRUE)
		    (begin
		    ;(gimp-context-set-background (list (/ l-from-gray 100) (/ l-from-gray 100) (/ l-from-gray 100)))
		      (gimp-context-set-background (list 0 0 0)))

		    (begin
		      (gimp-context-set-background (list 255 255 255))))

		(gimp-edit-fill l-mask BACKGROUND-FILL)
		(gimp-image-remove-channel inImage l-orig-selection)))

	  (if (=  inApplyMask TRUE)
	      (begin
		(gimp-layer-remove-mask inLayer 0)))

	  (if (= l-has-selection FALSE)
	      (gimp-selection-none inImage))

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

    (gimp-context-pop)))


(script-fu-register "script-fu-fade-outline"
		    _"_Fade Outline..."
		    "Blend the Layers outline border from one alpha value (opaque) to another (transparent) by generating a Layermask"
		    "Wolfgang Hofer <hof@hotbot.com>"
		    "Wolfgang Hofer"
		    "10 Nov 1999"
		    "RGB* GRAY*"
		    SF-IMAGE       "The image"   0
		    SF-DRAWABLE    "The layer"   0
		    SF-ADJUSTMENT _"Border size" '(10 1 300 1 10 0 1)
		    SF-ADJUSTMENT _"Fade from %" '(100 0 100 1 10 0 0)
		    SF-ADJUSTMENT _"Fade to   %" '(0 0 100 1 10 0 0)
		    SF-TOGGLE     _"Use growing selection"     FALSE
		    SF-TOGGLE     _"Apply generated layermask" FALSE
		    SF-TOGGLE     _"Clear unselected maskarea" TRUE)

(script-fu-menu-register "script-fu-fade-outline"
			 _"<Image>/Script-Fu/Selection")