957d76fd14
Not sure what I had in mind with the class method copy() in libgimp GimpLayer. The core duplicate code already takes care of returning an object of the right type. Also the GimpTextLayer implementation was not a perfect copy (only text, font and font size were copied). Now it is because, again, core has all the duplication code necessary. Finally this makes this function visible to PDB, hence Script-Fu, again.
80 lines
3.4 KiB
Scheme
80 lines
3.4 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 tdrawables bx by azimuth elevation depth)
|
|
(let* (
|
|
(tdrawable (vector-ref tdrawables 0))
|
|
(width (car (gimp-drawable-get-width tdrawable)))
|
|
(height (car (gimp-drawable-get-height tdrawable)))
|
|
(img (car (gimp-image-new width height RGB)))
|
|
; (layer-two (car (gimp-layer-new img "Y Dots" width height RGB-IMAGE 100 LAYER-MODE-MULTIPLY)))
|
|
(layer-one (car (gimp-layer-new img "X Dots" width height RGB-IMAGE 100 LAYER-MODE-NORMAL)))
|
|
(layer-two 0)
|
|
(bump-layer 0)
|
|
)
|
|
|
|
(gimp-context-push)
|
|
(gimp-context-set-defaults)
|
|
|
|
(gimp-image-undo-disable img)
|
|
|
|
(gimp-image-insert-layer img layer-one 0 0)
|
|
|
|
(gimp-context-set-background '(255 255 255))
|
|
(gimp-drawable-edit-fill layer-one FILL-BACKGROUND)
|
|
|
|
(gimp-drawable-merge-new-filter layer-one "gegl:noise-rgb" 0 LAYER-MODE-REPLACE 1.0
|
|
"independent" FALSE "red" 0.7 "alpha" 0.7
|
|
"correlated" FALSE "seed" (msrg-rand) "linear" TRUE)
|
|
|
|
(set! layer-two (car (gimp-layer-copy layer-one)))
|
|
(gimp-layer-set-mode layer-two LAYER-MODE-MULTIPLY)
|
|
(gimp-image-insert-layer img layer-two 0 0)
|
|
|
|
(gimp-drawable-merge-new-filter layer-one "gegl:gaussian-blur" 0 LAYER-MODE-REPLACE 1.0 "std-dev-x" (* 0.32 bx) "std-dev-y" 0.0 "filter" "auto")
|
|
(gimp-drawable-merge-new-filter layer-two "gegl:gaussian-blur" 0 LAYER-MODE-REPLACE 1.0 "std-dev-x" 0.0 "std-dev-y" (* 0.32 by) "filter" "auto")
|
|
(gimp-image-flatten img)
|
|
(set! bump-layer (vector-ref (car (gimp-image-get-selected-layers img)) 0))
|
|
|
|
(gimp-drawable-merge-new-filter bump-layer "gegl:stretch-contrast" 0 LAYER-MODE-REPLACE 1.0 "keep-colors" FALSE)
|
|
(gimp-drawable-merge-new-filter bump-layer "gegl:noise-rgb" 0 LAYER-MODE-REPLACE 1.0
|
|
"independent" FALSE "red" 0.2 "alpha" 0.2
|
|
"correlated" FALSE "seed" (msrg-rand) "linear" TRUE)
|
|
|
|
(let* ((filter (car (gimp-drawable-filter-new tdrawable "gegl:bump-map" ""))))
|
|
(gimp-drawable-filter-configure filter LAYER-MODE-REPLACE 1.0
|
|
"azimuth" azimuth "elevation" elevation "depth" depth
|
|
"offset-x" 0 "offset-y" 0 "waterlevel" 0.0 "ambient" 0.0
|
|
"compensate" FALSE "invert" FALSE "type" "linear"
|
|
"tiled" FALSE)
|
|
(gimp-drawable-filter-set-aux-input filter "aux" bump-layer)
|
|
(gimp-drawable-merge-filter tdrawable filter)
|
|
)
|
|
(gimp-image-delete img)
|
|
(gimp-displays-flush)
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
|
|
(script-fu-register-filter "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-ONE-OR-MORE-DRAWABLE
|
|
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")
|