home *** CD-ROM | disk | FTP | other *** search
/ InterCD 2001 June / june_2001.iso / Multimedia / Images / Gimp / setup.exe / Main / round-corners.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-10-23  |  4.5 KB  |  133 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ; 
  4. ; This program is free software; you can redistribute it and/or modify
  5. ; it under the terms of the GNU General Public License as published by
  6. ; the Free Software Foundation; either version 2 of the License, or
  7. ; (at your option) any later version.
  8. ; 
  9. ; This program is distributed in the hope that it will be useful,
  10. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  11. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12. ; GNU General Public License for more details.
  13. ; 
  14. ; You should have received a copy of the GNU General Public License
  15. ; along with this program; if not, write to the Free Software
  16. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  17. ;
  18. ;
  19. ; round-corners.scm   version 1.02   1999/12/21
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ;
  25. ; Copyright (C) 1997-1999 Sven Neumann <sven@gimp.org> 
  26. ;  
  27. ;
  28. ; Rounds the corners of an image, optionally adding a drop-shadow and
  29. ; a background layer
  30. ;
  31. ; The script works on RGB and grayscale images that contain only 
  32. ; one layer. It creates a copy of the image or can optionally work 
  33. ; on the original. The script uses the current background color to 
  34. ; create a background layer. It makes a call to the script drop-shadow.
  35. ;
  36. ; This script is derived from my script add-shadow, which has become 
  37. ; obsolet now.
  38.  
  39.  
  40.  
  41. (define (script-fu-round-corners img
  42.                  drawable
  43.                  radius
  44.                  shadow-toggle
  45.                  shadow-x
  46.                  shadow-y
  47.                  shadow-blur
  48.                  background-toggle
  49.                  work-on-copy)
  50.   (let* ((shadow-blur (abs shadow-blur))
  51.      (radius (abs radius))
  52.      (diam (* 2 radius))
  53.      (width (car (gimp-image-width img)))
  54.      (height (car (gimp-image-height img)))
  55.      (type (car (gimp-drawable-type-with-alpha drawable)))
  56.      (image (cond ((= work-on-copy TRUE)
  57.                (car (gimp-channel-ops-duplicate img)))
  58.               ((= work-on-copy FALSE)
  59.                img)))
  60.      (pic-layer (car (gimp-image-active-drawable image))))
  61.  
  62.   (gimp-image-undo-disable image)
  63.  
  64.   ; add an alpha channel to the image
  65.   (gimp-layer-add-alpha pic-layer)
  66.   
  67.   ; round the edges  
  68.   (gimp-selection-none image)
  69.   (gimp-rect-select image 0 0 radius radius ADD 0 0)
  70.   (gimp-ellipse-select image 0 0 diam diam SUB TRUE 0 0)
  71.   (gimp-rect-select image (- width radius) 0 radius radius ADD 0 0)
  72.   (gimp-ellipse-select image (- width diam) 0 diam diam SUB TRUE 0 0)
  73.   (gimp-rect-select image 0 (- height radius) radius radius ADD 0 0)
  74.   (gimp-ellipse-select image 0 (- height diam) diam diam SUB TRUE 0 0)
  75.   (gimp-rect-select image (- width radius) (- height radius)
  76.             radius radius ADD 0 0)
  77.   (gimp-ellipse-select image (- width diam) (- height diam)
  78.                diam diam SUB TRUE 0 0)
  79.   (gimp-edit-clear pic-layer)
  80.   (gimp-selection-none image)
  81.   
  82.   ; optionally add a shadow
  83.   (if (= shadow-toggle TRUE)
  84.       (begin
  85.     (script-fu-drop-shadow image
  86.                    pic-layer
  87.                    shadow-x
  88.                    shadow-y
  89.                    shadow-blur
  90.                    '(0 0 0)
  91.                    80
  92.                    TRUE)
  93.     (set! width (car (gimp-image-width image)))
  94.     (set! height (car (gimp-image-height image)))))
  95.       
  96.   ; optionally add a background
  97.   (if (= background-toggle TRUE)
  98.       (let* ((bg-layer (car (gimp-layer-new image
  99.                         width
  100.                         height
  101.                         type
  102.                         "Background"
  103.                         100
  104.                         NORMAL))))
  105.     (gimp-drawable-fill bg-layer BG-IMAGE-FILL)
  106.     (gimp-image-add-layer image bg-layer -1)
  107.     (gimp-image-raise-layer image pic-layer)
  108.     (if (= shadow-toggle TRUE)
  109.         (gimp-image-lower-layer image bg-layer))))
  110.  
  111. ; clean up after the script
  112.   (gimp-image-undo-enable image)
  113.   (if (= work-on-copy TRUE)
  114.       (gimp-display-new image))
  115.   (gimp-displays-flush)))
  116.  
  117. (script-fu-register "script-fu-round-corners"
  118.             _"<Image>/Script-Fu/Decor/Round Corners..."
  119.             "Round the corners of an image and optionally adds a drop-shadow and a background"
  120.             "Sven Neumann <sven@gimp.org>"
  121.             "Sven Neumann"
  122.             "1999/12/21"
  123.             "RGB GRAY"
  124.             SF-IMAGE "Image" 0
  125.             SF-DRAWABLE "Drawable" 0
  126.             SF-ADJUSTMENT _"Edge Radius" '(15 0 4096 1 10 0 1)
  127.             SF-TOGGLE     _"Add Drop-Shadow" TRUE
  128.             SF-ADJUSTMENT _"Shadow X Offset" '(8 -4096 4096 1 10 0 1)
  129.             SF-ADJUSTMENT _"Shadow Y Offset" '(8 -4096 4096 1 10 0 1)
  130.             SF-ADJUSTMENT _"Blur Radius" '(15 0 1024 1 10 0 1)
  131.             SF-TOGGLE     _"Add Background" TRUE
  132.             SF-TOGGLE     _"Work on Copy" TRUE)
  133.