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)
41 lines
1.2 KiB
Scheme
41 lines
1.2 KiB
Scheme
;; -*-scheme-*-
|
|
|
|
;; Alan Horkan 2004. Public Domain.
|
|
;; so long as remove this block of comments from your script
|
|
;; feel free to use it for whatever you like.
|
|
|
|
(define (script-fu-guide-new image
|
|
drawable
|
|
direction
|
|
position)
|
|
(let* (
|
|
(width (car (gimp-image-width image)))
|
|
(height (car (gimp-image-height image)))
|
|
)
|
|
|
|
(if (= direction 0)
|
|
;; check position is inside the image boundaries
|
|
(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"
|
|
_"New _Guide..."
|
|
_"Add a guide at the orientation and position specified (in pixels)"
|
|
"Alan Horkan"
|
|
"Alan Horkan, 2004. Public Domain."
|
|
"2004-04-02"
|
|
"*"
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Drawable" 0
|
|
SF-OPTION _"_Direction" '(_"Horizontal" _"Vertical")
|
|
SF-ADJUSTMENT _"_Position" (list 0 0 MAX-IMAGE-SIZE 1 10 0 1)
|
|
)
|
|
|
|
(script-fu-menu-register "script-fu-guide-new"
|
|
"<Image>/Image/Guides")
|