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 / selection-round.scm.z / selection-round.scm
Encoding:
GIMP Script-Fu Script  |  1999-07-21  |  3.8 KB  |  161 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   02/06/98
  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 (neumanns@uni-duesseldorf.de)
  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-undo-push-group-start image)
  52.  
  53.   (if (> select-width select-height)
  54.       (begin
  55.     (set! cut-radius (* radius (/ select-height 2)))
  56.     (set! ellipse-radius (* radius select-height)))
  57.       (begin
  58.     (set! cut-radius (* radius (/ select-width 2)))
  59.     (set! ellipse-radius (* radius select-width))))
  60.   (gimp-rect-select image 
  61.             select-x1 
  62.             select-y1 
  63.             (+ cut-radius 1)
  64.             (+ cut-radius 1)
  65.             SUB
  66.             FALSE 0)
  67.   (gimp-rect-select image 
  68.             select-x1 
  69.             (- select-y2 cut-radius) 
  70.             (+ cut-radius 1)
  71.             (+ cut-radius 1)
  72.             SUB
  73.             FALSE 0)
  74.   (gimp-rect-select image
  75.             (- select-x2 cut-radius) 
  76.             select-y1
  77.             (+ cut-radius 1)
  78.             (+ cut-radius 1)
  79.             SUB
  80.             FALSE 0)
  81.   (gimp-rect-select image
  82.             (- select-x2 cut-radius) 
  83.             (- select-y2 cut-radius)
  84.             (+ cut-radius 1)
  85.             (+ cut-radius 1)
  86.             SUB
  87.             FALSE 0)
  88.   (gimp-ellipse-select image
  89.                select-x1 
  90.                select-y1 
  91.                ellipse-radius
  92.                ellipse-radius
  93.                ADD
  94.                TRUE
  95.                FALSE 0)
  96.   (gimp-ellipse-select image
  97.                select-x1 
  98.                (- select-y2 ellipse-radius)  
  99.                ellipse-radius
  100.                ellipse-radius
  101.                ADD
  102.                TRUE
  103.                FALSE 0)
  104.   (gimp-ellipse-select image
  105.                (- select-x2 ellipse-radius) 
  106.                select-y1
  107.                ellipse-radius
  108.                ellipse-radius
  109.                ADD
  110.                TRUE
  111.                FALSE 0)
  112.   (gimp-ellipse-select image
  113.                (- select-x2 ellipse-radius) 
  114.                (- select-y2 ellipse-radius)
  115.                ellipse-radius
  116.                ellipse-radius
  117.                ADD
  118.                TRUE
  119.                FALSE 0) 
  120.  
  121.   (gimp-undo-push-group-end image)
  122.   (gimp-displays-flush)))
  123.  
  124.  
  125. (script-fu-register "script-fu-selection-round" 
  126.             "<Image>/Script-Fu/Selection/Round"
  127.             "Rounds the active selection. The selection should be 
  128.                      rectangular."
  129.             "Sven Neumann (neumanns@uni-duesseldorf.de)"
  130.             "Sven Neumann"
  131.             "02/06/98"
  132.             "RGB RGBA GRAY GRAYA INDEXED INDEXEDA"
  133.             SF-IMAGE "Image" 0
  134.             SF-DRAWABLE "Drawable" 0
  135.             SF-VALUE "Relative Radius" "1.0") 
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158.  
  159.  
  160.  
  161.