5 echo -n Merging image $no:
13 (mask (car (file-png-load 1 "$mask" "$mask")))
14 (mask-drawable (car (gimp-image-active-drawable mask)))
15 (img (car (file-png-load 1 "$image" "$image")))
16 (img-drawable (car (gimp-image-active-drawable img)))
17 (color (car (gimp-image-pick-color img img-drawable 0 0 0 0 1)))
19 (gimp-fuzzy-select mask-drawable 0 0 0 0 FALSE 0 1 0)
20 (set! active-selection (car (gimp-selection-save mask)))
21 (gimp-selection-all img)
22 (gimp-edit-copy img-drawable)
23 (gimp-selection-all mask)
24 (set! mask-fs (car (gimp-edit-paste mask-drawable FALSE)))
25 (gimp-floating-sel-anchor mask-fs)
26 (gimp-selection-load active-selection)
27 (plug-in-colortoalpha 1 img mask-drawable color)
28 (gimp-image-crop mask 240 240 40 0)
29 (gimp-image-scale mask 42 42)
30 (file-png-save 1 mask mask-drawable "$out" "$out" 0 9 0 0 0 0 0)
35 gimp -s -f -i -d --console-messages --batch '(load "tmp.scm" nil nil)'
42 for no in {,1,2,3,4}{0,1,2,3,4,5,6,7,8,9}