590c4d0b9f
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries for image size and resolution to script_constants structureas they are not deprecated constants. * plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings. * plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that snuck in during the last big update of the scripts. This update reduces the number of differences to the original scripts (other than formatting). Some additional formatting changes in a few scripts. Updates to use colour names in register block where possible. Fixed a bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified the bug fix in tile-blur.scm.
134 lines
4.5 KiB
Scheme
134 lines
4.5 KiB
Scheme
; "Rippling Image" animation generator (ripply-anim.scm)
|
|
; Adam D. Moss (adam@foxbox.org)
|
|
; 97/05/18
|
|
;
|
|
; Designed to be used in conjunction with a plugin capable
|
|
; of saving animations (i.e. the GIF plugin).
|
|
;
|
|
|
|
(define (script-fu-ripply-anim img drawable displacement num-frames edge-type)
|
|
|
|
(define (copy-layer-ripple dest-image dest-drawable source-image source-drawable)
|
|
(gimp-selection-all dest-image)
|
|
(gimp-edit-clear dest-drawable)
|
|
(gimp-selection-none dest-image)
|
|
(gimp-selection-all source-image)
|
|
(gimp-edit-copy source-drawable)
|
|
(gimp-selection-none source-image)
|
|
(let ((floating-sel (car (gimp-edit-paste dest-drawable FALSE))))
|
|
(gimp-floating-sel-anchor (car (gimp-edit-paste dest-drawable FALSE)))
|
|
)
|
|
)
|
|
|
|
(let* (
|
|
(width (car (gimp-drawable-width drawable)))
|
|
(height (car (gimp-drawable-height drawable)))
|
|
(ripple-image (car (gimp-image-new width height GRAY)))
|
|
(ripple-layer (car (gimp-layer-new ripple-image width height GRAY-IMAGE "Ripple Texture" 100 NORMAL-MODE)))
|
|
(rippletiled-ret)
|
|
(rippletiled-image)
|
|
(rippletiled-layer)
|
|
(remaining-frames)
|
|
(xpos)
|
|
(ypos)
|
|
(xoffset)
|
|
(yoffset)
|
|
(dup-image)
|
|
(layer-name)
|
|
(this-image)
|
|
(this-layer)
|
|
(dup-layer)
|
|
)
|
|
|
|
(gimp-context-push)
|
|
|
|
; this script generates its own displacement map
|
|
|
|
(gimp-image-undo-disable ripple-image)
|
|
(gimp-context-set-background '(127 127 127))
|
|
(gimp-image-add-layer ripple-image ripple-layer 0)
|
|
(gimp-edit-fill ripple-layer BACKGROUND-FILL)
|
|
(plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
|
|
; tile noise
|
|
(set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE))
|
|
(gimp-image-undo-enable ripple-image)
|
|
(gimp-image-delete ripple-image)
|
|
|
|
(set! rippletiled-image (car rippletiled-ret))
|
|
(set! rippletiled-layer (cadr rippletiled-ret))
|
|
(gimp-image-undo-disable rippletiled-image)
|
|
|
|
; process tiled noise into usable displacement map
|
|
(plug-in-gauss-iir 1 rippletiled-image rippletiled-layer 35 TRUE TRUE)
|
|
(gimp-equalize rippletiled-layer TRUE)
|
|
(plug-in-gauss-rle 1 rippletiled-image rippletiled-layer 5 TRUE TRUE)
|
|
(gimp-equalize rippletiled-layer TRUE)
|
|
|
|
; displacement map is now in rippletiled-layer of rippletiled-image
|
|
|
|
; loop through the desired frames
|
|
|
|
(set! remaining-frames num-frames)
|
|
(set! xpos (/ width 2))
|
|
(set! ypos (/ height 2))
|
|
(set! xoffset (/ width num-frames))
|
|
(set! yoffset (/ height num-frames))
|
|
|
|
(let* ((out-imagestack (car (gimp-image-new width height RGB))))
|
|
|
|
(gimp-image-undo-disable out-imagestack)
|
|
|
|
(while (> remaining-frames 0)
|
|
(set! dup-image (car (gimp-image-duplicate rippletiled-image)))
|
|
(gimp-image-undo-disable dup-image)
|
|
(gimp-image-crop dup-image width height xpos ypos)
|
|
|
|
(set! layer-name (string-append "Frame "
|
|
(number->string (- num-frames remaining-frames) 10)
|
|
" (replace)"))
|
|
(set! this-layer (car (gimp-layer-new out-imagestack
|
|
width height RGB
|
|
layer-name 100 NORMAL-MODE)))
|
|
(gimp-image-add-layer out-imagestack this-layer 0)
|
|
|
|
(copy-layer-ripple out-imagestack this-layer img drawable)
|
|
|
|
(set! dup-layer (car (gimp-image-get-active-layer dup-image)))
|
|
(plug-in-displace 1 out-imagestack this-layer
|
|
displacement displacement
|
|
TRUE TRUE dup-layer dup-layer edge-type)
|
|
|
|
(gimp-image-undo-enable dup-image)
|
|
(gimp-image-delete dup-image)
|
|
|
|
(set! remaining-frames (- remaining-frames 1))
|
|
(set! xpos (+ xoffset xpos))
|
|
(set! ypos (+ yoffset ypos))
|
|
)
|
|
|
|
(gimp-image-undo-enable rippletiled-image)
|
|
(gimp-image-delete rippletiled-image)
|
|
(gimp-image-undo-enable out-imagestack)
|
|
(gimp-display-new out-imagestack))
|
|
|
|
(gimp-context-pop)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-ripply-anim"
|
|
_"_Rippling..."
|
|
_"Create a multi-layer image by adding a ripple effect to the current image"
|
|
"Adam D. Moss (adam@foxbox.org)"
|
|
"Adam D. Moss"
|
|
"1997"
|
|
"RGB* GRAY*"
|
|
SF-IMAGE "Image to animage" 0
|
|
SF-DRAWABLE "Drawable to animate" 0
|
|
SF-ADJUSTMENT _"Rippling strength" '(3 0 256 1 10 1 0)
|
|
SF-ADJUSTMENT _"Number of frames" '(15 0 256 1 10 0 1)
|
|
SF-OPTION _"Edge behavior" '(_"Wrap" _"Smear" _"Black")
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-ripply-anim"
|
|
"<Image>/Filters/Animation/Animators")
|