5f2ca28c69
2004-11-11 Michael Natterer <mitch@gimp.org> * plug-ins/script-fu/scripts/add-bevel.scm * plug-ins/script-fu/scripts/addborder.scm * plug-ins/script-fu/scripts/carve-it.scm * plug-ins/script-fu/scripts/carved-logo.scm * plug-ins/script-fu/scripts/chip-away.scm * plug-ins/script-fu/scripts/clothify.scm * plug-ins/script-fu/scripts/font-map.scm * plug-ins/script-fu/scripts/slide.scm * plug-ins/script-fu/scripts/swirltile.scm: don't call gimp-edit-* functions on drawables which are not added to an image because this will be forbidden soon (because it can trash the image's undo stack).
60 lines
2.1 KiB
Scheme
60 lines
2.1 KiB
Scheme
; CLOTHIFY version 1.02
|
|
; Gives the current layer in the indicated image a cloth-like texture.
|
|
; Process invented by Zach Beane (Xath@irc.gimp.net)
|
|
;
|
|
; Tim Newsome <drz@froody.bloke.com> 4/11/97
|
|
|
|
(define (script-fu-clothify timg tdrawable bx by azimuth elevation depth)
|
|
(let*
|
|
((width (car (gimp-drawable-width tdrawable)))
|
|
(height (car (gimp-drawable-height tdrawable)))
|
|
(img (car (gimp-image-new width height RGB)))
|
|
; (layer-two (car (gimp-layer-new img width height RGB-IMAGE "Y Dots" 100 MULTIPLY-MODE)))
|
|
(layer-one (car (gimp-layer-new img width height RGB-IMAGE "X Dots" 100 NORMAL-MODE)))
|
|
(layer-two)
|
|
(bump-layer))
|
|
|
|
(gimp-context-push)
|
|
|
|
(gimp-image-undo-disable img)
|
|
|
|
(gimp-image-add-layer img layer-one 0)
|
|
|
|
(gimp-context-set-background '(255 255 255))
|
|
(gimp-edit-fill layer-one BACKGROUND-FILL)
|
|
|
|
(plug-in-noisify 1 img layer-one FALSE 0.7 0.7 0.7 0.7)
|
|
|
|
(set! layer-two (car (gimp-layer-copy layer-one 0)))
|
|
(gimp-layer-set-mode layer-two MULTIPLY-MODE)
|
|
(gimp-image-add-layer img layer-two 0)
|
|
|
|
(plug-in-gauss-rle 1 img layer-one bx TRUE FALSE)
|
|
(plug-in-gauss-rle 1 img layer-two by FALSE TRUE)
|
|
(gimp-image-flatten img)
|
|
(set! bump-layer (car (gimp-image-get-active-layer img)))
|
|
|
|
(plug-in-c-astretch 1 img bump-layer)
|
|
(plug-in-noisify 1 img bump-layer FALSE 0.2 0.2 0.2 0.2)
|
|
|
|
(plug-in-bump-map 1 img tdrawable bump-layer azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
|
|
(gimp-image-delete img)
|
|
(gimp-displays-flush)
|
|
|
|
(gimp-context-pop)))
|
|
|
|
|
|
(script-fu-register "script-fu-clothify"
|
|
_"<Image>/Script-Fu/Alchemy/_Clothify..."
|
|
"Gives the current layer a cloth-like texture"
|
|
"Tim Newsome <drz@froody.bloke.com>"
|
|
"Tim Newsome"
|
|
"4/11/97"
|
|
"RGB* GRAY*"
|
|
SF-IMAGE "Input image" 0
|
|
SF-DRAWABLE "Input drawable" 0
|
|
SF-ADJUSTMENT _"Blur X" '(9 3 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Blur Y" '(9 3 100 1 10 0 1)
|
|
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 1 0)
|
|
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 1 0)
|
|
SF-ADJUSTMENT _"Depth" '(3 1 50 1 10 0 1))
|