My Adventures in Scheme (Anyone for a laugh?)

Steve · **Joined:** Dec 26, 2014 **Posts:** 205

jazzon wrote:

Original post updated with 2.6 version.

Thankyou

I suppose the clue was in the error message :oops:

jazzon · **Posted:** Sun Aug 23, 2015 6:55 am **(#12)**

Actually it was! I knew about the other command having a 'deprecated' tag, and you showing me the error told me just how new the command I used was! Thanks for the education

ofnuts · **Joined:** Oct 25, 2010 **Posts:** 4812

Compare:

Code: Select all

(define (script-fu-hide-all-layers image)
  (let*
    (
      (ct (- (car (gimp-image-get-layers image) ) 1) )
      (lst (cdr (gimp-image-get-layers image) ) )
      (array (car lst))
     )
     
     
  (while (> ct -1)
    (gimp-item-set-visible (aref array ct) 0)
    (set! ct (- ct 1))
  )
  (gimp-displays-flush)
 )
)

to

Code: Select all

def hide_all_layers(image):
    for layer in image.layers:
        layer.visible=False
    gimp.displays_flush()

But of course, this is fairly academic once you know about shift-click.

jazzon · **Posted:** Sun Aug 23, 2015 7:07 am **(#14)**

LOL PYTHON! My favorite!

I was trying scheme just as a thought. Most of what I do is Python.

Actually, I am playing with one of yours right now...Slinky.

MarFisk · **Joined:** Feb 28, 2014 **Posts:** 137

jazzon wrote:

Wallace: Thanks for the compliment. Actually it served two purposes now I think about it. I learned from it, and it is such a simple script that it can be a starting out point for others as it shows the four most basic things:
Variable assignment,
Looping,
defining a function,
and registering the script with GIMP.
(All right so it doesn't have conditionals...) :lol

Thanks for the template

. I did find the shift-click, but I've been meaning to try my hand at a script. I don't program in python yet, so having something clear as a guide is always nice

.

Rod · **Joined:** May 16, 2010 **Posts:** 16231

I believe the script "Layer Groups" http://registry.gimp.org/node/16563 (old but still functional), has these functions

But it is always nice to see new script writers out there. SCM scripting can be very powerful.
My suggestion is to either ask someone here if the script has been written or check gimpscripts.com or the GIMP filter registry at http://.registry.gimp.org because chances are it has been written already. Good luck with Scheme!

jazzon · **Posted:** Mon Aug 24, 2015 8:18 am **(#17)**

Rod: Do you happen to know if Layer Groups works 'properly' with GIMP 2.8's new layer groups? I would hate to muck up one with the other.

And to answer your pressing question ... -c (If the perception of light is caused by photons hitting our eyes at a speed of c, then if they were moving away from our eyes at c [relative -c] they would have achieved the speed of dark!)

Graechan · **Posted:** Mon Aug 24, 2015 7:38 pm **(#18)**

Although I could not track down It's origin this may help

Attachment:

all-visible-or-all-invisible.scm [2.04 KiB]
Downloaded 104 times

Rod · **Joined:** May 16, 2010 **Posts:** 16231

Quote:

Do you happen to know if Layer Groups works 'properly' with GIMP 2.8's new layer groups? I would hate to muck up one with the other.

It seems to work fine. You just need to define the group FOLDER name in the dialog that pops up.

Off Topic-
Dark is not moving at all. It is always there and the light only hides it from our observation.

ofnuts · **Joined:** Oct 25, 2010 **Posts:** 4812

Rod wrote:

Dark is not moving at all. It is always there and the light only hides it from our observation.

Everyone knows that lightbulbs are just sucking dark. So dark must be moving.

jazzon · **Posted:** Wed Aug 26, 2015 1:56 am **(#21)**

I think it runs from the light...ever watch it recede from the cars headlights?