Author: kcozens
Date: Tue Jan 29 21:13:15 2008
New Revision: 730
URL: http://svn.gnome.org/viewvc/gimp-gap?rev=730&view=rev
Log:
2008-01-29 Kevin Cozens <[EMAIL PROTECTED]>
* gap/gap-dup-continue.scm: De-tabified.
* gap/sel-to-anim-img.scm: Fixed bad syntax in let block. Moved some
set! calls in to let block. De-tabified.
Modified:
trunk/ChangeLog
trunk/gap/gap-dup-continue.scm
trunk/gap/sel-to-anim-img.scm
Modified: trunk/gap/gap-dup-continue.scm
==============================================================================
--- trunk/gap/gap-dup-continue.scm (original)
+++ trunk/gap/gap-dup-continue.scm Tue Jan 29 21:13:15 2008
@@ -1,6 +1,6 @@
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
-;
+;
; Duplicate the current AnimationImage
; and continue (== load the duplicate as new current frame)
;
@@ -9,12 +9,12 @@
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
-;
+;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
-;
+;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
@@ -22,27 +22,24 @@
(define (script-fu-gap-dup-continue image drawable)
(let* (
- (rangefrom -1)
- (rangeto -1)
- (ncopies 1)
- )
+ (rangefrom -1)
+ (rangeto -1)
+ (ncopies 1)
+ )
; rangefrom rangeto: value -1 refers to the current frame
(plug-in-gap-dup RUN-NONINTERACTIVE image drawable ncopies rangefrom
rangeto)
(plug-in-gap-next RUN-NONINTERACTIVE image drawable)
(gimp-displays-flush)
- )
+ )
)
(script-fu-register "script-fu-gap-dup-continue"
- _"<Image>/Video/Duplicate Continue"
- "Duplicate the current AnimationImage and load the
duplicate as new current frame"
- "Wolfgang Hofer <[EMAIL PROTECTED]>"
- "Wolfgang Hofer"
- "2004/06/12"
- "RGB RGBA GRAY GRAYA"
- SF-IMAGE "Image" 0
- SF-DRAWABLE "Drawable" 0)
-
-
-
+ _"<Image>/Video/Duplicate Continue"
+ "Duplicate the current AnimationImage and load the
duplicate as new current frame"
+ "Wolfgang Hofer <[EMAIL PROTECTED]>"
+ "Wolfgang Hofer"
+ "2004/06/12"
+ "RGB RGBA GRAY GRAYA"
+ SF-IMAGE "Image" 0
+ SF-DRAWABLE "Drawable" 0)
Modified: trunk/gap/sel-to-anim-img.scm
==============================================================================
--- trunk/gap/sel-to-anim-img.scm (original)
+++ trunk/gap/sel-to-anim-img.scm Tue Jan 29 21:13:15 2008
@@ -1,6 +1,6 @@
; The GIMP -- an image manipulation program
; Copyright (C) 1995 Spencer Kimball and Peter Mattis
-;
+;
; Selection to AnimationImage
; This script requires plug-in-gap-layers-run-animfilter (that is part of
; the gap Plugin-collection, available in the plugin registry)
@@ -10,7 +10,7 @@
; (base functions taken from Selection to Image ((c) by Adrian Likins
[EMAIL PROTECTED])
; - added number of copies and
; - optional { BG-FILL | TRANS-FILL }
-; - if there was no selection at begin the selection is cleared at end
+; - if there was no selection at begin the selection is cleared at end
; - optional call of plug-in-gap-layers-run-animfilter
; (to create animation effects by applying any available PDB filter foreach
copy
; (==layer) of the generated image
@@ -21,12 +21,12 @@
; it under the terms of the GNU General Public License as published by
; the Free Software Foundation; either version 2 of the License, or
; (at your option) any later version.
-;
+;
; This program is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU General Public License for more details.
-;
+;
; You should have received a copy of the GNU General Public License
; along with this program; if not, write to the Free Software
; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
@@ -34,31 +34,27 @@
(define (script-fu-selection-to-anim-image image drawable copies bgfill
filter-all)
(let* (
- (idx 0)
- (draw-type (car (gimp-drawable-type-with-alpha drawable)))
- (image-type (car (gimp-image-base-type image)))
- (old-bg (car (gimp-context-get-background)))
- (selection-bounds)
- (select-offset-x)
- (select-offset-y)
- (selection-width)
- (selection-height)
- (from-selection)
- (active-selection)
- (brush-draw)
- (draw-name)
- (brush-image))
-
- (set! selection-bounds (gimp-selection-bounds image))
- (set! select-offset-x (cadr selection-bounds))
- (set! select-offset-y (caddr selection-bounds))
- (set! selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
- (set! selection-height (- (caddr (cddr selection-bounds))
select-offset-y))
+ (idx 0)
+ (draw-type (car (gimp-drawable-type-with-alpha drawable)))
+ (image-type (car (gimp-image-base-type image)))
+ (old-bg (car (gimp-context-get-background)))
+ (selection-bounds (gimp-selection-bounds image))
+ (select-offset-x (cadr selection-bounds))
+ (select-offset-y (caddr selection-bounds))
+ (selection-width (- (cadr (cddr selection-bounds)) select-offset-x))
+ (selection-height (- (caddr (cddr selection-bounds)) select-offset-y))
+ (active-selection 0)
+ (from-selection 0)
+ (brush-draw 0)
+ (draw-name "")
+ (brush-image 0)
+ )
+
(gimp-image-undo-disable image)
(if (= (car (gimp-selection-is-empty image)) TRUE)
- (begin
+ (begin
; if the layer has no alpha select all
(if (= (car (gimp-drawable-has-alpha drawable)) FALSE)
(begin
@@ -68,13 +64,13 @@
(gimp-selection-layer-alpha drawable)
)
)
- (set! active-selection (car (gimp-selection-save image)))
- (set! from-selection FALSE)
- )
- (begin
- (set! active-selection (car (gimp-selection-save image)))
- (set! from-selection TRUE)
- )
+ (set! active-selection (car (gimp-selection-save image)))
+ (set! from-selection FALSE)
+ )
+ (begin
+ (set! active-selection (car (gimp-selection-save image)))
+ (set! from-selection TRUE)
+ )
)
(gimp-edit-copy drawable)
@@ -112,21 +108,18 @@
; of plug-in-gap-layers-run-animfilter)
(plug-in-gap-layers-run-animfilter 0 brush-image brush-draw
"plug-in-bend" 1)
)
-)
+ )
)
(script-fu-register "script-fu-selection-to-anim-image"
- _"<Image>/Script-Fu/Animators/Selection to AnimImage..."
- "Create a multilayer image from current selection and apply
any PDB Filter to all layer-copies"
- "Wolfgang Hofer <[EMAIL PROTECTED]>"
- "Wolfgang Hofer"
- "2006/05/01"
- "RGB RGBA GRAY GRAYA"
- SF-IMAGE "Image" 0
- SF-DRAWABLE "Drawable" 0
+ _"<Image>/Script-Fu/Animators/Selection to AnimImage..."
+ "Create a multilayer image from current selection and
apply any PDB Filter to all layer-copies"
+ "Wolfgang Hofer <[EMAIL PROTECTED]>"
+ "Wolfgang Hofer"
+ "2006/05/01"
+ "RGB RGBA GRAY GRAYA"
+ SF-IMAGE "Image" 0
+ SF-DRAWABLE "Drawable" 0
SF-ADJUSTMENT _"Number of Copies" '(10 1 1024 1
10 0 1)
SF-TOGGLE _"Fill with BG Color" TRUE
SF-TOGGLE _"Anim-Filter for all Copies" TRUE)
-
-
-
_______________________________________________
SVN-commits-list mailing list (read only)
http://mail.gnome.org/mailman/listinfo/svn-commits-list
Want to limit the commits to a few modules? Go to above URL, log in to edit
your options and select the modules ('topics') you want.
Module maintainer? It is possible to set the reply-to to your development
mailing list. Email [EMAIL PROTECTED] if interested.
