(define image 1)
(define layer 2)

(define (script-fu-Mondrian) ((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)
    (
    (mondrian_paint_backgroud)
    (gimp-message "Du Doof")
    )
)

(define (mondrian_paint_backgroud)
    (
    (gimp-context-set-background '(0 0 122))
    (gimp-drawable-fill layer FILL-BACKGROUND)
    (gimp-message "tetanus")
    )
)
    
    
  (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")