home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_gimp.idb / usr / freeware / share / gimp / scripts / tileblur.scm.z / tileblur.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  2.6 KB  |  78 lines
  1. ;
  2. ;
  3. ;
  4. ; Chris Gutteridge (cjg@ecs.soton.ac.uk)
  5. ; At ECS Dept, University of Southampton, England.
  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.  
  22. (define (script-fu-tile-blur inImage inLayer inRadius inHoriz inVert inType)
  23.  
  24.    (set! theImage inImage)
  25.    (set! theLayer inLayer)
  26.    (set! theHeight (car (gimp-drawable-height theLayer)))
  27.    (set! theWidth (car (gimp-drawable-width theLayer)))
  28.  
  29.    (gimp-image-disable-undo theImage)
  30.    (gimp-layer-resize theLayer (* 3 theWidth) (* 3 theHeight) 0 0)
  31.  
  32.    (gimp-rect-select theImage 0 0 theWidth theHeight REPLACE 0 0)
  33.    (gimp-edit-cut theImage theLayer)
  34.  
  35.    (gimp-selection-none theImage)
  36.    (gimp-layer-set-offsets theLayer theWidth theHeight)
  37.  
  38.    (cjg-pasteat 1 1) (cjg-pasteat 1 2) (cjg-pasteat 1 3)
  39.    (cjg-pasteat 2 1) (cjg-pasteat 2 2) (cjg-pasteat 2 3)
  40.    (cjg-pasteat 3 1) (cjg-pasteat 3 2) (cjg-pasteat 3 3)
  41.  
  42.    (gimp-selection-none theImage)
  43.    (if (= inType FALSE) 
  44.        (plug-in-gauss-iir TRUE theImage theLayer inRadius inHoriz inVert)
  45.        (plug-in-gauss-rle TRUE theImage theLayer inRadius inHoriz inVert)
  46.    )
  47.  
  48.    (gimp-layer-resize theLayer theWidth theHeight (- 0 theWidth) (- 0 theHeight))
  49.    (gimp-layer-set-offsets theLayer 0 0)
  50.    (gimp-image-enable-undo theImage)
  51.    (gimp-displays-flush)
  52. )
  53.  
  54. (define (cjg-pasteat xoff yoff) 
  55.    (let     ((theFloat (car(gimp-edit-paste theImage theLayer 0)))) 
  56.         (gimp-layer-set-offsets theFloat (* xoff theWidth) (* yoff theHeight) )
  57.         (gimp-floating-sel-anchor theFloat)
  58.    )
  59. )
  60.  
  61. ; Register the function with the GIMP:
  62.  
  63. (script-fu-register
  64.     "script-fu-tile-blur"
  65.     "<Image>/Filters/Blur/Tilable Blur"
  66.     "foo"
  67.     "Chris Gutteridge"
  68.     "1998, Chris Gutteridge / ECS dept, University of Southampton, England."
  69.     "25th April 1998"
  70.     "RGBA RGB"
  71.     SF-IMAGE "The Image" 0
  72.     SF-DRAWABLE "The Layer" 0
  73.     SF-VALUE "Radius:" "5"
  74.     SF-TOGGLE "Blur Vertically?" TRUE
  75.     SF-TOGGLE "Blur Horizontally?" TRUE
  76.     SF-TOGGLE "Blur Type: TRUE=RLE, FALSE=IIR" FALSE
  77. )
  78.