File: label.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 (24 lines) | stat: -rw-r--r-- 590 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
# label.tcl

# A Vis5D Tcl script for testing labels
# will crash at end of loop if there are an odd number of time steps

set base "frame"
set ext ".gif"
set format VIS5D_GIF


set numtimes [ vis5d_get_numtimes $ctx ]

for {set time 1} {$time<=$numtimes} {set time [expr $time+2]} {
	vis5d_make_label $ctx 400 400 "hey hey hey"
	vis5d_set_timestep $ctx [expr $time-1]
	vis5d_draw_frame $ctx
	set name $base$time$ext
	vis5d_save_window $ctx $name $format
	vis5d_delete_label $ctx 400 400
	vis5d_set_timestep $ctx [expr $time]
	vis5d_draw_frame $ctx
	vis5d_save_window $ctx $name $format
}