Hello! I need your help!!!
I write little script for Gimp version 2.10.14, this script will an animation. It use some procedures so
plug-in-displace,
plug-in-bump-map but they don't work, i don't know why? I changed their signature, changed value in every param but without good result.
I want to get a result how i show in my attach file on picture
It code:
(define (script-fu-animtest
image
drawable
blur-radius
waviness)
(let* (
(orig-join-layer nil)
(copy-join-layer nil)
(displace-join-layer nil)
(result-layer nil)
(width (car (gimp-image-width image)))
(height (car (gimp-image-height image)))
(total-frames 1)
(group nil)
(name-group "Animation")
(noise-layer nil)
(xsize 12.1)
(ysize 0.6)
)
(gimp-image-undo-group-start image)
(set! orig-join-layer (car (gimp-image-flatten image)))
(set! noise-layer (car (gimp-layer-copy orig-join-layer 1)))
(set! copy-join-layer (car (gimp-layer-copy orig-join-layer 1)))
(gimp-image-resize image (* width 1.2) (* height 1.2) (/ width 10) (/ height 10))
(set! group (car (gimp-layer-group-new image)))
(gimp-item-set-name group name-group)
(gimp-image-insert-layer image group 0 0)
(gimp-image-insert-layer image copy-join-layer group 0)
(gimp-image-insert-layer image noise-layer group 0)
(plug-in-solid-noise RUN-NONINTERACTIVE image noise-layer TRUE FALSE (realtime) 1 xsize ysize)
(plug-in-gauss-rle 1 image noise-layer blur-radius 1 1)
(gimp-drawable-brightness-contrast noise-layer 0 .5)
(gimp-layer-resize-to-image-size copy-join-layer)
(gimp-layer-resize-to-image-size noise-layer)
(gimp-drawable-offset copy-join-layer FALSE OFFSET-TRANSPARENT (/ width 10) (/ height 10))
(gimp-drawable-offset noise-layer FALSE OFFSET-TRANSPARENT (/ width 10) (/ height 10))
; while - here will animation - create frames
; (gimp-image-select-rectangle image CHANNEL-OP-REPLACE 0 0 (car (gimp-image-width image)) (car (gimp-image-height image)))
(set! result-layer (car (gimp-layer-new-from-drawable copy-join-layer image)))
(gimp-image-insert-layer image result-layer group 0)
(plug-in-bump-map RUN-NONINTERACTIVE image result-layer
noise-layer
135
45
5
0 0 0 0
TRUE
FALSE
2)
(plug-in-displace RUN-NONINTERACTIVE image
result-layer
123
-123
.6
.6
noise-layer
noise-layer
1)
(gimp-image-remove-layer image orig-join-layer)
(gimp-image-undo-group-end image)
(gimp-displays-flush)
)
)
(script-fu-register "script-fu-animtest"
"Animation Test"
"Animation Test"
"Author"
"Author"
"2020"
"RGB*, GRAY*"
SF-IMAGE "Image" 0
SF-DRAWABLE "Layer to blur" 0
SF-VALUE "Blur strength" "52"
SF-ADJUSTMENT "Waviness" '( -40 -500 500 1 1 0 1 ))
(script-fu-menu-register "script-fu-animtest"
"<Image>/Script-Fu/Tutorials")
Login
Register
Tweets
FAQ
Advanced Search
