35df110a05
paste as brush, paste as pattern, select to new brush, select to new pattern fill selection outline, fill path, stroke selection, distort, rounded rectangle indexed color conversion, merge visible layers, new guide, new guide (by percent) image properties, newsprint, fractal explorer, sample colorize, new layer metadata editor (just a button), spyroplus (only common buttons)
42 lines
1.2 KiB
Scheme
42 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")
|