[Teem-commit] teem-vtk/camAnim anim.tcl,1.1.1.1,1.2 camAnim.tcl,1.1,1.2 runiso.tcl,1.1.1.1,1.2

[Gordon K. <kin...@us...>]

Update of /cvsroot/teem/teem-vtk/camAnim
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18374

Modified Files:
	anim.tcl camAnim.tcl runiso.tcl 
Log Message:
ran undos on all tcl files

Index: anim.tcl
===================================================================
RCS file: /cvsroot/teem/teem-vtk/camAnim/anim.tcl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** anim.tcl	25 Aug 2003 06:38:45 -0000	1.1.1.1
--- anim.tcl	10 May 2004 10:47:20 -0000	1.2
***************
*** 1,329 ****
! toplevel .an
! wm title .an "Animation controls"
! 
! set magic "LIMN0000"
! set playing 0
! 
! proc affine {i x I o O} {
!   return [expr ($x - $i)*($O - $o)/($I - $i) + $o]
! }
! 
! proc lerp {w o O} {
!   return [expr $w*($O - $o) + $o]
! }
! 
! proc loadError {msg} {
!   global loadKeysFN
! 
!   tk_messageBox -parent .an -message "Couldn't load \"$loadKeysFN\":\n$msg" \
!     -icon error -title "Load Error" -type ok
! }
! 
! proc loadKeys {} {
!   global loadKeysFN
!   global magic
!   global imgSize
!   global masterKey
!   global numberFrames
!   global numberKeys
!   global whichKey
! 
!   set file [open $loadKeysFN "r"]
!   set line [gets $file]
!   if {$magic != $line} {
!     loadError "Got \"$line\" instead of magic \"$magic\""
!     close $file
!     return
!   }
! 
!   set line [gets $file]
!   if {2 != [scan $line "imgSize {%d %d}" sx sy]} {
!     loadError "Got \"$line\" instead of \"imgSize {<sizeX> <sizeY>}\""
!     close $file
!     return
!   }
!   set imgSize "$sx $sy"
!   newImgSize
! 
!   set masterKey ""
!   set key [gets $file]
!   while {[llength $key]} {
!     lappend masterKey $key
!     set key [gets $file]
!   }
!   close $file
! 
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   set whichKey 0
!   newWhichKey
! 
!   return 
! }
! proc saveKeys {} {
!   global numberFrames
!   global numberKeys
!   global masterKey
!   global saveKeysFN
!   global imgSize
!   global magic
! 
!   set file [open $saveKeysFN "w"]
!   puts $file $magic
!   puts $file "imgSize {$imgSize}"
!   foreach key $masterKey {
!     puts $file $key
!   }
!   
!   close $file
! }
! proc getCamState {} {
!   global camera
! 
!   set at [$camera GetFocalPoint]
!   set fr [$camera GetPosition]
!   set up [$camera GetViewUp]
!   set N [v3Norm [v3Sub $at $fr]]
!   set U [v3Norm [v3Cross $N $up]]
!   set V [v3Cross $N $U]
!   set mat [m3Transpose [list $U $V $N]]
!   puts "UVN: [list $U $V $N]"
!   puts "mat: $mat"
! 
!   # camHash is a convenience for generating an even-length list
!   array set camHash "cam.dn [lindex [$camera GetClippingRange] 0]"
!   array set camHash "cam.df [lindex [$camera GetClippingRange] 1]"
!   array set camHash "cam.di [$camera GetDistance]"
!   array set camHash "cam.va [$camera GetViewAngle]"
!   array set camHash "cam.at [list [$camera GetFocalPoint]]"
!   array set camHash "cam.mat [list $mat]"
!   return [array get camHash]
! }
! proc setCamState {allState} {
!   global camera
!   global viewAngle
! 
!   # allHash stores all state, we only access camera-related variables
!   array set allHash $allState
!   set dn [lindex [array get allHash "cam.dn"] 1]
!   set df [lindex [array get allHash "cam.df"] 1]
!   set di [lindex [array get allHash "cam.di"] 1]
!   set viewAngle [lindex [array get allHash "cam.va"] 1]
!   set at [lindex [array get allHash "cam.at"] 1]
!   set uvn [m3Transpose [lindex [array get allHash "cam.mat"] 1]]
!   set fr [v3Scale [expr -$dn] [lindex $uvn 2]]
!   set up [v3Scale -1 [lindex $uvn 1]]
! 
!   $camera SetClippingRange $dn $df
!   $camera SetDistance $di
!   $camera SetViewAngle $viewAngle
!   eval $camera SetFocalPoint $at
!   eval $camera SetViewUp $up
!   eval $camera SetPosition $fr
! }
! proc getState {} {
!   global isoValue
!   global relDwell
!   global keyTag
! 
!   # allHash simplifies construction of even-length list describing state
!   array set allHash [getCamState]
!   array set allHash "isoValue $isoValue"
!   array set allHash "relDwell $relDwell"
!   array set allHash "keyTag [list $keyTag]"
!   return [array get allHash]
! }
! proc setState {allState} {
!   global isoValue
!   global relDwell
!   global keyTag
! 
!   array set allHash $allState
!   set isoValue [lindex [array get allHash "isoValue"] 1]
!   set relDwell [lindex [array get allHash "relDwell"] 1]
!   set keyTag [lindex [array get allHash "keyTag"] 1]
!   setCamState $allState
! }
! proc newWhichKey {} {
!   global whichKey
!   global masterKey
!   global going
! 
!   setState [lindex $masterKey $whichKey]
!   if {$going} {
!     renWin Render
!   }
! }
! proc addKey {} {
!   global whichKey
!   global masterKey
!   global numberKeys
!   global keyTag
! 
!   set masterKey [linsert $masterKey $whichKey [lindex $masterKey $whichKey]]
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   set keyTag ""
!   incr whichKey
! }
! proc setKey {} {
!   global whichKey
!   global masterKey
! 
!   set masterKey [lreplace $masterKey $whichKey $whichKey [getState]]
! }
! proc nixKey {} {
!   global whichKey
!   global masterKey
!   global numberKeys
! 
!   puts $numberKeys
!   if {2 == $numberKeys} {
!     return
!   }
!   set masterKey [lreplace $masterKey $whichKey $whichKey]
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   newWhichKey
! }
! proc initKeys {} {
!   global whichKey
!   global masterKey
!   global numberKeys
!   global initState
! 
!   set masterKey "[list $initState] "
!   set numberKeys [llength $masterKey]
!   set whichKey 0
!   newWhichKey
! }
! proc nukeKeys {} {
!   global numberKeys
! 
!   initKeys
!   .an.whichKeyS config -to [expr $numberKeys-1]
! }
! proc loadScript {} {
!   global numberKeys
!   global loadScriptFN
! 
!   set file [open $loadScriptFN "r"]
! 
!   puts "functionality goes here"
! 
!   close $file    
! }
! 
! proc togglePlay {} {
!   global playing
!   global whichFrame
!   global numberFrames
! 
!   if {$playing} {
!     # stop: this can trigger a break in the for-loop below
!     # thanks to the "update" call
!     set playing 0
!     return
!   }
!   # else we start playing 
!   set playing 1
! #  set frameList [genFrameList]
!   .an.playB config -text "Stop"
!   # to back to beginning if you're at the very end
!   if {$whichFrame == $numberFrames-1} {
!     set whichFrame 0
!   }
!   # start at current frame
!   for {set frame $whichFrame} {$frame < $numberFrames} {incr frame} {
!     set whichFrame $frame
! #    setState [lindex $frameList $frame]
!     update
!     if {!$playing} {
!       break
!     }
!   }
!   set playing 0
!   .an.playB config -text "Play"
! }
! 
! ###
! ### initialize first two key frames with current state
! ###
! set relDwell 1.0
! set keyTag ""
! 
! set initState [getState]
! initKeys
! 
! set scaleLen 300
! set entryWidth 35
! set numberFrames 1
! 
! set row 0
! label .an.loadKeysL -text "Load Keyframes"
! set loadKeysFN ""
! entry .an.loadKeysE -textvariable loadKeysFN -width $entryWidth
! bind .an.loadKeysE <KeyRelease-Return> loadKeys
! grid .an.loadKeysL -s e -row $row -column 0
! grid .an.loadKeysE -s w -row $row -column 1 -columnspan 2
! button .an.nukeKeysB -text "Clear All" -command nukeKeys
! grid .an.nukeKeysB -row $row -column 3
! 
! incr row
! label .an.whichKeyL -text "Current Keyframe"
! scale .an.whichKeyS -len $scaleLen -from 0 -to [expr $numberKeys-1] \
!   -res 1 -ori h -var whichKey
! bind .an.whichKeyS <ButtonRelease> newWhichKey
! grid .an.whichKeyL -s e -row $row -column 0
! grid .an.whichKeyS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! label .an.keyTagL -text "Keyframe Tag"
! entry .an.keyTagE -textvariable keyTag -width $entryWidth
! bind .an.keyTagE <KeyRelease-Return> setKey
! grid .an.keyTagL -s e -row $row -column 0
! grid .an.keyTagE -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.addKeyB -text "Add" -command addKey
! button .an.setKeyB -text "Set" -command setKey
! button .an.nixKeyB -text "Delete" -command nixKey
! grid .an.addKeyB -s w -row $row -column 1
! grid .an.setKeyB -row $row -column 2
! grid .an.nixKeyB -s e -row $row -column 3
! 
! incr row
! label .an.relDwellL -text "Relative Dwell"
! scale .an.relDwellS  -len $scaleLen -from 0.0 -to 2.0 \
!   -res 0.001 -ori h -var relDwell -showvalue 0
! grid .an.relDwellL -s e -row $row -column 0
! grid .an.relDwellS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! label .an.saveKeysL -text "Save Keyframes"
! set saveKeysFN ""
! entry .an.saveKeysE -textvariable saveKeysFN -width $entryWidth
! bind .an.saveKeysE <KeyRelease-Return> saveKeys
! grid .an.saveKeysL -s e -row $row -column 0
! grid .an.saveKeysE -s w -row $row -column 1 -columnspan 3
! 
! incr row
! label .an.loadScriptL -text "Load Script"
! set loadScriptFN ""
! entry .an.loadScriptE -textvariable loadScriptFN -width $entryWidth
! bind .an.loadScriptE <KeyRelease-Return> loadScript
! grid .an.loadScriptL -s e -row $row -column 0
! grid .an.loadScriptE -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.playB -text "Play" -command togglePlay
! scale .an.playS -len $scaleLen -from 0 -to [expr $numberFrames-1] \
!    -res 1 -ori h -var whichFrame
! grid .an.playB -s e -row $row -column 0
! grid .an.playS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.die -text "Quit" -command exit
! grid .an.die -s sw -row $row -column 0
! grid rowconfigure .an $row -minsize 40
! 
--- 1,404 ----
! #
! # teem: Gordon Kindlmann's research software
! # Copyright (C) 2004, 2003, 2001, 2000, 1999, 1998 University of Utah
! #
! # This library is free software; you can redistribute it and/or
! # modify it under the terms of the GNU Lesser General Public
! # License as published by the Free Software Foundation; either
! # version 2.1 of the License, or (at your option) any later version.
! #
! # This library is distributed in the hope that it will be useful,
! # but WITHOUT ANY WARRANTY; without even the implied warranty of
! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
! # Lesser General Public License for more details.
! #
! # You should have received a copy of the GNU Lesser General Public
! # License along with this library; if not, write to the Free Software
! # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
! #
! #
! 
! toplevel .an
! wm title .an "Animation controls"
! 
! set magic "LIMN0000"
! set playing 0
! 
! proc affine {i x I o O} {
!   return [expr ($x - $i)*($O - $o)/($I - $i) + $o]
! }
! 
! proc lerp {w o O} {
!   return [expr $w*($O - $o) + $o]
! }
! 
! proc loadError {msg} {
!   global loadKeysFN
! 
!   tk_messageBox -parent .an -message "Couldn't load \"$loadKeysFN\":\n$msg" \
!     -icon error -title "Load Error" -type ok
! }
! 
! proc loadKeys {} {
!   global loadKeysFN
!   global magic
!   global imgSize
!   global masterKey
!   global numberFrames
!   global numberKeys
!   global whichKey
! 
!   set file [open $loadKeysFN "r"]
!   set line [gets $file]
!   if {$magic != $line} {
!     loadError "Got \"$line\" instead of magic \"$magic\""
!     close $file
!     return
!   }
! 
!   set line [gets $file]
!   if {2 != [scan $line "imgSize {%d %d}" sx sy]} {
!     loadError "Got \"$line\" instead of \"imgSize {<sizeX> <sizeY>}\""
!     close $file
!     return
!   }
!   set imgSize "$sx $sy"
!   newImgSize
! 
!   set masterKey ""
!   set key [gets $file]
!   while {[llength $key]} {
!     lappend masterKey $key
!     set key [gets $file]
!   }
!   close $file
! 
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   set whichKey 0
!   newWhichKey
! 
!   return 
! }
! proc saveKeys {} {
!   global numberFrames
!   global numberKeys
!   global masterKey
!   global saveKeysFN
!   global imgSize
!   global magic
! 
!   set file [open $saveKeysFN "w"]
!   puts $file $magic
!   puts $file "imgSize {$imgSize}"
!   foreach key $masterKey {
!     puts $file $key
!   }
!   
!   close $file
! }
! proc getCamState {} {
!   global camera
! 
!   # camHash is a convenience for generating an even-length list
!   array set camHash "cam.dn [lindex [$camera GetClippingRange] 0]"
!   array set camHash "cam.df [lindex [$camera GetClippingRange] 1]"
!   array set camHash "cam.di [$camera GetDistance]"
!   array set camHash "cam.va [$camera GetViewAngle]"
!   array set camHash "cam.at [list [$camera GetFocalPoint]]"
!   array set camHash "cam.fr [list [$camera GetPosition]]"
!   array set camHash "cam.up [list [$camera GetViewUp]]"
!   return [array get camHash]
! }
! proc setCamState {allState} {
!   global camera cursor cursorX cursorY cursorZ
!   global viewAngle
! 
!   # allHash stores all state, we only access camera-related variables
!   array set allHash $allState
!   set dn [lindex [array get allHash "cam.dn"] 1]
!   set df [lindex [array get allHash "cam.df"] 1]
!   set di [lindex [array get allHash "cam.di"] 1]
!   set viewAngle [lindex [array get allHash "cam.va"] 1]
!   set at [lindex [array get allHash "cam.at"] 1]
!   set fr [lindex [array get allHash "cam.fr"] 1]
!   set up [lindex [array get allHash "cam.up"] 1]
! 
!   eval $camera SetFocalPoint $at
!   eval $camera SetViewUp $up
!   eval $camera SetPosition $fr
!   $camera SetClippingRange $dn $df
!   $camera SetDistance $di
!   $camera SetViewAngle $viewAngle
!   set cursor $at
!   set cursorX [lindex $cursor 0]
!   set cursorY [lindex $cursor 1]
!   set cursorZ [lindex $cursor 2]
!   eval cube SetBounds [getCubeBounds]
! }
! proc getState {} {
!   global isoValue
!   global relDwell
! 
!   # allHash simplifies construction of even-length list describing state
!   array set allHash [getCamState]
!   array set allHash "isoValue $isoValue"
!   array set allHash "relDwell $relDwell"
!   return [array get allHash]
! }
! proc setState {allState} {
!   global isoValue
!   global relDwell
! 
!   array set allHash $allState
!   setCamState $allState
!   set isoValue [lindex [array get allHash "isoValue"] 1]
!   newIsoValue
!   set relDwell [lindex [array get allHash "relDwell"] 1]
! }
! proc newWhichKey {} {
!   global whichKey
!   global masterKey
! 
!   setState [lindex $masterKey $whichKey]
!   render
! }
! proc addKey {} {
!   global whichKey
!   global masterKey
!   global numberKeys
! 
!   set masterKey [linsert $masterKey $whichKey [lindex $masterKey $whichKey]]
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   incr whichKey
! }
! proc setKey {} {
!   global whichKey
!   global masterKey
! 
!   set masterKey [lreplace $masterKey $whichKey $whichKey [getState]]
! }
! proc nixKey {} {
!   global whichKey
!   global masterKey
!   global numberKeys
! 
!   puts $numberKeys
!   if {2 == $numberKeys} {
!     return
!   }
!   set masterKey [lreplace $masterKey $whichKey $whichKey]
!   set numberKeys [llength $masterKey]
!   .an.whichKeyS config -to [expr $numberKeys-1]
!   newWhichKey
! }
! proc initKeys {} {
!   global whichKey
!   global masterKey
!   global numberKeys
!   global initState
! 
!   set masterKey "[list $initState] "
!   set numberKeys [llength $masterKey]
!   set whichKey 0
!   newWhichKey
! }
! proc nukeKeys {} {
!   global numberKeys
! 
!   initKeys
!   .an.whichKeyS config -to [expr $numberKeys-1]
! }
! proc loadScript {} {
!   global numberKeys
!   global loadScriptFN
! 
!   set file [open $loadScriptFN "r"]
! 
!   puts "functionality goes here"
! 
!   close $file    
! }
! 
! proc togglePlay {} {
!   global playing
!   global whichFrame
!   global numberFrames
! 
!   puts "numberFrames = $numberFrames"
!   if {$playing} {
!     # stop: this can trigger a break in the for-loop below
!     # thanks to the "update" call
!     set playing 0
!     return
!   }
!   # else we start playing 
!   set playing 1
! #  set frameList [genFrameList]
!   .an.playB config -text "Stop"
!   # to back to beginning if you're at the very end
!   if {$whichFrame == $numberFrames-1} {
!     set whichFrame 0
!   }
!   # start at current frame
!   for {set frame $whichFrame} {$frame < $numberFrames} {incr frame} {
!     set whichFrame $frame
! #    setState [lindex $frameList $frame]
!     update
!     if {!$playing} {
!       break
!     }
!   }
!   set playing 0
!   .an.playB config -text "Play"
! }
! 
! ###
! ### initialize first two key frames with current state
! ###
! set relDwell 1.0
! 
! set initState [getState]
! initKeys
! 
! set scaleLen 300
! set entryWidth 35
! set numberFrames 1
! 
! set row 0
! label .an.loadKeysL -text "Load Keyframes"
! set loadKeysFN ""
! entry .an.loadKeysE -textvariable loadKeysFN -width $entryWidth
! bind .an.loadKeysE <KeyRelease-Return> loadKeys
! grid .an.loadKeysL -s e -row $row -column 0
! grid .an.loadKeysE -s w -row $row -column 1 -columnspan 2
! button .an.nukeKeysB -text "Clear All" -command nukeKeys
! grid .an.nukeKeysB -row $row -column 3
! 
! incr row
! label .an.whichKeyL -text "Current Keyframe"
! scale .an.whichKeyS -len $scaleLen -from 0 -to [expr $numberKeys-1] \
!   -res 1 -ori h -var whichKey
! bind .an.whichKeyS <ButtonRelease> newWhichKey
! grid .an.whichKeyL -s e -row $row -column 0
! grid .an.whichKeyS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! label .an.relDwellL -text "Relative Dwell"
! scale .an.relDwellS  -len $scaleLen -from 0.0 -to 2.0 \
!   -res 0.001 -ori h -var relDwell -showvalue 0
! grid .an.relDwellL -s e -row $row -column 0
! grid .an.relDwellS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.addKeyB -text "Add" -command addKey
! button .an.setKeyB -text "Set" -command setKey
! button .an.nixKeyB -text "Delete" -command nixKey
! grid .an.addKeyB -s w -row $row -column 1
! grid .an.setKeyB -row $row -column 2
! grid .an.nixKeyB -s e -row $row -column 3
! 
! incr row
! label .an.saveKeysL -text "Save Keyframes"
! set saveKeysFN ""
! entry .an.saveKeysE -textvariable saveKeysFN -width $entryWidth
! bind .an.saveKeysE <KeyRelease-Return> saveKeys
! grid .an.saveKeysL -s e -row $row -column 0
! grid .an.saveKeysE -s w -row $row -column 1 -columnspan 3
! 
! proc newNumberFrames {f} {
!   .an.playS config -to [expr $f-1]
! }
! 
! incr row
! label .an.numFramesL -text "Number Frames"
! scale .an.numFramesS -len $scaleLen -from 3 -to 2000 \
!   -res 1 -ori h -var numberFrames -command newNumberFrames
! grid .an.numFramesL -s e -row $row -column 0
! grid .an.numFramesS -s w -row $row -column 1 -columnspan 3
! 
! proc keyDuration {allState} {
!   
!   array set allHash $allState
!   set dwell [lindex [array get allHash "relDwell"] 1]
!   return [expr tan([affine -0.01 $dwell 2.01 0.0 3.1415926/2])]
! }
! 
! proc genTimeList {} {
!   global masterKey
! 
!   set numberKeys [llength $masterKey]
!   foreach key $masterKey {
!     lappend duras [keyDuration $key]
!   }
!   set sum 0
!   lappend _times $sum
!   for {set ki 1} {$ki < $numberKeys} {incr ki} {
!     set time [expr ([lindex $duras [expr $ki-1]] + [lindex $duras $ki])/2]
!     set sum [expr $sum + $time]
!     lappend _times $sum
!   }
!   foreach _time $_times {
!     lappend times [expr $_time/$sum]
!   }
!   return $times
! }
! 
! proc saveList {fname data} {
!   
!   set file [open $fname "w"]
!   foreach datum $data {
!     puts $file $datum
!   }
!   close $file
! }
! 
! proc genScript {} {
!   global numberFrames masterKey
!   
!   set timeList [genTimeList]
!   foreach key $masterKey {
!     array set allHash $key
!     lappend isoValueList [lindex [array get allHash "isoValue"] 1]
!     set dn [lindex [array get allHash "cam.dn"] 1]
!     set di [lindex [array get allHash "cam.di"] 1]
!     set df [lindex [array get allHash "cam.df"] 1]
!     set at [lindex [array get allHash "cam.at"] 1]
!     set fr [lindex [array get allHash "cam.fr"] 1]
!     set up [lindex [array get allHash "cam.up"] 1]
!     lappend dndidfList [list $dn $di $df]
!     lappend fratupList [concat $fr $at $up]
!   }
!   puts "isoValueList = $isoValueList"
!   puts "dndidfList = $dndidfList"
!   puts "fratupList = $fratupList"
!   
!   saveList "time.txt" $timeList
!   saveList "isovalue.txt" $isoValueList
!   saveList "dndidf.txt" $dndidfList
!   saveList "fratup.txt" $fratupList
! }
! 
! incr row
! button .an.genScript -text "Generate Script" -command genScript
! grid .an.genScript -row $row -column 1 -columnspan 3
! #label .an.loadScriptL -text "Load Script"
! #set loadScriptFN ""
! #entry .an.loadScriptE -textvariable loadScriptFN -width $entryWidth
! #bind .an.loadScriptE <KeyRelease-Return> loadScript
! #grid .an.loadScriptL -s e -row $row -column 0
! #grid .an.loadScriptE -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.playB -text "Play" -command togglePlay
! scale .an.playS -len $scaleLen -from 0 -to [expr $numberFrames-1] \
!    -res 1 -ori h -var whichFrame
! grid .an.playB -s e -row $row -column 0
! grid .an.playS -s w -row $row -column 1 -columnspan 3
! 
! incr row
! button .an.die -text "Quit" -command exit
! grid .an.die -s sw -row $row -column 0
! grid rowconfigure .an $row -minsize 40
! 

