dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

plug-ins/script-fu/scripts/ripply-anim.scm 

2000-06-05  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/ripply-anim.scm
	* plug-ins/script-fu/scripts/spinning_globe.scm
	* plug-ins/script-fu/scripts/waves-anim.scm: applied
	gimp-quinet-000531-2.patch to ensure that the output of
	these scripts is viewed in "replace" mode and not in
	"combine" mode.
This commit is contained in:
Sven Neumann 2000-06-06 11:54:05 +00:00 committed by Sven Neumann
parent c97ec171f6
commit c013dd25b7
5 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ChangeLog
View File

@ -1,3 +1,12 @@
2000-06-05 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/ripply-anim.scm
* plug-ins/script-fu/scripts/spinning_globe.scm
* plug-ins/script-fu/scripts/waves-anim.scm: applied
gimp-quinet-000531-2.patch to ensure that the output of
these scripts is viewed in "replace" mode and not in
"combine" mode.
2000-06-05 Sven Neumann <sven@gimp.org> 2000-06-05 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/3d-outline.scm * plug-ins/script-fu/scripts/3d-outline.scm

3
plug-ins/script-fu/scripts/ripply-anim.scm
View File

@ -65,7 +65,8 @@
(gimp-crop dup-image width height xpos ypos) (gimp-crop dup-image width height xpos ypos)
(set! layer-name (string-append "Frame " (set! layer-name (string-append "Frame "
(number->string (- num-frames remaining-frames) 10))) (number->string (- num-frames remaining-frames) 10)
" (replace)"))
(set! this-layer (car (gimp-layer-new out-imagestack (set! this-layer (car (gimp-layer-new out-imagestack
width height RGB width height RGB
layer-name 100 NORMAL))) layer-name 100 NORMAL)))

3
plug-ins/script-fu/scripts/spinning-globe.scm
View File

@ -43,7 +43,8 @@
(gimp-image-add-layer theImage theFrame 0) (gimp-image-add-layer theImage theFrame 0)
(gimp-layer-set-name theFrame (gimp-layer-set-name theFrame
(string-append "Anim Frame: " (string-append "Anim Frame: "
(number->string (- inFrames n) 10))) (number->string (- inFrames n) 10)
" (replace)"))
(plug-in-map-object RUN-NONINTERACTIVE (plug-in-map-object RUN-NONINTERACTIVE
theImage theFrame theImage theFrame
; mapping ; mapping

3
plug-ins/script-fu/scripts/spinning_globe.scm
View File

@ -43,7 +43,8 @@
(gimp-image-add-layer theImage theFrame 0) (gimp-image-add-layer theImage theFrame 0)
(gimp-layer-set-name theFrame (gimp-layer-set-name theFrame
(string-append "Anim Frame: " (string-append "Anim Frame: "
(number->string (- inFrames n) 10))) (number->string (- inFrames n) 10)
" (replace)"))
(plug-in-map-object RUN-NONINTERACTIVE (plug-in-map-object RUN-NONINTERACTIVE
theImage theFrame theImage theFrame
; mapping ; mapping

3
plug-ins/script-fu/scripts/waves-anim.scm
View File

@ -54,7 +54,8 @@
(layer-name (string-append "Frame " (layer-name (string-append "Frame "
(number->string (number->string
(- (+ num-frames 2) (- (+ num-frames 2)
remaining-frames) 10)))) remaining-frames) 10)
" (replace)")))
(gimp-layer-set-preserve-trans waves-layer FALSE) (gimp-layer-set-preserve-trans waves-layer FALSE)
(gimp-image-add-layer image waves-layer -1) (gimp-image-add-layer image waves-layer -1)
(gimp-layer-set-name waves-layer layer-name) (gimp-layer-set-name waves-layer layer-name)