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.
Plus de 15 millions de français utilisent Windows Live Messenger ! Téléchargez Messenger, c'est gratuit !
|
_______________________________________________
Gimp-developer mailing list
Gimp-developer@xxxxxxxxxxxxxxxxxxxxxx
https://lists.XCF.Berkeley.EDU/mailman/listinfo/gimp-developer
