Hi,

I've asked "script-fu" yahoo group where no-one seems to know the trouble. Can someone here tell me, please, why this script works perfectly well with Windows:MIT/GNU-Scheme and fails on Windows:Gimp2.4.4/TinyScheme ?

It should create a file (whose name is given as an argument) which looks like this :

____________ beginning of the file having 4096 lines______

0 0 0 0.8
0 1.6
0 2.4
0 3.2
0 4
0 4.8
0 5.6
0 6.4
.
.
.
0 44.8
0 45.6
0 46.4
0 47.2
0 48
0 48.8
0 49.6
0 50.4
0.8 0
0.8 0.8
0.8 1.6
0.8 2.4
0.8 3.2
0.8 4
.
.
.
...
.
.
.
50.4 42.4
50.4 43.2
50.4 44.
50.4 44.8
50.4 45.6
50.4 46.4
50.4 47.2
50.4 48.
50.4 48.8
50.4 49.6
50.4 50.4
______________end of the file_________

for the argument inPas given equal to 8.

Instead, with Gimp2.4.4, there always is an error and my file ends too soon :

_______beginning of the file having far less than 4096 lines______ 0 0
0 0.8
0 1.6
0 2.4
0 3.2
0 4
0 4.8
0 5.6
0 6.4
.
.
.
11.2 32.8
11.2 33.6
11.2 34.4
11.2 35.2
11.2 36
11.2 36.8
11.2 37.6
11.2 Error: set-output-port: needs 1 argument(s) ______________end of the file_________

My script uses 4 procedures (the same ones on Gimp as on MIT) : 1 main and 3 auxiliary procedures :

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; the construct-list procedure which increments the first number : ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (construct-list row height width pas port) (cond
((< row height)
(construct-list (+ row pas) height width pas (construct-list-col (/ row 10.0) 0 width pas port))) (else port)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; the construct-list-col procedure which increments the second number : ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (construct-list-col x col width pas port) (cond
((< col width)
(element->port x port)
(element->port (/ col 10.0) port) (newline port)
(construct-list-col x (+ col pas) width pas port)) (else port)))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;the element->port procedure which actually writes to the file ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (element->port x port) (if (number? x)
(begin
(write x port)
(write-char #\space port))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; the main procedure
;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(define (script-fu-exp-medit inFileName inPas) (define (subscript tour p)
(cond
((= tour 0)
(subscript
1
(construct-list
0 ; row
512 ;heigt
512 ;width
inPas
p)))
(else (close-output-port p)))) (subscript 0 (open-output-file inFileName)))

- On windows:Gimp2.4.4, those 4 procedures together with the call

(script-fu-exp-medit "the-name-of-a-file" 8)

produce, on the Console Script-fu TiinyScheme, the wrong file (and the set-output-port error message written inside the file) without any message neither from the console nor from Gimp.

- On Gimp2.4.4, the use of this registration :

(script-fu-register "script-fu-exp-medit" ;func name
"Export Medit" ;menu label
"Exports the current image layer as a Medit file.";description "My Name" ;author
"copyright 2008, My Name" ;copyright notice "Mars 6, 2008" ;date created
"RGB*" ;image type that the script works on SF-FILENAME "Fichier en sortie "
"C:\\gimp-2.4\\production\\remplir_Ici" ;a string variable SF-ADJUSTMENT "taille du pas" '(8 1 256 1 10 0 1) )

(script-fu-menu-register "script-fu-exp-medit" "Somewhere"
)

produces the wrong file (and the set-output-port error message written inside the file) with an error message from Gimp :

"Message Export Medit

Erreur à l'exécution de (script-fu-exp-medit "the-name-of-a-file" 8) "

- On MIT/GNU Scheme, I call :

(script-fu-exp-medit "the-name-of-a-file" 8)

and everything works fine.

Any ideas?

Thank you for reading and sorry for the long post. __________________