Sat Feb 08, 2020 2:39 pm
(define (script-fu-new-layer-white)
(gimp-image-new 400 400 GRAY)
(gimp-layer-new image 400 400 GRAY-IMAGE "New" 100 LAYER-MODE-NORMAL)
(gimp-image-insert-layer image layer 0 0)
(gimp-drawable-fill layer FILL-WHITE)
(gimp-display-new image)
)
(script-fu-register
"script-fu-new-layer-white"
"<Image>/Files/Create/New layer"
"Generates a New layer"
"Pocholo"
"Pocholo"
"Feb 2020"
""
SF-ADJUSTMENT "Layer Size (px)" '(400 1200 1 10 0 SF-SLIDER)
Sat Feb 08, 2020 7:16 pm
Pocholo wrote:I'm trying to learn how to write scripts
Sat Feb 08, 2020 11:49 pm
(define (script-fu-new-layer-white size)
(let*(
(image (car (gimp-image-new size size GRAY)))
(test (car (gimp-layer-new image size size GRAY-IMAGE "New" 100 LAYER-MODE-NORMAL)))
)
(gimp-image-insert-layer image test 0 0)
(gimp-drawable-fill test FILL-WHITE)
(gimp-display-new image)
)
)
(script-fu-register
"script-fu-new-layer-white"
"<Image>/File/Create/New layer..."
"Generates a New layer"
"Pocholo"
"Pocholo"
"Feb 2020"
""
SF-ADJUSTMENT "Layer Size (px)" '(400 1 1200 1 10 0 SF-SLIDER)
Sun Feb 09, 2020 1:36 am