590c4d0b9f
2006-10-20 Kevin Cozens <kcozens@cvs.gnome.org> * plug-ins/script-fu/scheme-wrapper.c: Moved the MIN and MAX entries for image size and resolution to script_constants structureas they are not deprecated constants. * plug-ins/script-fu/scripts/script-fu.init: Removed CR in line endings. * plug-ins/script-fu/scripts/*.scm: Fixed a number of regressions that snuck in during the last big update of the scripts. This update reduces the number of differences to the original scripts (other than formatting). Some additional formatting changes in a few scripts. Updates to use colour names in register block where possible. Fixed a bug in burn-in-anim.scm. Minor cleanup of font-map.scm. Simplified the bug fix in tile-blur.scm.
44 lines
1.2 KiB
Scheme
44 lines
1.2 KiB
Scheme
;; -*-scheme-*-
|
|
|
|
(define (script-fu-guides-from-selection image drawable)
|
|
(let* (
|
|
(boundries (gimp-selection-bounds image))
|
|
;; non-empty INT32 TRUE if there is a selection
|
|
(selection (car boundries))
|
|
(x1 (cadr boundries))
|
|
(y1 (caddr boundries))
|
|
(x2 (cadr (cddr boundries)))
|
|
(y2 (caddr (cddr boundries)))
|
|
)
|
|
|
|
;; need to check for a selection or we get guides right at edges of the image
|
|
(if (= selection TRUE)
|
|
(begin
|
|
(gimp-image-undo-group-start image)
|
|
|
|
(gimp-image-add-vguide image x1)
|
|
(gimp-image-add-hguide image y1)
|
|
(gimp-image-add-vguide image x2)
|
|
(gimp-image-add-hguide image y2)
|
|
|
|
(gimp-image-undo-group-end image)
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-guides-from-selection"
|
|
_"New Guides from _Selection"
|
|
_"Draw a grid as specified by the lists of X and Y locations using the current brush"
|
|
"Alan Horkan"
|
|
"Alan Horkan, 2004. Public Domain."
|
|
"2004-08-13"
|
|
""
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-guides-from-selection"
|
|
"<Image>/Image/Guides")
|