590c4d0b9f
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries for image size and resolution to script_constants structureas they are not deprecated constants. * plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings. * plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that snuck in during the last big update of the scripts. This update reduces the number of differences to the original scripts (other than formatting). Some additional formatting changes in a few scripts. Updates to use colour names in register block where possible. Fixed a bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified the bug fix in tile-blur.scm.
109 lines
3.5 KiB
Scheme
109 lines
3.5 KiB
Scheme
;
|
|
; distress selection
|
|
;
|
|
;
|
|
; Chris Gutteridge (cjg@ecs.soton.ac.uk)
|
|
; At ECS Dept, University of Southampton, England.
|
|
|
|
; 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 function:
|
|
|
|
(define (script-fu-distress-selection inImage
|
|
inLayer
|
|
inThreshold
|
|
inSpread
|
|
inGranu
|
|
inSmooth
|
|
inSmoothH
|
|
inSmoothV)
|
|
|
|
(let (
|
|
(theImage inImage)
|
|
(theWidth (car (gimp-image-width inImage)))
|
|
(theHeight (car (gimp-image-height inImage)))
|
|
(theLayer)
|
|
)
|
|
|
|
(gimp-image-undo-group-start theImage)
|
|
|
|
(set! theLayer (car (gimp-layer-new theImage
|
|
theWidth
|
|
theHeight
|
|
RGBA-IMAGE
|
|
"Distress Scratch Layer"
|
|
100
|
|
NORMAL-MODE)))
|
|
|
|
(gimp-image-add-layer theImage theLayer 0)
|
|
|
|
(if (= FALSE (car (gimp-selection-is-empty theImage)))
|
|
(gimp-edit-fill theLayer BACKGROUND-FILL)
|
|
)
|
|
|
|
(gimp-selection-invert theImage)
|
|
|
|
(if (= FALSE (car (gimp-selection-is-empty theImage)))
|
|
(gimp-edit-clear theLayer)
|
|
)
|
|
|
|
(gimp-selection-invert theImage)
|
|
(gimp-selection-none inImage)
|
|
|
|
(gimp-layer-scale theLayer
|
|
(/ theWidth inGranu)
|
|
(/ theHeight inGranu)
|
|
TRUE)
|
|
|
|
(plug-in-spread TRUE
|
|
theImage
|
|
theLayer
|
|
inSpread
|
|
inSpread)
|
|
|
|
(plug-in-gauss-iir TRUE theImage theLayer inSmooth inSmoothH inSmoothV)
|
|
(gimp-layer-scale theLayer theWidth theHeight TRUE)
|
|
(plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
|
|
(plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
|
|
(gimp-selection-layer-alpha theLayer)
|
|
(gimp-image-remove-layer theImage theLayer)
|
|
|
|
(gimp-image-undo-group-end theImage)
|
|
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
|
|
(script-fu-register "script-fu-distress-selection"
|
|
_"_Distort..."
|
|
_"Distress the selection"
|
|
"Chris Gutteridge"
|
|
"1998, Chris Gutteridge / ECS dept, University of Southampton, England."
|
|
"23rd April 1998"
|
|
"RGB*"
|
|
SF-IMAGE "The image" 0
|
|
SF-DRAWABLE "The layer" 0
|
|
SF-ADJUSTMENT _"Threshold (bigger 1<-->255 smaller)" '(127 1 255 1 10 0 0)
|
|
SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
|
|
SF-ADJUSTMENT _"Granularity (1 is low)" '(4 1 25 1 10 0 1)
|
|
SF-ADJUSTMENT _"Smooth" '(2 1 150 1 10 0 1)
|
|
SF-TOGGLE _"Smooth horizontally" TRUE
|
|
SF-TOGGLE _"Smooth vertically" TRUE
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-distress-selection"
|
|
"<Image>/Select/Modify")
|