[anan12345]

Hello all, I'm trying to automate some post processing tasks but I couldn't get contour names as a list or any other useful output.

The main purpose of this scheme code is to create animations from all of the contours using a do-cycle. since I have ~15 animations/contours per case, it got boring real quick.

Currently I'm supplying the contour names manually by creating a list, If anyone has any idea how to get contour names by any means I'm all ears.
I'm attaching the current state of my scheme, define input part is where I supply the contour names manually, and the part I want to improve.

Thanks in advance

---
(define input "mp2-stat-fixed mp2-velo-fixed mp2-temp-fixed mp2-totalpres-fixed mp2-totalpres-auto mp2-temp-auto mp2-velo-auto mp2-stat-auto mp-stat-fixed mp-velo-fixed mp-temp-fixed mp-totalpres-fixed mp-totalpres-auto mp-temp-auto mp-velo-auto mp-stat-auto")
(define contours (string-split input))
(define len1 (length contours))

(do ((x 0 (+ x 1))) ((> x 2022))
(begin
(define list_item (list-ref contours x))
(ti-menu-load-string (format #f "solve anim obj create ~a-animation-~a animate-on ~a sd ./ st png view from-selected-object frequency-of time-step frequency 2 q"list_item x list_item))
(if (equal? x len1)
(begin
(define x 100) ;; break loop
))

))

[AlexanderZ]

your description is not clear for me.

you may save contours with predefined names, so you'll know them in advance