home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / The GIMP / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / selection-round.scm < prev    next >
Encoding:
GIMP Script-Fu Script  |  2009-12-15  |  5.9 KB  |  182 lines
  1. ;; selection-rounded-rectangle.scm -*-scheme-*-
  2.  
  3. ;; GIMP - The GNU Image Manipulation Program
  4. ;; Copyright (C) 1995 Spencer Kimball and Peter Mattis
  5. ;;
  6. ;; This program is free software; you can redistribute it and/or modify
  7. ;; it under the terms of the GNU General Public License as published by
  8. ;; the Free Software Foundation; either version 2 of the License, or
  9. ;; (at your option) any later version.
  10. ;;
  11. ;; This program is distributed in the hope that it will be useful,
  12. ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. ;; GNU General Public License for more details.
  15. ;;
  16. ;; You should have received a copy of the GNU General Public License
  17. ;; along with this program; if not, write to the Free Software
  18. ;; Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. ;; CHANGE-LOG:
  21. ;; 1.00 - initial release
  22. ;; 1.01 - some code cleanup, no real changes
  23. ;; 1.02 - made script undoable
  24.  
  25. ;; 2.00 - ALAN's Branch.  changed name, menu, location, and description
  26. ;; 2.01 - fixed to work if there was no current selection.
  27. ;; 2.02 - changed scale to percentages, usability tweaking.
  28. ;; 2.10 - added concave round edges, updated description.
  29. ;; 2.11 - tweeked description, changed comments, relinquished any rights.
  30.  
  31. ;; Copyright (C) 1997, 1998, Sven Neumann
  32. ;; Copyright (C) 2004, Alan Horkan.
  33. ;; Alan Horkan relinquishes all rights to his changes,
  34. ;; full ownership of this script belongs to Sven Neumann.
  35.  
  36. (define (script-fu-selection-rounded-rectangle image drawable radius concave)
  37.   (gimp-image-undo-group-start image)
  38.  
  39.   (if (= (car (gimp-selection-is-empty image)) TRUE) (gimp-selection-all image))
  40.   (let* (
  41.         (radius (/ radius 100)) ; convert from percentages
  42.         (radius (min radius 1.0))
  43.         (radius (max radius 0.0))
  44.         (select-bounds (gimp-selection-bounds image))
  45.         (has-selection (car select-bounds))
  46.         (select-x1 (cadr select-bounds))
  47.         (select-y1 (caddr select-bounds))
  48.         (select-x2 (cadr (cddr select-bounds)))
  49.         (select-y2 (caddr (cddr select-bounds)))
  50.         (select-width (- select-x2 select-x1))
  51.         (select-height (- select-y2 select-y1))
  52.         (cut-radius 0)
  53.         (ellipse-radius 0)
  54.         )
  55.  
  56.     ;; select to the full bounds of the selection,
  57.     ;; fills in irregular shapes or holes.
  58.     (gimp-rect-select image
  59.               select-x1 select-y1 select-width select-height
  60.               CHANNEL-OP-ADD FALSE 0)
  61.  
  62.     (if (> select-width select-height)
  63.       (set! cut-radius (trunc (+ 1 (* radius (/ select-height 2)))))
  64.       (set! cut-radius (trunc (+ 1 (* radius (/ select-width 2)))))
  65.     )
  66.     (set! ellipse-radius (* cut-radius 2))
  67.  
  68.     ;; cut away rounded (concave) corners
  69.     ; top right
  70.     (gimp-ellipse-select image
  71.              (- select-x1 cut-radius)
  72.              (- select-y1 cut-radius)
  73.              (* cut-radius 2)
  74.              (* cut-radius 2)
  75.              CHANNEL-OP-SUBTRACT
  76.              TRUE
  77.              FALSE 0)
  78.     ; lower left
  79.     (gimp-ellipse-select image
  80.              (- select-x1 cut-radius)
  81.              (- select-y2 cut-radius)
  82.              (* cut-radius 2)
  83.              (* cut-radius 2)
  84.              CHANNEL-OP-SUBTRACT
  85.              TRUE
  86.              FALSE 0)
  87.     ; top right
  88.     (gimp-ellipse-select image
  89.              (- select-x2 cut-radius)
  90.              (- select-y1 cut-radius)
  91.              (* cut-radius 2)
  92.              (* cut-radius 2)
  93.              CHANNEL-OP-SUBTRACT
  94.              TRUE
  95.              FALSE 0)
  96.     ; bottom left
  97.     (gimp-ellipse-select image
  98.              (- select-x2 cut-radius)
  99.              (- select-y2 cut-radius)
  100.              (* cut-radius 2)
  101.              (* cut-radius 2)
  102.              CHANNEL-OP-SUBTRACT
  103.              TRUE
  104.              FALSE 0)
  105.  
  106.     ;; add in rounded (convex) corners
  107.     (if (= concave FALSE)
  108.       (begin
  109.         (gimp-ellipse-select image
  110.                      select-x1
  111.                      select-y1
  112.                      ellipse-radius
  113.                      ellipse-radius
  114.                      CHANNEL-OP-ADD
  115.                      TRUE
  116.                      FALSE 0)
  117.         (gimp-ellipse-select image
  118.                      select-x1
  119.                      (- select-y2 ellipse-radius)
  120.                      ellipse-radius
  121.                      ellipse-radius
  122.                      CHANNEL-OP-ADD
  123.                      TRUE
  124.                      FALSE 0)
  125.         (gimp-ellipse-select image
  126.                      (- select-x2 ellipse-radius)
  127.                      select-y1
  128.                      ellipse-radius
  129.                      ellipse-radius
  130.                      CHANNEL-OP-ADD
  131.                      TRUE
  132.                      FALSE 0)
  133.         (gimp-ellipse-select image
  134.                      (- select-x2 ellipse-radius)
  135.                      (- select-y2 ellipse-radius)
  136.                      ellipse-radius
  137.                      ellipse-radius
  138.                      CHANNEL-OP-ADD
  139.                      TRUE
  140.                      FALSE 0)
  141.       )
  142.     )
  143.  
  144.     (gimp-image-undo-group-end image)
  145.     (gimp-displays-flush)
  146.   )
  147. )
  148.  
  149.  
  150. (define (script-fu-selection-round image drawable radius)
  151.   (script-fu-selection-rounded-rectangle image drawable (* radius 100))
  152. )
  153.  
  154.  
  155. (script-fu-register "script-fu-selection-rounded-rectangle"
  156.   _"Rounded R_ectangle..."
  157.   _"Round the corners of the current selection"
  158.   "Alan Horkan, Sven Neumann" ; authors
  159.   "Sven Neumann"              ; copyright
  160.   "2004/06/07"
  161.   "*"
  162.   SF-IMAGE       "Image"      0
  163.   SF-DRAWABLE    "Drawable"   0
  164.   SF-ADJUSTMENT _"Radius (%)" '(50 0 100 1 10 0 0)
  165.   SF-TOGGLE     _"Concave"    FALSE
  166. )
  167.  
  168. (script-fu-register "script-fu-selection-round"
  169.   ""
  170.   "Round the corners of the current selection (deprecated, use Rounded Rectangle)"
  171.   "Sven Neumann"              ; authors
  172.   "Sven Neumann"              ; copyright
  173.   "1998/02/06"
  174.   "*"
  175.   SF-IMAGE       "Image"      0
  176.   SF-DRAWABLE    "Drawable"   0
  177.   SF-ADJUSTMENT  "Relative radius" '(1 0 128 0.1 1 1 1)
  178. )
  179.  
  180. (script-fu-menu-register "script-fu-selection-rounded-rectangle"
  181.                          "<Image>/Select/Modify")
  182.