Tue Apr 20, 2021 7:40 am
Tue Apr 20, 2021 8:35 am
(define image 1)
(define layer 2)
(define (script-fu-Mondrian)
(begin
(gimp-message "Und meine Function läuft" )
(mondrian-make-Canvas)
)
)
(define (mondrian-make-Canvas)
(let* (
(canvas-dx 300)
(canvas-dy 200)
)
(set! image (car (gimp-image-new canvas-dx canvas-dy RGB)))
(set! layer (car (gimp-layer-new image canvas-dx canvas-dy RGB-IMAGE "Proj1" 100 0)))
(gimp-image-add-layer image layer 0)
(gimp-display-new image)
(gimp-message (string-append "Test:" (number->string canvas-dx) "x" (number->string canvas-dy)))
(mondrian-paint-image)
)
)
(define (mondrian-paint-image)
(begin
(mondrian_paint_backgroud)
(gimp-message "Du Doof")
)
)
(define (mondrian_paint_backgroud)
(begin
(gimp-context-set-background '(0 0 122))
(gimp-drawable-fill layer FILL-BACKGROUND)
(gimp-message "tetanus here")
)
)
(script-fu-register
"script-fu-Mondrian" ;func name
"Create a Mondrian" ;menu label
"This is my first script-fu Script \
It draws a Mondrian like Image" ;description
"Thomas Lahme" ;author
"Copyright:: Its under the GPL" ;copyright notice
"19 April 2021" ;date created
"" ;image type that the script works on
SF-ADJUSTMENT "Granularity" '(50 1 1000 1 10 0 1)
)
(script-fu-menu-register "script-fu-Mondrian" "<Image>/Mondrian")
(define image 1)
(define layer 2)
Tue Apr 20, 2021 9:35 am
Tue Apr 20, 2021 11:33 am