Index: camAnim.tcl
===================================================================
RCS file: /cvsroot/teem/teem-vtk/camAnim/camAnim.tcl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** camAnim.tcl	10 May 2004 10:27:09 -0000	1.1
--- camAnim.tcl	10 May 2004 10:47:20 -0000	1.2
***************
*** 1,631 ****
! #
! # teem: Gordon Kindlmann's research software
! # Copyright (C) 2003, 2001, 2000, 1999, 1998 University of Utah
! #
! # This library is free software; you can redistribute it and/or
! # modify it under the terms of the GNU Lesser General Public
! # License as published by the Free Software Foundation; either
! # version 2.1 of the License, or (at your option) any later version.
! #
! # This library is distributed in the hope that it will be useful,
[...1234 lines suppressed...]
! toggleFrame
! newIsoValue
! configureCB
! 
! wm withdraw .
! 
! set camera [ren GetActiveCamera]
! #$camera SetViewUp 0 0 -1
! #$camera SetPosition 2 7 -2
! set upVector [$camera GetViewUp]
! 
! newViewAngle blah
! ren ResetCameraClippingRange
! 
! source anim.tcl
! set going 1
! renWin Render
! newImgSize
! 
! ren ResetCameraClippingRange

Index: runiso.tcl
===================================================================
RCS file: /cvsroot/teem/teem-vtk/camAnim/runiso.tcl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** runiso.tcl	25 Aug 2003 06:38:45 -0000	1.1.1.1
--- runiso.tcl	10 May 2004 10:47:21 -0000	1.2
***************
*** 1,3 ****
! set argc 2
! set argv vol.vtk
! source isocam.tcl
--- 1,23 ----
! #
! # teem: Gordon Kindlmann's research software
! # Copyright (C) 2004, 2003, 2001, 2000, 1999, 1998 University of Utah
! #
! # This library is free software; you can redistribute it and/or
! # modify it under the terms of the GNU Lesser General Public
! # License as published by the Free Software Foundation; either
! # version 2.1 of the License, or (at your option) any later version.
! #
! # This library is distributed in the hope that it will be useful,
! # but WITHOUT ANY WARRANTY; without even the implied warranty of
! # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
! # Lesser General Public License for more details.
! #
! # You should have received a copy of the GNU Lesser General Public
! # License along with this library; if not, write to the Free Software
! # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
! #
! #
! 
! set argc 2
! set argv vol.vtk
! source camAnim.tcl