1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
|
# This script created by the script_file_tools program
global Nv_mapLoopMode Nv_mapLoopFile
set Nv_mapLoopMode 0
set Nv_mapLoopFile ""
SendScriptLine "Nunset_cancel_func"
proc pad { x } {
while {[string length "$x"] < 5} {
set x "0$x"
}
return $x
}
# Start of file sequence code
SendScriptLineWait "load_state_aux /data/stimpy/terry/tcl/nviz.new/test.state" script_play
set mhandle3 [ReturnMapHandle surf*827869142]
for {set iloop2 0} {$iloop2 < 5} {incr iloop2} {
SendScriptLine "global NVIZ_BLANK_MAPS"
SendScriptLine "set NVIZ_BLANK_MAPS {}"
if {$iloop2 < 5} then {
if {[lsearch {} $iloop2] == -1} then {
if {[lsearch {} $iloop2] > -1} then {
SendScriptLine "lappend NVIZ_BLANK_MAPS [ExtractMapID $mhandle3]"
} else {
SendScriptLine "$mhandle3 set_att color [lindex {as20.fp@helenafp as30.fp@helenafp as60.fp@helenafp as80.fp@helenafp as90.fp@helenafp} $iloop2]"
}
}
}
# Image saving code here
if {[catch {set Frame_Num}]} then { set Frame_Num 0 }
SendScriptLine "Nsurf_draw_all"
SendScriptLine "Nvect_draw_all"
SendScriptLine "Nsite_draw_all"
SendScriptLine "Nwrite_rgb timages[pad $Frame_Num].rgb"
incr Frame_Num
after 1000
}
|
