home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / addborder.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  5.5 KB  |  178 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. ; Copyright (C) 1997 Andy Thomas alt@picnic.demon.co.uk
  19. ;
  20. ; Version 0.2 10.6.97 Changed to new script-fu interface in 0.99.10
  21.  
  22. ; Delta the colour by the given amount. Check for boundary conditions
  23. ; If < 0 set to zero 
  24. ; If > 255 set to 255
  25. ; Return the new value
  26.  
  27. (define (deltacolour col delta)
  28.   (let* ((newcol (+ col delta)))
  29. ;    (print "Old colour -") (print col)
  30.     (if (< newcol 0) (set! newcol 0))
  31.     (if (> newcol 255) (set! newcol 255))
  32. ;    (print "New colour") (print newcol)
  33.     newcol)
  34.   )
  35.  
  36. (define (adjcolour col delta)
  37.   (mapcar (lambda (x) (deltacolour x delta)) col)
  38. )
  39.  
  40. (define (gen_top_array xsize ysize owidth oheight width height)
  41.   (let* ((n_array (cons-array 10 'double)))
  42.     (aset n_array 0 0 )
  43.     (aset n_array 1 0 )
  44.     (aset n_array 2 xsize)
  45.     (aset n_array 3 ysize)
  46.     (aset n_array 4 (+ xsize owidth))
  47.     (aset n_array 5 ysize)
  48.     (aset n_array 6 width)
  49.     (aset n_array 7 0 )
  50.     (aset n_array 8 0 )
  51.     (aset n_array 9 0 )
  52.     n_array)
  53. )
  54.  
  55. (define (gen_left_array xsize ysize owidth oheight width height)
  56.   (let* ((n_array (cons-array 10 'double)))
  57.     (aset n_array 0 0 )
  58.     (aset n_array 1 0 )
  59.     (aset n_array 2 xsize)
  60.     (aset n_array 3 ysize)
  61.     (aset n_array 4 xsize)
  62.     (aset n_array 5 (+ ysize oheight))
  63.     (aset n_array 6 0 )
  64.     (aset n_array 7 height )
  65.     (aset n_array 8 0 )
  66.     (aset n_array 9 0 )
  67.     n_array)
  68. )
  69.  
  70. (define (gen_right_array xsize ysize owidth oheight width height)
  71.   (let* ((n_array (cons-array 10 'double)))
  72.     (aset n_array 0 width )
  73.     (aset n_array 1 0 )
  74.     (aset n_array 2 (+ xsize owidth))
  75.     (aset n_array 3 ysize)
  76.     (aset n_array 4 (+ xsize owidth))
  77.     (aset n_array 5 (+ ysize oheight))
  78.     (aset n_array 6 width)
  79.     (aset n_array 7 height)
  80.     (aset n_array 8 width )
  81.     (aset n_array 9 0 )
  82.     n_array)
  83. )
  84.  
  85. (define (gen_bottom_array xsize ysize owidth oheight width height)
  86.   (let* ((n_array (cons-array 10 'double)))
  87.     (aset n_array 0 0 )
  88.     (aset n_array 1 height)
  89.     (aset n_array 2 xsize)
  90.     (aset n_array 3 (+ ysize oheight))
  91.     (aset n_array 4 (+ xsize owidth))
  92.     (aset n_array 5 (+ ysize oheight))
  93.     (aset n_array 6 width)
  94.     (aset n_array 7 height)
  95.     (aset n_array 8 0 )
  96.     (aset n_array 9 height)
  97.     n_array)
  98. )
  99.  
  100. (define (script-fu-addborder aimg adraw xsize ysize colour dvalue)
  101.   (let* ((img (car (gimp-drawable-image adraw)))
  102.      (owidth (car (gimp-image-width img)))
  103.      (oheight (car (gimp-image-height img)))
  104.      (old-fg (car (gimp-palette-get-foreground)))
  105.          (old-bg (car (gimp-palette-get-background)))
  106.      (width (+ owidth (* 2 xsize)))
  107.      (height (+ oheight (* 2 ysize)))
  108.      (layer (car (gimp-layer-new img width height RGBA_IMAGE "Border-Layer" 100 NORMAL))))
  109. ;Add this for debugging    (verbose 4)
  110.     (gimp-image-undo-disable img)
  111.     (gimp-drawable-fill layer TRANS-IMAGE-FILL)
  112.     (gimp-image-resize img
  113.                width
  114.                    height
  115.                    xsize
  116.                    ysize)
  117.     (gimp-palette-set-background (adjcolour colour dvalue))
  118.     (gimp-free-select img
  119.               10
  120.               (gen_top_array xsize ysize owidth oheight width height)
  121.               REPLACE
  122.               0
  123.               0
  124.               0.0)
  125.     (gimp-edit-fill layer BG-IMAGE-FILL)
  126.     (gimp-palette-set-background (adjcolour colour (/ dvalue 2)))
  127.     (gimp-free-select img
  128.               10
  129.               (gen_left_array xsize ysize owidth oheight width height)
  130.               REPLACE
  131.               0
  132.               0
  133.               0.0)
  134.     (gimp-edit-fill layer BG-IMAGE-FILL)
  135.     (gimp-palette-set-background (adjcolour colour (- 0 (/ dvalue 2))))
  136.     (gimp-free-select img
  137.               10
  138.               (gen_right_array xsize ysize owidth oheight width height)
  139.               REPLACE
  140.               0
  141.               0
  142.               0.0)
  143.  
  144.     (gimp-edit-fill layer BG-IMAGE-FILL)
  145.     (gimp-palette-set-background (adjcolour colour (- 0 dvalue)))
  146.     (gimp-free-select img
  147.               10
  148.               (gen_bottom_array xsize ysize owidth oheight width height)
  149.               REPLACE
  150.               0
  151.               0
  152.               0.0)
  153.  
  154.     (gimp-edit-fill layer BG-IMAGE-FILL)
  155.     (gimp-selection-none img)
  156.     (gimp-image-add-layer img layer 0)
  157.     (gimp-image-undo-enable img)
  158.     (gimp-palette-set-background old-bg)
  159.     (gimp-displays-flush)
  160.     )
  161. )
  162.  
  163.  
  164. (script-fu-register "script-fu-addborder"
  165.             _"<Image>/Script-Fu/Decor/Add Border..."
  166.             "Add a border around an image"
  167.             "Andy Thomas <alt@picnic.demon.co.uk>"
  168.             "Andy Thomas"
  169.             "6/10/97"
  170.             "RGB*"
  171.             SF-IMAGE "Input Image" 0
  172.             SF-DRAWABLE "Input Drawable" 0
  173.             SF-ADJUSTMENT _"Border X Size" '(12 1 250 1 10 0 1)
  174.             SF-ADJUSTMENT _"Border Y Size" '(12 1 250 1 10 0 1)
  175.             SF-COLOR _"Border Color" '(38 31 207)
  176.             SF-ADJUSTMENT _"Delta Value on Color" '(25 1 255 1 10 0 1)
  177.             )
  178.