Greetings

        I'm sorry, my mistake! I couldn't reproduce my problem with any of
the standard Gimp distribution scripts...

        ...But something very strange happened: I've changed the interface to
use the SF-FILENAME, SF-FONT and SF-ADJUSTMENT and now it runs without any
problem except one: The parser changes my last argument '(255 255 255) to be
equal to the one before '(39 36 95)...

(script-fu-fctense 1 0 "/tmp" "nach" 
"-adobe-courier-bold-r-normal-*-*-140-*-*-m-*-iso8859-1" "90" '(39 36 95) '(255 255 
255))

        I've tested it on the "Script-Fu Console" and on the "Script-Fu
Server". I'm using Gimp 1.2.1. The server (log) receives well the command I
sent but the result is wrong with the problem I stated above.

        Can you help me with this new(?) problem?

        Thanks for your time and patience when helping a rookie like me.

-- 
     o__                Bem haja,
    _.>/ _                      NunoACHenriques
   (_) \(_)                     ~~~~~~~~~~~~~~~
                                http://students.fct.unl.pt/users/nuno/

On 25 Sep 2001, Sven Neumann wrote:

>Hi,
>
>NunoACHenriques <[EMAIL PROTECTED]> writes:
>
>>         Greetings!
>>
>>         When the run-mode of a script-fu is turned to non-interactive
>> (=TRUE or =1) I get a very strange error message:
>> ...
>> /usr/bin/gimp: Script-Fu Error while executing
>>  (script_fu_text_nach FALSE /tmp/ /tmp/ /tmp/ /tmp/ FALSE '(39 36 95) '(39 36 95))
>> ERROR: unbound variable (errobj /tmp/)
>
>it would help a lot if you could provide a complete test case for this problem.
>How are we supposed to reproduce your problem without the script you are trying
>to run? Could you please check if you can reproduce the problem with one of the
>scripts from the standard gimp distribution and report back.
>
>
>Salut, Sven
>
>
>

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                                fctense.scm
;
;                               [EMAIL PROTECTED]
;                                 2000/2001
;
;                                gimp 1.2.1
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                                   Core
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This is needed because of a strange bug in the batch mode parser:
; changed '-' to '_'
(define (script_fu_fctense
         interactive
         in_file_path
         in_text 
         in_font 
         in_font_size
         in_text_color 
         in_background_color)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                          Defines and variables
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Background and text colors (saves the original colors and set new ones)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (set! original_text_color (car (gimp-palette-get-foreground)))
  (set! original_background_color (car (gimp-palette-get-background)))
  (gimp-palette-set-foreground in_text_color)
  (gimp-palette-set-background in_background_color)
  (let* (
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Creates a new image with predefined dimensions
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         (image_width 100)
         (image_height 20)
         (image (car (gimp-image-new image_width image_height RGB)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Creates and writes text in text layer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         (text (car (gimp-text-fontname image -1 0 0 in_text 0 TRUE in_font_size 
PIXELS in_font)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Creates background layer with new image dimensions (from text)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
         (image_width (car (gimp-drawable-width text)))
         (image_height (car (gimp-drawable-height text)))
         (background (car (gimp-layer-new image image_width image_height RGB_IMAGE 
"Background" 100 NORMAL))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                                 Actions
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Disables undo (not needed)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-image-undo-disable image)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Resizes the image
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-image-resize image image_width image_height 0 0)
    
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Apply background layer
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-drawable-fill background BG-IMAGE-FILL)
    (gimp-image-add-layer image background 0)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Drop shadow and s/fx preserving the old bgcolor
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-brightness-contrast text 100 100)
    (script-fu-drop-shadow image text 2 2 4 '(0 0 0) 50 TRUE)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Resizes the text layer with the new image dimensions (after drop-shadow)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (set! image_width (car (gimp-image-width image)))
    (set! image_height (car (gimp-image-height image)))
    (gimp-layer-resize text image_width image_height 0 0)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Resizes the background layer (and maintains the bg color)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-layer-resize background image_width image_height 0 0)
    (gimp-drawable-fill background BG-IMAGE-FILL)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Prepare, convert to GIF and save "image"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (if (= interactive FALSE)
        (begin
          (set! final_layer (car (gimp-image-flatten image)))
          (gimp-convert-indexed image 0 0 256 0 0 "")
          (set! file_name (string-append in_file_path "/" in_text ".gif"))
          (file-gif-save 1 image final_layer file_name in_text TRUE 0 0 0)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Display image (cleaning the dirty flag; do not confirm the close).
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (if (= interactive TRUE)
        (begin
          (gimp-image-clean-all image)
          (gimp-display-new image)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; Background and text colors (reverse to the original colors), enables undo.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
    (gimp-palette-set-background original_background_color)
    (gimp-palette-set-foreground original_text_color)
    (gimp-image-undo-enable image)
  ) ; let*
) ; define

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
;                                Register
;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; This is needed because of a strange bug in the batch mode parser:
; changed '-' to '_'
(script-fu-register "script_fu_fctense"
                    "<Toolbox>/Xtns/Script-Fu/Logos/FCTense"
                    "Creates text with color over a background and drops a black 
shadow by 50%. Saves the file '[Path]/[Text].gif'"
                    "[EMAIL PROTECTED]"
                    "WWW FCTUNL 2000/2001"
                    "2000/2001"
                    ""
                    SF-TOGGLE      "Interactive" FALSE
                    SF-FILENAME    "Path" "/tmp"
                    SF-STRING      "Text" "text"
                    SF-FONT        "Font" 
"-adobe-courier-bold-r-normal-*-*-140-*-*-m-*-iso8859-1"
                    SF-ADJUSTMENT  "Font size (pixels)" '(90 2 1000 1 10 0 1)
                    SF-COLOR       "Text color" '(39 36 95)
                    SF-COLOR       "Background color" '(255 255 255)
) ; script-fu-register

Reply via email to