← Back to branch summary

~ubuntu-branches/ubuntu/hardy/gimp/hardy-backports

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/scripts/ripply-anim.scm

  • Committer: Bazaar Package Importer
  • Author(s): Steve Kowalik
  • Date: 2007-11-21 17:39:07 UTC
  • mfrom: (1.1.8 upstream)
  • Revision ID: james.westby@ubuntu.com-20071121173907-od54p9hdtvn5frl0
Tags: 2.4.1-1ubuntu1
* Merge from Debian unstable.
* Remaining Ubuntu changes:
  - 02_help-message.patch, 03_gimp.desktop.in.in.patch: Distro changes.
  - Weave i18n magic in the rules file.
  - Munge Maintainer field as per spec.
* Ubuntu changes dropped:
  - Apply patch from upstream (SVN r23659) that corrects the image
    disappearing for large images at 150% zoom.
  - Symlink doc directories to avoid duplicate files, CDBS does this for
    us.

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/ripply-anim.scm
48
48
    (gimp-context-set-background '(127 127 127))
49
49
    (gimp-image-add-layer ripple-image ripple-layer 0)
50
50
    (gimp-edit-fill ripple-layer BACKGROUND-FILL)
51
 
    (plug-in-noisify 1 ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
 
51
    (plug-in-noisify RUN-NONINTERACTIVE ripple-image ripple-layer FALSE 1.0 1.0 1.0 0.0)
52
52
    ; tile noise
53
 
    (set! rippletiled-ret (plug-in-tile 1 ripple-image ripple-layer (* width 3) (* height 3) TRUE))
 
53
    (set! rippletiled-ret (plug-in-tile RUN-NONINTERACTIVE ripple-image ripple-layer (* width 3) (* height 3) TRUE))
54
54
    (gimp-image-undo-enable ripple-image)
55
55
    (gimp-image-delete ripple-image)
56
56
 
59
59
    (gimp-image-undo-disable rippletiled-image)
60
60
 
61
61
    ; process tiled noise into usable displacement map
62
 
    (plug-in-gauss-iir 1 rippletiled-image rippletiled-layer 35 TRUE TRUE)
 
62
    (plug-in-gauss-iir RUN-NONINTERACTIVE rippletiled-image rippletiled-layer 35 TRUE TRUE)
63
63
    (gimp-equalize rippletiled-layer TRUE)
64
 
    (plug-in-gauss-rle 1 rippletiled-image rippletiled-layer 5 TRUE TRUE)
 
64
    (plug-in-gauss-rle RUN-NONINTERACTIVE rippletiled-image rippletiled-layer 5 TRUE TRUE)
65
65
    (gimp-equalize rippletiled-layer TRUE)
66
66
 
67
67
    ; displacement map is now in rippletiled-layer of rippletiled-image
94
94
      (copy-layer-ripple out-imagestack this-layer img drawable)
95
95
 
96
96
      (set! dup-layer (car (gimp-image-get-active-layer dup-image)))
97
 
      (plug-in-displace 1 out-imagestack this-layer
 
97
      (plug-in-displace RUN-NONINTERACTIVE out-imagestack this-layer
98
98
                        displacement displacement
99
99
                        TRUE TRUE dup-layer dup-layer edge-type)
100
100