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).
62 lines
2.1 KiB
Scheme
62 lines
2.1 KiB
Scheme
;
|
|
; Swirl-tile
|
|
; produces a (hope-fully) seamlessly tiling swirling effect
|
|
;
|
|
; Adrian Likins <aklikins@eos.ncsu.edu>
|
|
;
|
|
; http://www4.ncsu.edu/eos/users/a/aklikins/pub/gimp/
|
|
;
|
|
|
|
|
|
(define (script-fu-swirl-tile depth azimuth elevation blurRadius height width whirl-amount noise-level bg-color)
|
|
(let* ((img (car (gimp-image-new width height RGB)))
|
|
(layer-one (car (gimp-layer-new img width height
|
|
RGB-IMAGE "TEST" 100 NORMAL-MODE)))
|
|
(cx (/ width 2))
|
|
(cy (/ height 2)))
|
|
|
|
(gimp-context-push)
|
|
|
|
(gimp-image-undo-disable img)
|
|
|
|
(gimp-image-add-layer img layer-one 0)
|
|
(gimp-context-set-background bg-color)
|
|
(gimp-edit-fill layer-one BACKGROUND-FILL)
|
|
(plug-in-noisify 1 img layer-one FALSE noise-level noise-level noise-level 1.0)
|
|
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
|
|
(gimp-drawable-offset layer-one TRUE 0 cx cy)
|
|
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
(plug-in-whirl-pinch 1 img layer-one whirl-amount 0.0 1.0)
|
|
|
|
(plug-in-gauss-rle 1 img layer-one blurRadius TRUE TRUE)
|
|
|
|
(plug-in-bump-map 1 img layer-one layer-one azimuth elevation depth 0 0 0 0 FALSE FALSE 0)
|
|
|
|
(gimp-display-new img)
|
|
(gimp-image-undo-enable img)
|
|
|
|
(gimp-context-pop)))
|
|
|
|
(script-fu-register "script-fu-swirl-tile"
|
|
_"<Toolbox>/Xtns/Script-Fu/Patterns/Swirl-_Tile..."
|
|
"Create an interesting swirled tile"
|
|
"Adrian Likins <aklikins@eos.ncsu.edu>"
|
|
"Adrian Likins"
|
|
"1997"
|
|
""
|
|
SF-ADJUSTMENT _"Depth" '(10 0 64 1 1 0 0)
|
|
SF-ADJUSTMENT _"Azimuth" '(135 0 360 1 10 0 0)
|
|
SF-ADJUSTMENT _"Elevation" '(45 0 90 1 10 0 0)
|
|
SF-ADJUSTMENT _"Blur radius" '(3 0 128 1 10 0 0)
|
|
SF-ADJUSTMENT _"Height" '(256 0 1024 1 10 0 1)
|
|
SF-ADJUSTMENT _"Width" '(256 0 1024 1 10 0 1)
|
|
SF-ADJUSTMENT _"Whirl amount" '(320 0 360 1 10 0 0)
|
|
SF-ADJUSTMENT _"Roughness" '(.5 0 1 .1 .01 2 1)
|
|
SF-COLOR _"Background color" '(255 255 255))
|