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")
|