;
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
;
; Selection glow script for GIMP 2.4
; Copyright (c) 1997 Adrian Likins
; aklikins@eos.ncsu.ed
;
; Tags: glow, selection, effect
;
; Author statement:
; Makes a "glow" around the outside of the current selection
;
; Format Fixes for http://www.froisa.com/ Jeffrin Jose
; ahiliation@yahoo.co.in
;
;
; --------------------------------------------------------------------
; Distributed by Gimp FX Foundry project
; --------------------------------------------------------------------
; - Changelog -
;
; Changed on June 15, 2000 by Kevin Cozens
; Updated for GIMP 1.1.26
;
; Changed on January 29, 2004 by Kevin Cozens
; Updated for GIMP 2.0pre3
;
; --------------------------------------------------------------------
;
; 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 (my-pair->string pair)
(cons ((pair? (cdr pair))
(my-list->string pair))
(else
(print "aoeuo")
(string-append "(" (to-string (car pair))
" . " (to-string (cdr pair)) ")"))))
(define (flatten-string-list str lst)
(cond ((not (null? lst))
(flatten-string-list (string-append str (car lst) " ")
(cdr lst)))
(else
str)))
(define (my-list->string pair)
(let ((string-list (flatten-string-list ""
(map (lambda (x) (to-string x)) pair))))
(string-append "(" string-list ")")))
(define (to-string arg)
(cond ((number? arg)
(number->string arg))
((string? arg)
arg)
((symbol? arg)
" ")
((pair? arg)
(my-pair->string arg))
(else
" ")))
(define (message-box . args)
(gimp-message (apply string-append (map to-string args))))
(define (script-fu-glow image
drawable
glow-radius
feather-radius
glow-color
glow-opacity
keep-selection)
(define seperate-layer TRUE)
(if (= (car (gimp-selection-is-empty image)) TRUE)
(begin
; Message box line shortened for line limit for http://www.froisa.com/
(message-box _"The Script Works only with a selection."))
(begin
(define from-selection TRUE)
(define active-selection (car (gimp-selection-save image)))
;Start an undo group so the process can be undone with one undo
(gimp-image-undo-group-start image)
;Lets wait with the undo group untill we know if there is a selection.
(let* (
(type (car (gimp-drawable-type-with-alpha drawable)))
(old-gradient (car (gimp-context-get-gradient)))
(old-fg (car (gimp-context-get-foreground)))
(old-bg (car (gimp-context-get-background))))
(gimp-layer-add-alpha drawable)
(define selection-bounds (gimp-selection-bounds image))
(define select-offset-x (cadr selection-bounds))
(define select-offset-y (caddr selection-bounds))
(define select-width (- (cadr (cddr selection-bounds)) select-offset-x))
(define select-height (- (caddr (cddr selection-bounds)) select-offset-y))
(define buffer (+ (* glow-radius 2) (* feather-radius 2) 2))
(define select-height (+ select-height buffer))
(define select-width (+ select-width buffer))
(define select-offset-x (- select-offset-x (/ buffer 2)))
(define select-offset-y (- select-offset-y (/ buffer 2)))
(if (= seperate-layer TRUE)
(begin
(define effect-layer (car (gimp-layer-new image
select-width
select-height
type
_"Glow Layer"
100
NORMAL-MODE)))
(gimp-layer-set-offsets effect-layer select-offset-x select-offset-y)
(gimp-image-add-layer image effect-layer -1)
(gimp-selection-none image)
(gimp-edit-clear effect-layer)
(gimp-selection-load active-selection)
(gimp-image-set-active-layer image effect-layer ))
(begin
(gimp-edit-copy drawable)))
(define active-layer (car (gimp-image-get-active-layer image)))
(gimp-selection-grow image glow-radius)
(gimp-selection-feather image feather-radius)
(gimp-context-set-background glow-color)
(gimp-edit-fill active-layer BACKGROUND-FILL)
(if (= seperate-layer TRUE)
(begin
(gimp-selection-load active-selection)
(gimp-edit-clear active-layer)
(gimp-layer-set-opacity active-layer glow-opacity))
(begin
(gimp-selection-load active-selection)
(let ((floating-sel (car (gimp-edit-paste active-layer FALSE))))
(gimp-floating-sel-anchor floating-sel))
(gimp-selection-load active-selection)))
(gimp-context-set-gradient old-gradient)
(gimp-context-set-background old-bg)
(gimp-context-set-foreground old-fg)
(if (= keep-selection FALSE)
(gimp-selection-none image))
(gimp-image-set-active-layer image drawable)
(gimp-image-remove-channel image active-selection)
;Finish the undo group for the process
(gimp-image-undo-group-end image)
(gimp-displays-flush)))
))
(script-fu-register "script-fu-glow"
_"Glow Selection"
_"Makes a glow around the outside of the current selection."
"Adrian Likins "
"Adrian Likins"
"10/12/97"
"RGB RGBA GRAY GRAYA"
SF-IMAGE "Image" 0
SF-DRAWABLE "Drawable" 0
SF-VALUE _"Glow Radius" "2"
SF-VALUE _"Feather Radius" "10"
SF-COLOR _"Glow Color" '(255 255 255)
SF-VALUE _"Glow Opacity (only for seperate layer)" "100"
SF-TOGGLE _"Keep Selection?" TRUE)
(script-fu-menu-register "script-fu-glow"
"/FX-Foundry/Selection Effects")
http://www.flickr.com/photos/ahiliation/5273318947/