home *** CD-ROM | disk | FTP | other *** search
/ Enter 2004 August / ENTER.ISO / files / gimp-2.0.5-i586-setup.exe / {app} / share / gimp / 2.0 / scripts / selection-round.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2004-09-26  |  3.8 KB  |  132 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. ; selection-round.scm   version 1.02   1998/02/06
  20. ;
  21. ; CHANGE-LOG:
  22. ; 1.00 - initial release
  23. ; 1.01 - some code cleanup, no real changes
  24. ; 1.02 - made script undoable
  25. ;
  26. ; Copyright (C) 1997, 1998 Sven Neumann <sven@gimp.org>
  27. ; 
  28. ;  
  29. ; Rounds the current selection by cutting of rectangles from the edges and 
  30. ; adding circles. The relative radius describes the radius of this cricles
  31. ; in relation to the selections width or height (depends on which of these 
  32. ; is smaller) 
  33.  
  34. (define (script-fu-selection-round image
  35.                         drawable
  36.                                    radius)
  37.  
  38.   (let* ((radius (min radius 1.0))
  39.      (radius (max radius 0.0))
  40.      (select-bounds (gimp-selection-bounds image))
  41.      (has-selection (car select-bounds))
  42.      (select-x1 (cadr select-bounds))
  43.      (select-y1 (caddr select-bounds))
  44.      (select-x2 (cadr (cddr select-bounds)))
  45.      (select-y2 (caddr (cddr select-bounds)))
  46.      (select-width (- select-x2 select-x1))
  47.      (select-height (- select-y2 select-y1))
  48.      (cut-radius 0)
  49.      (ellipse-radius 0))
  50.  
  51.   (gimp-image-undo-group-start image)
  52.  
  53.   (if (> select-width select-height)
  54.       (set! cut-radius (trunc (+ 1 (* radius (/ select-height 2)))))
  55.       (set! cut-radius (trunc (+ 1 (* radius (/ select-width 2))))))
  56.   (set! ellipse-radius (* cut-radius 2))
  57.   (gimp-rect-select image
  58.             select-x1
  59.             select-y1
  60.             (+ cut-radius 1)
  61.             (+ cut-radius 1)
  62.             CHANNEL-OP-SUBTRACT
  63.             FALSE 0)
  64.   (gimp-rect-select image
  65.             select-x1
  66.             (- select-y2 cut-radius)
  67.             (+ cut-radius 1)
  68.             (+ cut-radius 1)
  69.             CHANNEL-OP-SUBTRACT
  70.             FALSE 0)
  71.   (gimp-rect-select image
  72.             (- select-x2 cut-radius)
  73.             select-y1
  74.             (+ cut-radius 1)
  75.             (+ cut-radius 1)
  76.             CHANNEL-OP-SUBTRACT
  77.             FALSE 0)
  78.   (gimp-rect-select image
  79.             (- select-x2 cut-radius)
  80.             (- select-y2 cut-radius)
  81.             (+ cut-radius 1)
  82.             (+ cut-radius 1)
  83.             CHANNEL-OP-SUBTRACT
  84.             FALSE 0)
  85.   (gimp-ellipse-select image
  86.                select-x1
  87.                select-y1
  88.                ellipse-radius
  89.                ellipse-radius
  90.                CHANNEL-OP-ADD
  91.                TRUE
  92.                FALSE 0)
  93.   (gimp-ellipse-select image
  94.                select-x1
  95.                (- select-y2 ellipse-radius)
  96.                ellipse-radius
  97.                ellipse-radius
  98.                CHANNEL-OP-ADD
  99.                TRUE
  100.                FALSE 0)
  101.   (gimp-ellipse-select image
  102.                (- select-x2 ellipse-radius)
  103.                select-y1
  104.                ellipse-radius
  105.                ellipse-radius
  106.                CHANNEL-OP-ADD
  107.                TRUE
  108.                FALSE 0)
  109.   (gimp-ellipse-select image
  110.                (- select-x2 ellipse-radius)
  111.                (- select-y2 ellipse-radius)
  112.                ellipse-radius
  113.                ellipse-radius
  114.                CHANNEL-OP-ADD
  115.                TRUE
  116.                FALSE 0)
  117.  
  118.   (gimp-image-undo-group-end image)
  119.   (gimp-displays-flush)))
  120.  
  121.  
  122. (script-fu-register "script-fu-selection-round"
  123.             _"<Image>/Script-Fu/Selection/_Round..."
  124.             "Rounds the active selection. The selection should be rectangular."
  125.             "Sven Neumann <sven@gimp.org>"
  126.             "Sven Neumann"
  127.             "1998/02/06"
  128.             "*"
  129.             SF-IMAGE "Image" 0
  130.             SF-DRAWABLE "Drawable" 0
  131.             SF-ADJUSTMENT _"Relative Radius" '(1 0 128 .1 1 1 1))
  132.