Guest User

Untitled

a guest
Jul 16th, 2018
95
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.20 KB | None | 0 0
  1. --- resynthesizer-0.14/smart-remove.scm 2006-03-01 00:09:21.000000000 +0100
  2. +++ resynthesizer-0.15/smart-remove.scm 2006-12-18 01:31:19.000000000 +0100
  3. @@ -1,5 +1,5 @@
  4.  
  5. -; Smart Remove version 0.2
  6. +; Smart Remove
  7.  
  8. ; Smart selection eraser.
  9. ; Requires resynthesizer plug-in.
  10. @@ -10,7 +10,7 @@
  11. ((= 0 (car (gimp-selection-bounds img)))
  12. (gimp-message "To use this script-fu, first select the region you wish to remove.")
  13. )
  14. - (t (let*
  15. + (#t (let*
  16. (
  17. (width (car (gimp-drawable-width layer)))
  18. (height (car (gimp-drawable-height layer)))
  19. @@ -24,14 +24,14 @@
  20. (gimp-selection-invert dupe)
  21. (let*
  22. (
  23. - (old-background (car (gimp-palette-get-background)))
  24. + (old-background (car (gimp-context-get-background)))
  25. (channel2 (car (gimp-selection-save dupe)))
  26. )
  27.  
  28. (gimp-selection-load channel)
  29. - (gimp-palette-set-background '(255 255 255))
  30. + (gimp-context-set-background '(255 255 255))
  31. (gimp-edit-clear channel2)
  32. - (gimp-palette-set-background old-background)
  33. + (gimp-context-set-background old-background)
  34. (gimp-selection-load channel2)
  35. )
Add Comment
Please, Sign In to add comment