b6ecaad275
Increase the percision of the "position" property of
guides-new-percent.scm to two decimal places. Currently, it only
accepts integers, which limits its accuracy to 100px.
(cherry picked from commit 8e6a5298c1)
41 lines
1.2 KiB
Scheme
41 lines
1.2 KiB
Scheme
;; -*-scheme-*-
|
|
|
|
;; Alan Horkan 2004. No copyright. Public Domain.
|
|
|
|
(define (script-fu-guide-new-percent image drawable direction position)
|
|
(let* (
|
|
(width (car (gimp-image-width image)))
|
|
(height (car (gimp-image-height image)))
|
|
)
|
|
|
|
(if (= direction 0)
|
|
(set! position (/ (* height position) 100))
|
|
(set! position (/ (* width position) 100))
|
|
)
|
|
|
|
(if (= direction 0)
|
|
;; convert position to pixel
|
|
(if (<= position height) (gimp-image-add-hguide image position))
|
|
(if (<= position width) (gimp-image-add-vguide image position))
|
|
)
|
|
|
|
(gimp-displays-flush)
|
|
)
|
|
)
|
|
|
|
(script-fu-register "script-fu-guide-new-percent"
|
|
_"New Guide (by _Percent)..."
|
|
_"Add a guide at the position specified as a percentage of the image size"
|
|
"Alan Horkan"
|
|
"Alan Horkan, 2004"
|
|
"April 2004"
|
|
"*"
|
|
SF-IMAGE "Input Image" 0
|
|
SF-DRAWABLE "Input Drawable" 0
|
|
SF-OPTION _"Direction" '(_"Horizontal"
|
|
_"Vertical")
|
|
SF-ADJUSTMENT _"Position (in %)" '(50 0 100 1 10 2 1)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-guide-new-percent"
|
|
"<Image>/Image/Guides")
|