I am trying to create an image with a pattern backgound and a text layer

(let* ( ;;(final-layer 0)
;;(text-layer 0)
(image (car (gimp-image-new 256 256 RGB)))
(gimp-context-push);; keep-settings in variables
(new-fg (gimp-context-set-foreground '(0 0 0)))
(text-layer (car (gimp-text-fontname image -1 0 0 text 20 TRUE font-size PIXELS font)))
;; know the dimensions of the image
(image-width (car (gimp-drawable-width text-layer)))
(image-height (car (gimp-drawable-height text-layer)))
(image-x (car (gimp-drawable-offsets text-layer)))
(image-y (cadr (gimp-drawable-offsets text-layer)))

;;create pattern layer
;;(pattern-layer(car (gimp-layer-new image image-width image-height RGB pattern-layer 100 0)
;;(gimp-edit-bucket-fill pattern-layer 2 0 100 0 0 0 0)

;; keep-settings in variables
;;(old-bg (car (gimp-context-get-background)))
;;(old-fg (car (gimp-context-get-foreground)))
;;(old-deg (car (gimp-context-get-gradient)))
;;(old-pat (car (gimp-context-get-pattern)))

(bottom-layer (car (gimp-layer-new-from-drawable drawable image))) ;;background layer
(shadow-layer (car (gimp-layer-new-from-drawable drawable image))) ;;text layer for drop shadow
(text-layer-bump (car (gimp-layer-new-from-drawable drawable image))) ;;text layer for bump map
)
(gimp-edit-bucket-fill bottom-layer 2 0 100 0 0 0 0)

I have changed my mind sometimes e.g.all the ;; used

---

The original let block
(let* (
(text-layer 0)
(final-layer 0)

;; save the old settings
(old-bg (car (gimp-context-get-background)))
(old-fg (car (gimp-context-get-foreground)))
(old-deg (car (gimp-context-get-gradient)))
(old-pat (car (gimp-context-get-pattern)))

;; get the image dimensions
(image-width (car (gimp-drawable-width drawable)))
(image-height (car (gimp-drawable-height drawable)))
(image-x (car (gimp-drawable-offsets drawable)))
(image-y (cadr (gimp-drawable-offsets drawable)))

(fond-layer (car (gimp-layer-new-from-drawable pattern image)))
(shadow-layer (car (gimp-layer-new-from-drawable drawable image)))
(text-layer-bump (car (gimp-layer-new-from-drawable drawable image))) ;; text bump-map
)
The script required the user to create an image with a pattern background layer and a text layer I am trying to do this within the script before I add other changes.

Yes, you are close. The biggest problem in what you have so far is with the line:

because it is a procedure and it should not be in the binding block of your let* statement. Your code is, in effect, defining a new variable named 'gimp-context-push' which replaces the procedure (for the duration of the let*).

The following line:

is also somewhat unorthodox (though it is functionally OK). The 'gimp-context-set-foreground' procedure doesn't really return any useful value and there is no reason to keep it in a variable. You should just call the procedure after you've declared all of your variables (and after you've pushed the context).

The rest of your non-commented code is mostly satisfactory, however, the names of 'image-x', 'image-y', 'image-width', and 'image-height' seem a little confusing because they are actually the offsets and dimensions of the text layer (not the image). I am guessing that you eventually wish to resize your image to fit whatever text is created (for a particular font and size) -- so perhaps your choice of names is not so bad.

Also, it is unclear what the value of 'drawable' is when you call the procedure 'gimp-layer-new-from-drawable' to create your bottom, bump, and shadow layers, but I'd guess you intend the original to be your 'text-layer'. It should be noted that after creating each of these layers, it is necessary to add them to the image using 'gimp-image-add-layer'.

Also, you most likely should use 'gimp-drawable-fill' or 'gimp-edit-fill', rather than 'gimp-edit-bucket-fill' (especially since you don't appear to have a selection present).

Here is some sample code which may be useful.


Edited to correct misspelling of Graechan's name.

Saolgoode this I made the pattern layer in your script RGBA but something strips THE ALPHA channel when it finishes.?

Could you post your code, please?

(wrapped in code tags)


Also (just to be sure), which version of GIMP are you using?

It appears that the pattern layer is being created without an alpha channel.
Try changing the "RGB-IMAGE" to "RGBA-IMAGE".

Saulgoode here is the original code it requires an image with a text layer selected and a pattern layer with alpha channel.

These are the changes I have made so far ,my primary aim was to create the text and the background with the script and not seperatly first but it's the scripts need to initially have the text layer selected that I think is the problem


I nearly forgot wndows 7 gimp 2.6.11,

The script you posted is supposed to be complete ?

i ask because at the beginning i can't see the first block (that starting with "define" containing the definition of the variables) and at the end i can't see the last (the "register" section )

So is this from that "incandescence" script with which you were battling earlier? If so, I suggest it would be easier to re-write that script from scratch than attempting to track down all of its peccadillos.

Saulgoode its a different sript I am using this time, I have amended my previous posting to show the entire scripts this time.
I hope you and photocomix find this more usefull as the error points towards the section at the end that was left out(maybe something to do with the original requirement of having the the text layer selected before running script-fu but i can't work it out).

i really can't help for debug script fu,...well except to note that the define and the registration block seems MIA

But would be as pretend to be a mechanic only because i am able to guess why your car didn't move anymore even if the engine roar..and that by noticing that somebody stolen all the 4 wheels

The cause of that particular error is that you've commented out the two lines containing SF-IMAGE and SF-DRAWABLE in your 'script-fu-register' procedure, yet those two parameters are expected by the procedure you've defined and are registering ("script-fu-Graechan-chiseled').

I am quite willing to help you with your travails, however, at the moment I am struggling with some computer problems and thus I may be slow to respond.