Gimp/plug-ins/script-fu/scripts/clothify.scm

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

(script-fu-menu-register "script-fu-clothify"
			 _"<Image>/Script-Fu/Alchemy")