File: test.tcl

package info (click to toggle)
vis5d 4.3-5
  • links: PTS
  • area: main
  • in suites: slink
  • size: 16,856 kB
  • ctags: 6,127
  • sloc: ansic: 66,158; fortran: 4,470; makefile: 1,683; tcl: 414; sh: 69
file content (9 lines) | stat: -rw-r--r-- 244 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
 
set numtimes 15 
set v5dfile "LAMPS.v5d"
set outfile "smallgif.xwd"

for {set time 1} {$time<=$numtimes} {set time [expr $time+1]} {
   vis5d_open_gridfile $ctx $v5dfile 1
   vis5d_draw_frame $ctx
   vis5d_save_window $ctx $outfile VIS5D_XWD
}