Hello,
I'm trying to write a script to batch proccess a number of files. I want the
script to open file a*.png, convert black color to alpha and paste image b*.png
on top of a*.png (both are the same size). The script converts black to alpha,
but it doesn't paste image.
(define (batch-alpha-paste pattern
pattern2)
;get the file lists
(let* ((filelist (cadr (file-glob pattern 1)))
(filelist2 (cadr (file-glob pattern2 1))))
(while (not (null? filelist))
(let* ((filename (car filelist))
(filename2 (car filelist2))
(image2 (car (gimp-file-load RUN-NONINTERACTIVE filename2
filename2)))
(draw2 (car (gimp-image-get-active-layer image2)))
(image (car (gimp-file-load RUN-NONINTERACTIVE filename
filename)))
(drawable (car (gimp-image-get-active-layer image))))
; convert black to alpha
(plug-in-colortoalpha RUN-NONINTERACTIVE image drawable '(0 0
0))
; ------------
; this part doesn't work, I want to copy image2 into image
; ------------
(gimp-selection-all image2)
(gimp-edit-named-copy-visible image2 "dupa")
(gimp-edit-named-paste drawable "dupa" TRUE)
;----------------------------------------------------------
(gimp-file-save RUN-NONINTERACTIVE image drawable filename
filename)
(gimp-image-delete image)
(gimp-image-delete image2)
)
(set! filelist (cdr filelist)))))
I call the script from shell:
gimp -i -b '(batch-alpha-paste "aa*.png" "bb*.png")' -b '(gimp-quit 0)'
Any help or suggestion how to copy image2 into image ?
--
gumaster (via gimpusers.com)
_______________________________________________
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user
