home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / distress_selection.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  3.2 KB  |  106 lines
  1. ;
  2. ; distress selection
  3. ;
  4. ;
  5. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  6. ; At ECS Dept, University of Southampton, England.
  7.  
  8. ; This program is free software; you can redistribute it and/or modify
  9. ; it under the terms of the GNU General Public License as published by
  10. ; the Free Software Foundation; either version 2 of the License, or
  11. ; (at your option) any later version.
  12. ; 
  13. ; This program is distributed in the hope that it will be useful,
  14. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  15. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16. ; GNU General Public License for more details.
  17. ; 
  18. ; You should have received a copy of the GNU General Public License
  19. ; along with this program; if not, write to the Free Software
  20. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  21.  
  22. ; Define the function:
  23.  
  24. (define (script-fu-distress-selection    inImage
  25.                     inLayer
  26.                     inThreshold
  27.                     inSpread
  28.                     inGranu
  29.                     inSmooth
  30.                                         inSmoothH
  31.                                         inSmoothV
  32.     )
  33.  
  34.     (set! theImage inImage)
  35.         (set! theWidth (car (gimp-image-width inImage)))
  36.     (set! theHeight (car (gimp-image-height inImage)))
  37.  
  38.     (gimp-image-undo-disable theImage)
  39.  
  40.     (set! theLayer (car (gimp-layer-new     theImage
  41.                         theWidth
  42.                         theHeight
  43.                         RGBA_IMAGE
  44.                         "Distress Scratch Layer"
  45.                         100
  46.                         NORMAL
  47.     ) ) )
  48.  
  49.     (gimp-image-add-layer theImage theLayer 0)
  50.         (if (= TRUE (car (gimp-selection-is-empty theImage)))
  51.             ()
  52.         (gimp-edit-fill theLayer BG-IMAGE-FILL)
  53.         )
  54.     (gimp-selection-invert theImage)
  55.         (if (= TRUE (car (gimp-selection-is-empty theImage)))
  56.             ()
  57.             (gimp-edit-clear theLayer)
  58.         )
  59.     (gimp-selection-invert theImage)
  60.         (gimp-selection-none inImage)
  61.  
  62.     (gimp-layer-scale     theLayer
  63.                 (/ theWidth inGranu)
  64.                 (/ theHeight inGranu)
  65.                 TRUE
  66.     )
  67.  
  68.     (plug-in-spread     TRUE
  69.                 theImage
  70.                 theLayer
  71.                 inSpread
  72.                 inSpread
  73.     )
  74.     (plug-in-gauss-iir TRUE theImage theLayer inSmooth inSmoothH inSmoothV)
  75. ;    (plug-in-gauss-iir TRUE theImage theLayer 2 TRUE TRUE)
  76.     (gimp-layer-scale theLayer theWidth theHeight TRUE)
  77.     (plug-in-threshold-alpha TRUE theImage theLayer inThreshold)
  78.         (plug-in-gauss-iir TRUE theImage theLayer 1 TRUE TRUE)
  79.     (gimp-selection-layer-alpha theLayer)
  80.     (gimp-image-remove-layer theImage theLayer)
  81. ;    (gimp-layer-delete theLayer)
  82.     (gimp-image-undo-enable theImage)
  83.     (gimp-displays-flush)
  84. )
  85.  
  86.  
  87. ; Register the function with the GIMP:
  88.  
  89. (script-fu-register
  90.     "script-fu-distress-selection"
  91.     _"<Image>/Script-Fu/Selection/Distress Selection..."
  92.     "No description"
  93.     "Chris Gutteridge"
  94.     "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  95.     "23rd April 1998"
  96.     "RGB*"
  97.     SF-IMAGE "The Image" 0
  98.     SF-DRAWABLE "The Layer" 0
  99.     SF-ADJUSTMENT _"Threshold (Bigger 1<-->255 Smaller)" '(127 1 255 1 10 0 0)
  100.     SF-ADJUSTMENT _"Spread" '(8 0 1000 1 10 0 1)
  101.     SF-ADJUSTMENT _"Granularity (1 is Low)" '(4 1 25 1 10 0 1)
  102.     SF-ADJUSTMENT _"Smooth" '(2 0 150 1 10 0 1)
  103.     SF-TOGGLE _"Smooth Horizontally" TRUE
  104.     SF-TOGGLE _"Smooth Vertically" TRUE
  105. )
  106.