1f6ccb3c24
2008-01-15 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scripts/3d-outline.scm * plug-ins/script-fu/scripts/add-bevel.scm * plug-ins/script-fu/scripts/burn-in-anim.scm * plug-ins/script-fu/scripts/camo.scm * plug-ins/script-fu/scripts/circuit.scm * plug-ins/script-fu/scripts/clothify.scm * plug-ins/script-fu/scripts/coffee.scm * plug-ins/script-fu/scripts/contactsheet.scm * plug-ins/script-fu/scripts/distress-selection.scm * plug-ins/script-fu/scripts/flatland.scm * plug-ins/script-fu/scripts/font-map.scm * plug-ins/script-fu/scripts/fuzzyborder.scm * plug-ins/script-fu/scripts/glossy.scm * plug-ins/script-fu/scripts/land.scm * plug-ins/script-fu/scripts/lava.scm * plug-ins/script-fu/scripts/old-photo.scm * plug-ins/script-fu/scripts/predator.scm * plug-ins/script-fu/scripts/rendermap.scm * plug-ins/script-fu/scripts/ripply-anim.scm * plug-ins/script-fu/scripts/script-fu-set-cmap.scm * plug-ins/script-fu/scripts/select-to-brush.scm * plug-ins/script-fu/scripts/select-to-image.scm * plug-ins/script-fu/scripts/select-to-pattern.scm * plug-ins/script-fu/scripts/speed-text.scm * plug-ins/script-fu/scripts/spinning-globe.scm * plug-ins/script-fu/scripts/test-sphere.scm * plug-ins/script-fu/scripts/text-circle.scm * plug-ins/script-fu/scripts/unsharp-mask.scm * plug-ins/script-fu/scripts/xach-effect.scm: Variables in a let block must be of the form (variable value) per the R5RS. svn path=/trunk/; revision=24614
68 lines
2.3 KiB
Scheme
68 lines
2.3 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 0)
|
|
(bump-layer 0)
|
|
)
|
|
|
|
(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 RUN-NONINTERACTIVE 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 RUN-NONINTERACTIVE img layer-one bx TRUE FALSE)
|
|
(plug-in-gauss-rle RUN-NONINTERACTIVE img layer-two by FALSE TRUE)
|
|
(gimp-image-flatten img)
|
|
(set! bump-layer (car (gimp-image-get-active-layer img)))
|
|
|
|
(plug-in-c-astretch RUN-NONINTERACTIVE img bump-layer)
|
|
(plug-in-noisify RUN-NONINTERACTIVE img bump-layer FALSE 0.2 0.2 0.2 0.2)
|
|
|
|
(plug-in-bump-map RUN-NONINTERACTIVE 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"
|
|
_"_Clothify..."
|
|
_"Add a cloth-like texture to the selected region (or alpha)"
|
|
"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)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-clothify"
|
|
"<Image>/Filters/Artistic")
|