Re: [Gimp-user] script-fu - ERROR: bad function

2006-07-12 Thread Narushima Hironori 
Wow, I modify code by refer follow code to running script!
Thank you.

(Difficult to learn new language, but script-fu is very useful. thank you.)

[EMAIL PROTECTED] wrote:

 
 I think that what saulgoode pointed out DOES meet your trouble.
 By the error message Gimp told that the value of (print image)
 might not be a function (and never).
 My poor guess is:
 
 ***
 *** 34,40 
 )
   )
   
 ! (if ( 0 count) (
 (print image) ;; print
 (gimp-image-convert-indexed image 0 0 255 FALSE TRUE )
 (print image) ;; not print
 --- 34,40 
 )
   )
   
 ! (if ( 0 count) (begin
 (print image) ;; print
 (gimp-image-convert-indexed image 0 0 255 FALSE TRUE )
 (print image) ;; not print

___
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

[Gimp-user] script-fu - ERROR: bad function

2006-07-11 Thread saulgoode 

I think that there exists a problem with the construct of your IF statement.

The format of IF statements in Scheme is:

(if condition
  do_this_if_true
  do_this_if_false
  )

For example:

(if ( x 0)
  (print X is negative)
  (print X is positive)
  )

The do_this_if_false is optional but if you wish to do more than one  
thing, you must use a (begin ... ) statement.


(if ( x 0)
  (begin
(print X is negative)
(set! sign -1)
)
  (begin
(print X is positive)
(set! sign 1)
)
  )




___
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

Re: [Gimp-user] script-fu - ERROR: bad function

2006-07-11 Thread Narushima Hironori 
[EMAIL PROTECTED] wrote:
 I think that there exists a problem with the construct of your IF 
 statement.
 

My scheme format might be strange.
But that is not relation with error `ERROR: bad function.'

I use The GIMP for Windows (version 2.2.11) in WindowsXPSP2.
(binary founded in gimp-win.sourceforge.net)

Does an other platform not output bad function error in
(gimp-image-convert-indexed) ???

Thanks.
___
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

Re: [Gimp-user] script-fu - ERROR: bad function

2006-07-11 Thread out_of_s 
 [EMAIL PROTECTED] wrote:
  I think that there exists a problem with the construct of your IF 
  statement.
  

 My scheme format might be strange.
 But that is not relation with error `ERROR: bad function.'

I think that what saulgoode pointed out DOES meet your trouble.
By the error message Gimp told that the value of (print image)
might not be a function (and never).
My poor guess is:

***
*** 34,40 
)
  )
  
! (if ( 0 count) (
(print image) ;; print
(gimp-image-convert-indexed image 0 0 255 FALSE TRUE )
(print image) ;; not print
--- 34,40 
)
  )
  
! (if ( 0 count) (begin
(print image) ;; print
(gimp-image-convert-indexed image 0 0 255 FALSE TRUE )
(print image) ;; not print
___
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user

[Gimp-user] script-fu - ERROR: bad function

2006-07-10 Thread Narushima Hironori 
I write follow script (convert bitmap images to join layer to distribute
animated gif file)

But I'm in stagnation. Console display only `ERROR: bad function' and
other no hint.

-- 
(define (bmp_to_gifani directory transparent-color ms-per-frame)
  (let* (
  (filelist (cadr (file-glob (string-append directory \\*) 1)))
  (image (car (gimp-image-new 8 8 RGB)))
  (count 0)
)
(gimp-display-new image)
(while filelist
  (let* (
  (bmp-filepath (car filelist))
  (bmp-image (car (gimp-file-load
RUN-NONINTERACTIVE  
bmp-filepath
bmp-filepath)))
  (layer
(car (gimp-layer-new-from-drawable
  (car (gimp-image-get-active-layer bmp-image))
  image)))
)
(gimp-layer-set-offsets layer 0 0)
(gimp-image-add-layer image layer 0)
(gimp-image-resize-to-layers image)

(gimp-drawable-set-name layer
  (string-append
(number-string count)
 ( (number-string ms-per-frame) ms)(replace)))

(gimp-by-color-select layer transparent-color 2 FALSE 0 0 0 0)
(gimp-edit-cut layer)

(set! count (+ count 1))
(set! filelist (cdr filelist))
  )
)

(if ( 0 count) (
  (print image) ;; print
  (gimp-image-convert-indexed image 0 0 255 FALSE TRUE )
  (print image) ;; not print
  ;;(print image)
  ;;(set! image (car (plug-in-animationoptimize RUN-NONINTERACTIVE
image image)))
  ;;(print directory)
  ;;(set! savepath (string-append directory .gif))
  ;;(print savepath)
  ;;(file-gif-save RUN-NONINTERACTIVE image image savepath savepath
0 1 ms-per-frame 2)
  ;;(print 5)
))
  )
)
--
- local environment
  c:\foo\1.bmp, c:\foo\2.bmp, c:\foo\3.bmp

and execute in console
  (bmp_to_gifani c: '(0 0 0) 50)

to display
  ERROR: bad function.

Stop in call (gimp-image-convert-indexed). How to invoke this method and
debug this situation?

Please hint me.
___
Gimp-user mailing list
Gimp-user@lists.XCF.Berkeley.EDU
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-user