(define (batch-sparkle pattern lum-threshhold flare-inten spike-len spike-pts spike-angle density color-type num-frames) (let* ( (filelist (cadr (file-glob pattern 1))) (frames num-frames) ;; adjust the "amount" variable to be the one you selected to modify below (amount lum-threshhold) ) (while (> frames 1) (let* ((filename (car filelist)) (image (car (gimp-file-load RUN-NONINTERACTIVE filename filename))) (drawable (car (gimp-image-get-active-layer image))) (transparency 0.0) (random-hue 1.0) (random-saturation 1.0) (preserve-luminosity 0) (inverse 0) (border 0) ) ;; select one of these (set! lum-threshhold (* (/ amount num-frames) frames)) ;;(set! flare-inten (* (/ amount num-frames) frames)) ;;(set! spike-len (/ spikelen frames)) ;;(set! density (* (/ amount num-frames) frames)) (plug-in-sparkle RUN-NONINTERACTIVE image drawable lum-threshhold flare-inten spike-len spike-pts spike-angle density transparency random-hue random-saturation preserve-luminosity inverse border color-type) (gimp-file-save RUN-NONINTERACTIVE image drawable filename filename) (gimp-image-delete image) (set! frames (- frames 1)) ) (set! filelist (cdr filelist)) ) ) )