Transférer les fichiers vers ''
"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"
This commit is contained in:
26
add-hguide.scm
Normal file
26
add-hguide.scm
Normal file
@@ -0,0 +1,26 @@
|
||||
(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"
|
||||
)
|
||||
|
||||
Reference in New Issue
Block a user