home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / add-bevel.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  7.0 KB  |  217 lines
  1. ; The GIMP -- an image manipulation program
  2. ; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  3. ;
  4. ; add-bevel.scm version 1.03
  5. ; Time-stamp: <1997-12-16 09:17:24 ard>
  6. ; 
  7. ; This program is free software; you can redistribute it and/or modify
  8. ; it under the terms of the GNU General Public License as published by
  9. ; the Free Software Foundation; either version 2 of the License, or
  10. ; (at your option) any later version.
  11. ; 
  12. ; This program is distributed in the hope that it will be useful,
  13. ; but WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15. ; GNU General Public License for more details.
  16. ; 
  17. ; You should have received a copy of the GNU General Public License
  18. ; along with this program; if not, write to the Free Software
  19. ; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. ;
  21. ; Copyright (C) 1997 Andrew Donkin  (ard@cs.waikato.ac.nz)
  22. ; Contains code from add-shadow.scm by Sven Neumann
  23. ; (neumanns@uni-duesseldorf.de) (thanks Sven).
  24. ;  
  25. ; Adds a bevel to an image.  See http://www.cs.waikato.ac.nz/~ard/gimp/
  26. ;
  27. ; If there is a selection, it is bevelled.
  28. ; Otherwise if there is an alpha channel, the selection is taken from it
  29. ; and bevelled.
  30. ; Otherwise the whole image is bevelled.
  31. ;
  32. ; The selection is set on exit, so Select->Invert then Edit->Clear will
  33. ; leave a cut-out.  Then use Sven's add-shadow for that
  34. ; floating-bumpmapped-texture cliche.
  35.  
  36. ;
  37. ; 1.01: now works on offset layers.
  38. ; 1.02: has crop-pixel-border option to trim one pixel off each edge of the
  39. ;       bevelled image.  Bumpmapping leaves edge pixels unchanged, which
  40. ;       looks bad.  Oddly, this is not apparant in the GIMP - you have to
  41. ;       save the image and load it into another viewer.  First noticed in
  42. ;       Nutscrape.
  43. ;       Changed path (removed "filters/").
  44. ; 1.03: adds one-pixel border before bumpmapping, and removes it after.
  45. ;    Got rid of the crop-pixel-border option (no longer reqd).
  46. ;
  47.  
  48. ;
  49. ; BUMPMAP NOTES:
  50. ;
  51. ; Bumpmap changed arguments from version 2.02 to 2.03.  If you use the
  52. ; wrong bumpmap.c this script will either bomb (good) or produce a
  53. ; naff image (bad).
  54. ;
  55. ; As distributed this script expects bumpmap 2.03 (shipped with Gimp 0.99.11)
  56. ; or later.
  57.  
  58. ;
  59. ; BUGS
  60. ;
  61. ; Doesn't allow undoing the operation.  Why not?
  62. ;
  63. ; Sometimes (and that's the scary bit) gives bogloads of GTK warnings.
  64. ;
  65.  
  66.   
  67. (define (script-fu-add-bevel img
  68.                  drawable
  69.                  thickness
  70.                  work-on-copy
  71.                  keep-bump-layer)
  72.  
  73.   (let* ((index 0)
  74.      (bevelling-whole-image FALSE)
  75.      (greyness 0)
  76.      (thickness (abs thickness))
  77.      (type (car (gimp-drawable-type-with-alpha drawable)))
  78.      (image (if (= work-on-copy TRUE) (car (gimp-channel-ops-duplicate img)) img))
  79.      (pic-layer (car (gimp-image-active-drawable image)))
  80.      (width (car (gimp-drawable-width pic-layer)))
  81.      (height (car (gimp-drawable-height pic-layer)))
  82.      (old-bg (car (gimp-palette-get-background)))
  83.      (bump-layer (car (gimp-layer-new image
  84.                       width
  85.                       height
  86.                       GRAY
  87.                       "Bumpmap"
  88.                       100
  89.                       NORMAL)))
  90.      )
  91.     ;
  92.     ; If the layer we're bevelling is offset from the image's origin, we
  93.     ; have to do the same to the bumpmap
  94.     (let ((offsets (gimp-drawable-offsets pic-layer)))
  95.       (gimp-layer-set-offsets bump-layer (car offsets) (cadr offsets))
  96.       )
  97.  
  98.     (gimp-image-undo-disable image)
  99.  
  100.     ;------------------------------------------------------------
  101.     ;
  102.     ; Set the selection to the area we want to bevel.
  103.     ;
  104.     (if (eq? 0 (car (gimp-selection-bounds image)))
  105.     (begin
  106.       (set! bevelling-whole-image TRUE) ; ...so we can restore things properly, and crop.
  107.       (gimp-image-resize image (+ width 2) (+ height 2) 1 1)
  108.       (if (not (eq? 0 (car (gimp-drawable-has-alpha pic-layer))))    ; Wish I knew Scheme
  109.           (gimp-selection-layer-alpha pic-layer)
  110.           (begin
  111.         (gimp-selection-all image)
  112.         )
  113.           )
  114.       )
  115.     )
  116.  
  117.     ; Store it for later.
  118.     (set! select (car (gimp-selection-save image)))
  119.     ; Try to lose the jaggies
  120.     (gimp-selection-feather image 2)
  121.  
  122.     ;------------------------------------------------------------
  123.     ;
  124.     ; Initialise our bumpmap
  125.     ;
  126.     (gimp-palette-set-background '(0 0 0))
  127.     (gimp-drawable-fill bump-layer BG-IMAGE-FILL)
  128.  
  129.     (set! index 1)
  130.     (while (< index thickness)
  131.        (set! greyness (/ (* index 255) thickness))
  132.        (gimp-palette-set-background (list greyness greyness greyness))
  133.        ;(gimp-selection-feather image 1) ;Stop the slopey jaggies?
  134.        (gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
  135.        (gimp-selection-shrink image 1)
  136.        (set! index (+ index 1))
  137.        )
  138.     ; Now the white interior
  139.     (gimp-palette-set-background '(255 255 255))
  140.     (gimp-bucket-fill bump-layer BG-BUCKET-FILL NORMAL 100 0 FALSE 0 0)
  141.  
  142.     ;------------------------------------------------------------
  143.     ;
  144.     ; Do the bump.
  145.     ;
  146.     (gimp-selection-none image)
  147.  
  148.     ; To further lessen jaggies?
  149.     ;(plug-in-gauss-rle 1 image bump-layer thickness TRUE TRUE)
  150.  
  151.  
  152.     ; If they're working on the original, let them undo the filter's effects.
  153.     ; This doesn't work - ideas why not?
  154.     (if (= work-on-copy FALSE) (gimp-image-undo-enable image))
  155.  
  156.     ;
  157.     ; BUMPMAP INVOCATION:
  158.     ;
  159.     ; Use the former with version 2.02 or earlier of bumpmap:
  160.     ; Use the latter with version 2.03 or later (ambient and waterlevel params)
  161. ;   (plug-in-bump-map 1 image pic-layer bump-layer 125 45 3 0 0     TRUE FALSE 1)
  162.     (plug-in-bump-map 1 image pic-layer bump-layer 125 45 3 0 0 0 0 TRUE FALSE 1)
  163.  
  164.     ;
  165.     ; Shave one pixel off each edge
  166.     ;
  167.     (if (= bevelling-whole-image TRUE)
  168.       (gimp-crop image width height 1 1)
  169.       )
  170.  
  171.     (if (= work-on-copy FALSE) (gimp-image-undo-disable image))
  172.  
  173.     ;------------------------------------------------------------
  174.     ;
  175.     ; Restore things
  176.     ;
  177.     (gimp-palette-set-background old-bg)
  178.     (if (= bevelling-whole-image TRUE)
  179.     (gimp-selection-none image)    ; No selection to start with
  180.     (gimp-selection-load select)
  181.     )
  182.     ; If they started with a selection, they can Select->Invert then
  183.     ; Edit->Clear for a cutout.
  184.  
  185.     ; clean up
  186.     (gimp-image-remove-channel image select)
  187.     (if (= keep-bump-layer TRUE)
  188.     (begin
  189.       (gimp-image-add-layer image bump-layer 1)
  190.       (gimp-layer-set-visible bump-layer 0))
  191.     (gimp-layer-delete bump-layer)
  192.     )
  193.  
  194.     (gimp-image-set-active-layer image pic-layer)
  195.  
  196.     (if (= work-on-copy TRUE) (gimp-display-new image))
  197.  
  198.     (gimp-image-undo-enable image)
  199.     (gimp-displays-flush)
  200.  
  201.     )
  202.   )
  203.  
  204. (script-fu-register "script-fu-add-bevel"
  205.             _"<Image>/Script-Fu/Decor/Add Bevel..."
  206.             "Add a bevel to an image"
  207.             "Andrew Donkin <ard@cs.waikato.ac.nz>"
  208.             "Andrew Donkin"
  209.             "1997/11/06"
  210.             "RGB* GRAY*"
  211.             SF-IMAGE "Image" 0
  212.             SF-DRAWABLE "Drawable" 0
  213.             SF-ADJUSTMENT _"Thickness"       '(5 0 30 1 2 0 0)
  214.             SF-TOGGLE     _"Work on Copy"    TRUE
  215.             SF-TOGGLE     _"Keep Bump Layer" FALSE
  216.             )
  217.