A liitle Start Help with a Script-Fu Script

View unanswered posts | View active topics

Board index » Gimp Scripts and Plugins

All times are UTC - 5 hours [ DST ]

Page 1 of 1

[ 4 posts ]

Print view

Previous topic | Next topic

Author

Message

ThomasLahme

Post subject: A liitle Start Help with a Script-Fu Script

Posted: Tue Apr 20, 2021 7:40 am (#1)

GimpChat Member

Joined: Apr 20, 2021
Posts: 13

Dear Community,
I have started to write Script-Fu Scripts for GIMP.
So I just know how to do simple Stuff with this Scripts:
1. I know how to load my Scripts
2. How to register Scripts proper
3. How to do one Procedure Scripts

And new I'm at Point 4:
How to write a Script which contains
One Main Procedure
and
Some Helper Procedure

As I'm rather an Artist then a Designer or a Programmer.
I have some Stuff which will be better done with Recursive-ty
So I need a Way to make Sub-Procedures.

But my Problem is that all may try's to write such things are failed.
I can write Sub-Procedures, and they can been executed.
But when the Program go future / go back in the caller
I will earn a "Illegal Function" call Error.

So can anybody help me to get this proper too.

In hope of Help

Thomas Lahme
CreCo

P.S.: In the Attachment the Script which I will try to get proper

Attachments:

MyFirstModrian.scm [1.51 KiB]
Downloaded 133 times

Top

paynekj

Post subject: Re: A liitle Start Help with a Script-Fu Script

Posted: Tue Apr 20, 2021 8:35 am (#2)

Script Coder

Joined: Jun 22, 2010
Posts: 1171
Location: Here and there

Try this:

Code: Select all

(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")

Without the begin the return from your help functions is being treated as a command to run.

Be warned, doing this:

Code: Select all

(define image 1)
(define layer 2)

Will define image and layer for ALL scripts and might break other scripts.

Top

ThomasLahme

Post subject: Re: A liitle Start Help with a Script-Fu Script

Posted: Tue Apr 20, 2021 9:35 am (#3)

GimpChat Member

Joined: Apr 20, 2021
Posts: 13

Thanks a lot paynekj.
Just the Script Runs without that Error ...
... but you have right that a Global-Variable is a Dangerous Entity

A very Thankful
Thomas Lahme

Top

ThomasLahme

Post subject: Re: A liitle Start Help with a Script-Fu Script

Posted: Tue Apr 20, 2021 11:33 am (#4)

GimpChat Member

Joined: Apr 20, 2021
Posts: 13

Against I will express my best regards
New My Script runs very successfully.
And this was my first Script in GIMP Script-Fu

I wounder that it gives so a nice Program
With so a helpful Community

AWE :geek

Top

Page 1 of 1

[ 4 posts ]

Board index » Gimp Scripts and Plugins

All times are UTC - 5 hours [ DST ]