Hi everyone.

I will often times run through a process where I

1. Duplicate a Layer
2. Set the layer to Darken only Mode
3. Propogate the layer Using the Value Propogate with More Black as the only setting.
4. Do this 6 more times, creating layers that have the dark pixels spread out one pixel each time.
5. Then I take each of the 7 layers and use the curves on them to in efect make a bevel trailing out from the original image. I use the curves and drag the left slider node up to the levels of the dividend of the whole. The math would divide the 256 by 7 to get each layers setting. Know what I mean?

Here is what I am doing:



This process is much like the Light to Height script but it uses darken only and propogates out in all directions.

Anyway if someone could show me how to make a script to do this it woud save me a lot of time. I do this often to give heightmap images a beveled edge to accomodate for a pencil shaped carving bit.

pegsli

Please try the following when you get a chance.

That works great soulgoode!

I tried it and it's great. I found that it only makes 7 steps so I changed the line
(let loop ((iterations 6) to
(let loop ((iterations 7)
and changed to histgram value I think it is to: '(32 64 96 128 160 192 224) )

Now I wonder if you could add one more thing to the script. You see if you could make it possible to changethe high value as well as the low it would make it possible for me to have a gradual taper according to the height of the edge. Now I explained before that I dragged the low value slider on the curves (left node slider on the curves dialog box) up but it would also make a better script if I could move the (top left node int the curves box to the left the same amount as the low level goes up. In other works your script in effect does this:


But I think it would be nice if it could do this:


Here's an example of what it looks like. I'm shooting for the bottom right image.


If I could work the high values at the same time as the low values it would be terrific.

pegstro

In the script, try changing the 'map' statement from:

to:


Note: even though I am using the Levels filter to adjust the brightness, the resulting curve is identical to the one attained had I used the Curves filter (it's just a little easier to code).

I copied the script into my script folder and now I don't know how to work it.

Well, the command is added as "Filters->Decor->Height Bevel per Pegleg44". As to how to use it, you will have to wait for Pegleg to explain that.

Ok, thanks Saul.

The script uses darken only mode which blends two greycale images together very well. I don't think it would work on colored images very well. You would most likeley use the script on a greyscale image with a while backround color.

Thanks for that tip soulgoode. I'll try to add that into the code and see if I can get it to work. Is there a list of code and what it does available somewhere? I'm looking at the code you wrote and see some stuff but I could use a beginers guide or something.

Thanks!

pegstro

I saved the code as a scm and put it in my scripts folder and it does show up in Gimp, I made a black cross on a transparent layer with a white background, ran alpha to selection and it ran but didn't do anything.

The script only works on the painted parts of a layer (for all intents and purposes, it is meant for layers without any transparency).

o, I didn't know that, thanks Saul

You may need to zoom in to see any difference along the edges. The way the script works is noticable only along high contrast areas between pixels. To make it more noticable you could ad more iterations in the script and then put in more numbers.

Here is the script with 31 iterations:


Alan

Here's an example of 31 iterations on some text filled with a Black to white gradient.

Of coarse I also flattend it and did an Emboss and Colorize on it too.



Pretty cool stuff!

Thanks soulgoode,

pegsly

This will launch a widget asking for iterations 0-1000 although 12 seems to be a good limit.
Just an example of how you can add a different value each time without editing the scm file all the time for iteration steps/loops.

Hi Rod

That's a good script to have the iterations available for modifications. I get these error messages though when its in the middle of changing the levels:



peglo

This is the file i use with no errors.

Saul
Great job high-bevel, I think several other scripts and plug-ins could
use multi iteration processes as well, if I knew script-fu and gimp
commands as well as you, I would change the code a little
to make a multi iteration drop shadow, and perspective shadow, at 1,
or 5 percent shade for each iteration. Maybe wrap multi iteration and
some others or, a multi iteration drop in scripts or plug-in,
template wrapper skeleton, if possible.
A multi iteration, to create pattern, texture, gradient, brush shape.
Repeat last command is only good for some things.
Sounds like a lot of work, sorry just spouting suggestions.

It's the same code that I saved as a .scm file. Is the name of .scm file important?

Or maybe since I have other files in my scripts folder it messes things up. (I made three .scm files with different iteration settings).

The original script has high input and low output numbers written in the code for changing each created layers color values. And these numbers correspond with the number of layers made. Does your script just overlook this and figure it out itself for the number of layers and or iterations in the dialog box?

Shouldn't there be some kind of thing that figures out the math for the layer high and low values to match up with the iterations to get the right bevel?

pegleg

So

(set! nb-levels (truncate nb-levels)) brings up the dialog box.

(count (- nb-levels 1) This count lets you put in your input.

(result '(0)) ) says it needs a result

(if (zero? count) this says use the count

(cdr (reverse result)) this says reverse the count for the white levels

--------------------------------------------

(let ((levels (let loop ((count (- nb-levels 1))
(result '(0)) )
(if (zero? count)
(cdr (reverse result))
(loop (- count 1)
(cons (+ (/ 256 nb-levels)
(car result) )
result ))))))
(let loop ((iterations (- nb-levels 1))
(layers (list drawable)) )

This code says figure out the iterations by the number set in the dialog.

--------------------------------------------------------------

(if (zero? iterations)
(map (lambda (layer low-output high-input)
(gimp-levels layer HISTOGRAM-VALUE 0 high-input 1.0 low-output 255) )
(cdr (reverse layers))
levels
(reverse levels) )

This tells the layers to change levels when called upon.

-----------------------------------------------------------

(let ((layer (car (gimp-layer-copy (car layers) FALSE))))
(gimp-image-insert-layer image layer 0 -1)
(gimp-image-lower-layer image layer)
(gimp-layer-set-mode layer DARKEN-ONLY-MODE)
(plug-in-vpropagate RUN-NONINTERACTIVE
image
layer
1 ; darker
15 ; all channels
1.0 ; rate 0-1
15 ; all directions
0
255 )

This creates layers and propogates them.

----------------------------------------------------------------

(loop (pred iterations) (cons layer layers)) ))))
(gimp-image-undo-group-end image)
(gimp-displays-flush)

This says go back and do the levels on the various layers the way that was figured out earlier.

--------------------------------------------------------

I'm not going to be able to jump in and start coding stuff. I'm much more interested in creating art. My son is starting to play around with code for his minecraft game. I think he'll get into it much more than me. He's 10

I'm going to play around with the all directions for the propogate and see if I can make it do this in various directions. I think there are 0 through 15 directrions to try.

Alan