[Persil]

hello guys,

with this UDF I want to save 42 interpolation files of a case that will be rotated by a certain angle every loop. The problem is, that when rading the journal it only saves vane1.ip and does not continue the loop... is there a syntax error somewhere or any other mistake?

;
(define string0 " ..................... ROUND ")
(define string1 "vane")
(define string2 ".ip" )
;
;
;
;
;======== write interpolation
;
;
f inter zs
vane_fluid
f inter w-d
vane1.ip
yes
;
;
;
(do ((i 2 (+ i 1))) ((> i 42))
(begin

(define zahl (number->string i))

(define round (string-append string0 zahl "/42" ))
(define file (string-append string1 zahl string2))

(display "\n\n\n\n")
(display round)
(display "\n\n")

(ti-menu-load-string (format #f "
gr rot 8.571428571 0 0 0 -1 0 0
"))

(display "\n\n\n\n")
(display round)
(display "\n\n")

(ti-menu-load-string (format #f "
f inter w-d vane~d.ip yes
" i))
)
)
;

any help is appreciated, thx

[pakk]

For future reference: this is not a UDF, but a scheme script. You still asked the question at the right place .