home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 April / PCWorld_2001-04_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / old_photo.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  3.3 KB  |  96 lines
  1. ;
  2. ; old-photo
  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-old-photo inImage inLayer inDefocus inBorder inSepia inMottle inCopy)
  25.         (gimp-selection-all inImage)
  26.         (set! theImage (if (= inCopy TRUE)
  27.                        (car (gimp-channel-ops-duplicate inImage))
  28.                        inImage)
  29.         )
  30.  
  31.     (set! theLayer (car(gimp-image-flatten theImage)))
  32.         (if (= inDefocus TRUE)
  33.             (plug-in-gauss-rle TRUE theImage theLayer 1.5 TRUE TRUE)
  34.             ()
  35.         )
  36.         (if (= inBorder TRUE)
  37.             (script-fu-fuzzy-border theImage inLayer '(255 255 255)
  38.                 20 TRUE 8 FALSE 100 FALSE TRUE )
  39.             ()
  40.         )
  41.     (set! theLayer (car(gimp-image-flatten theImage)))
  42.  
  43.     (if (= inSepia TRUE)
  44.             (begin (gimp-desaturate theLayer)
  45.                (gimp-brightness-contrast theLayer -20 -40)
  46.                (gimp-color-balance theLayer 0 TRUE 30 0 -30)
  47.             )
  48.             ()
  49.         )
  50.         (set! theWidth (car (gimp-image-width theImage)))
  51.         (set! theHeight (car (gimp-image-height theImage)))
  52.     (if (= inMottle TRUE)
  53.             (begin (set! mLayer (car (gimp-layer-new theImage theWidth theHeight RGBA_IMAGE "Mottle" 100 DARKEN-ONLY)))
  54.                               
  55.                    (gimp-image-add-layer theImage mLayer 0)
  56.                    (gimp-selection-all theImage)
  57.                    (gimp-edit-clear mLayer)
  58.                    (gimp-selection-none theImage)
  59.                    (plug-in-noisify TRUE theImage mLayer TRUE 0 0 0 0.5)
  60.                    (plug-in-gauss-rle TRUE theImage mLayer 5 TRUE TRUE)
  61.                (set! theLayer (car(gimp-image-flatten theImage)))
  62.             )
  63.             ()
  64.         )
  65.  
  66.  
  67.  
  68.         (if     (= inCopy TRUE)
  69.                 (begin  (gimp-image-clean-all theImage)
  70.                         (gimp-display-new theImage)
  71.                 )
  72.                 ()
  73.         )
  74.         (gimp-selection-none inImage)
  75.     (gimp-displays-flush theImage)
  76. )
  77.  
  78. ; Register the function with the GIMP:
  79.  
  80. (script-fu-register
  81.     "script-fu-old-photo"
  82.     _"<Image>/Script-Fu/Decor/Old Photo..."
  83.     "Makes the image look like an old photo"
  84.     "Chris Gutteridge"
  85.     "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  86.     "16th April 1998"
  87.     "RGB* GRAY*"
  88.     SF-IMAGE "The Image" 0
  89.     SF-DRAWABLE "The Layer" 0
  90.     SF-TOGGLE _"Defocus" TRUE
  91.     SF-TOGGLE _"Border" TRUE
  92.     SF-TOGGLE _"Sepia" TRUE
  93.     SF-TOGGLE _"Mottle" FALSE
  94.     SF-TOGGLE _"Work on Copy" TRUE
  95. )
  96.