← Back to branch summary

~ubuntu-branches/ubuntu/quantal/gimp/quantal-updates

« back to all changes in this revision

Viewing changes to plug-ins/script-fu/scripts/spinning-globe.scm

  • Committer: Package Import Robot
  • Author(s): Micah Gersten
  • Date: 2012-05-20 19:21:01 UTC
  • mfrom: (1.1.26) (0.4.16 sid)
  • Revision ID: package-import@ubuntu.com-20120520192101-bs7zetx8ffoq2nfv
Tags: 2.8.0-2ubuntu1
https://launchpad.net/bugs/908472
* Merge from Debian unstable (LP: #908472). Remaining Changes:
  - debian/patches/02_help-message.patch,
    debian/patches/03_gimp.desktop.in.in.patch:
    + Update some strings for Ubuntu
  - debian/control:
    + Update description
  - debian/rules:
    + Set gettext domain and update translation templates
* Drop the following patches that were applied upstream:
  - debian/patches/ghost-cursor.patch: fix Wacom tablet cursor events
  - debian/patches/embed-page-setup-dialog.patch

Show diffs side-by-side

added added

removed removed

Lines of Context:
plug-ins/script-fu/scripts/spinning-globe.scm
4
4
;
5
5
; Chris Gutteridge (cjg@ecs.soton.ac.uk)
6
6
; At ECS Dept, University of Southampton, England.
7
 
; This program is free software; you can redistribute it and/or modify
 
7
; This program is free software: you can redistribute it and/or modify
8
8
; it under the terms of the GNU General Public License as published by
9
 
; the Free Software Foundation; either version 2 of the License, or
 
9
; the Free Software Foundation; either version 3 of the License, or
10
10
; (at your option) any later version.
11
11
;
12
12
; This program is distributed in the hope that it will be useful,
15
15
; GNU General Public License for more details.
16
16
;
17
17
; You should have received a copy of the GNU General Public License
18
 
; along with this program; if not, write to the Free Software
19
 
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 
18
; along with this program.  If not, see <http://www.gnu.org/licenses/>.
20
19
 
21
20
 
22
21
; Define the function:
44
43
  (while (> inFrames n)
45
44
    (set! n (+ n 1))
46
45
    (set! theFrame (car (gimp-layer-copy theLayer FALSE)))
47
 
    (gimp-image-add-layer theImage theFrame 0)
48
 
    (gimp-drawable-set-name theFrame
 
46
    (gimp-image-insert-layer theImage theFrame 0 0)
 
47
    (gimp-item-set-name theFrame
49
48
                         (string-append "Anim Frame: "
50
49
                                        (number->string (- inFrames n) 10)
51
50
                                        " (replace)"))