axoona
a0a98f797a
"add horizontal guides every X interval" "add vertical guides every Y interval" "Multiple images resize batch process" "Multiple JPG shrink batch process" "Multiple images save as png batch process"
26 lines
627 B
Scheme
26 lines
627 B
Scheme
(define (script-fu-add-hguides img layer dist)
|
|
(define (add-hguide y)
|
|
(gimp-image-add-hguide img y)
|
|
(if (= y 0) 1 (add-hguide (- y dist)))
|
|
)
|
|
|
|
;(let ((N (/ (car (gimp-image-width img)) dist)))
|
|
(add-hguide (car (gimp-image-height img)))
|
|
;(add-vguide 0)
|
|
;)
|
|
|
|
)
|
|
|
|
|
|
(script-fu-register "script-fu-add-hguides"
|
|
"<Image>/Script-Fu/Guides/Horizontal ..."
|
|
"add horizontal guides every X interval"
|
|
"axoona (@axoonaa)"
|
|
"Copyright 2016, axoona"
|
|
"Sept 03, 2016"
|
|
""
|
|
SF-IMAGE "Image" 0
|
|
SF-DRAWABLE "Layer - non used" 0
|
|
SF-VALUE "Interval" "200"
|
|
)
|
|
|