|
Lines 24-37
Link Here
|
| 24 |
(gimp-selection-invert dupe) |
24 |
(gimp-selection-invert dupe) |
| 25 |
(let* |
25 |
(let* |
| 26 |
( |
26 |
( |
| 27 |
(old-background (car (gimp-palette-get-background))) |
27 |
(old-background (car (gimp-context-get-background))) |
| 28 |
(channel2 (car (gimp-selection-save dupe))) |
28 |
(channel2 (car (gimp-selection-save dupe))) |
| 29 |
) |
29 |
) |
| 30 |
|
30 |
|
| 31 |
(gimp-selection-load channel) |
31 |
(gimp-selection-load channel) |
| 32 |
(gimp-palette-set-background '(255 255 255)) |
32 |
(gimp-context-set-background '(255 255 255)) |
| 33 |
(gimp-edit-clear channel2) |
33 |
(gimp-edit-clear channel2) |
| 34 |
(gimp-palette-set-background old-background) |
34 |
(gimp-context-set-background old-background) |
| 35 |
(gimp-selection-load channel2) |
35 |
(gimp-selection-load channel2) |
| 36 |
) |
36 |
) |
| 37 |
|
37 |
|
