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

repaired this script (bug #124207). 

2003-10-10  Sven Neumann  <sven@gimp.org>

	* plug-ins/script-fu/scripts/burn-in-anim.scm: repaired this script
	(bug #124207).
This commit is contained in:
Sven Neumann 2003-10-10 14:46:04 +00:00 committed by Sven Neumann
parent ac83f97ee8
commit c87b6cb423
2 changed files with 45 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ChangeLog
View File

@ -1,7 +1,12 @@
2003-10-10 Sven Neumann <sven@gimp.org>
* plug-ins/script-fu/scripts/burn-in-anim.scm: repaired this script
(bug #124207).
2003-10-10 Sven Neumann <sven@gimp.org>
* plug-ins/common/png.c (load_image): fixed a typo in the patch
for bug #123201 that accidentally already commited earlier.
for bug #123201 that accidentally already committed earlier.
2003-10-10 Henrik Brix Andersen <brix@gimp.org>

75
plug-ins/script-fu/scripts/burn-in-anim.scm
View File

@ -132,50 +132,53 @@
GRADIENT-LINEAR 100 0 REPEAT-NONE FALSE
FALSE 0 0 TRUE
(- (+ bl-x-off bl-width) corona-width) 0
(- (+ bl-x-off bl-width) after-glow) 0)))
(- (+ bl-x-off bl-width) after-glow) 0))
;--- merge with bg layer
(set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE)))
(gimp-image-add-layer img bg-layer -1)
(gimp-image-lower-layer img bg-layer)
(set! bg-layer-name (string-append "bg-"
(number->string frame-nr 10)))
(gimp-layer-set-name bg-layer bg-layer-name)
(gimp-layer-set-visible bg-layer TRUE)
(set! blended-layer (car (gimp-image-merge-visible-layers img CLIP-TO-IMAGE)))
;(set! blended-layer bl-layer)
(gimp-layer-set-visible blended-layer FALSE)
;--- merge with bg layer
(set! bg-layer (car (gimp-layer-copy bg-source-layer FALSE)))
(gimp-image-add-layer img bg-layer -1)
(gimp-image-lower-layer img bg-layer)
(set! bg-layer-name (string-append "bg-"
(number->string frame-nr 10)))
(gimp-layer-set-name bg-layer bg-layer-name)
(gimp-layer-set-visible bg-layer TRUE)
(set! blended-layer (car (gimp-image-merge-visible-layers img
CLIP-TO-IMAGE)))
;(set! blended-layer bl-layer)
(gimp-layer-set-visible blended-layer FALSE)
;--- end of "while" loop
(set! frame-nr (+ frame-nr 1))
(set! bl-x (+ bl-x speed)))
;--- end of "while" loop
(set! frame-nr (+ frame-nr 1))
(set! bl-x (+ bl-x speed)))
;--- finalize the job
(gimp-selection-none img)
(gimp-image-remove-layer img source-layer)
(gimp-image-remove-layer img bg-source-layer)
;--- finalize the job
(gimp-selection-none img)
(gimp-image-remove-layer img source-layer)
(gimp-image-remove-layer img bg-source-layer)
(gimp-image-set-filename img "burn-in")
(gimp-image-set-filename img "burn-in")
(if (= optimize TRUE)
(begin
(gimp-convert-indexed img 1 WEB-PALETTE 250 FALSE TRUE "")
(set! img-out (car (plug-in-animationoptimize 0 img bl-layer)))))
(if (= optimize TRUE)
(begin
(gimp-convert-indexed img 1 WEB-PALETTE 250 FALSE TRUE "")
(set! img-out (car (plug-in-animationoptimize 0
img
bl-layer)))))
(gimp-layer-set-visible (aref (cadr (gimp-image-get-layers img)) 0)
TRUE)
(gimp-image-undo-enable img)
(gimp-image-clean-all img)
(set! img-display (car (gimp-display-new img)))
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-layer-set-visible (aref (cadr (gimp-image-get-layers img)) 0)
TRUE)
(gimp-image-undo-enable img)
(gimp-image-clean-all img)
(set! img-display (car (gimp-display-new img)))
(gimp-palette-set-foreground old-fg)
(gimp-palette-set-background old-bg)
(gimp-displays-flush))
(gimp-displays-flush))
;--- false form of "if-1"
(gimp-message _"Burn-In: Need two layers in total!"
"A foreground text layer with transparency"
"and a background layer.")))
;--- false form of "if-1"
(gimp-message _"Burn-In: Need two layers in total!"
"A foreground text layer with transparency"
"and a background layer."))))
(script-fu-register "script-fu-burn-in-anim"