home *** CD-ROM | disk | FTP | other *** search
/ PC World 2001 February / PCWorld_2001-02_cd.bin / Software / Topware / gimp / gimp-setup-20001226.exe / Main / selection-round.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2000-12-27  |  3.9 KB  |  135 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-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 rectangular."
  128.             "Sven Neumann <sven@gimp.org>"
  129.             "Sven Neumann"
  130.             "1998/02/06"
  131.             "*"
  132.             SF-IMAGE "Image" 0
  133.             SF-DRAWABLE "Drawable" 0
  134.             SF-ADJUSTMENT _"Relative Radius" '(1 0 128 .1 1 1 1))
  135.