<table cellspacing="0" cellpadding="0" border="0" ><tr><td valign="top" style="font: inherit;">Hello,<br><br>I programmed this procedure to solve it. <br><br>proc UpdateViewFly {x y z vx vy vz} {<br>&nbsp;&nbsp;&nbsp; global renWin<br>&nbsp;&nbsp;&nbsp; set camera [ren1 GetActiveCamera]<br>&nbsp;&nbsp;&nbsp; set position2 [$camera GetPosition ]<br>&nbsp;&nbsp;&nbsp; puts $position2<br>&nbsp;&nbsp; set xi [lindex $position2 0]<br>&nbsp;&nbsp; set yi [lindex $position2 1]<br>&nbsp;&nbsp; set zi [lindex $position2 2]<br>&nbsp;&nbsp; set dx [ expr ($x - $xi)/200 ]<br>&nbsp;&nbsp; set dy [ expr ($y - $yi)/200 ]<br>&nbsp;&nbsp; set dz [ expr ($z - $zi)/200 ]<br><br>&nbsp;&nbsp;&nbsp; set position2 [$camera GetViewUp ]<br>&nbsp;&nbsp;&nbsp; puts $position2<br>&nbsp;&nbsp; set vxi [lindex $position2 0]<br>&nbsp;&nbsp; set vyi [lindex $position2 1]<br>&nbsp;&nbsp; set vzi [lindex $position2 2]<br>&nbsp;&nbsp; set dvx [ expr ($vx - $vxi)/200 ]<br>&nbsp;&nbsp; set
 dvy [ expr ($vy - $vyi)/200 ]<br>&nbsp;&nbsp; set dvz [ expr ($vz - $vzi)/200 ]<br>for {set i 0} {$i &lt; 201} {incr i} {<br>&nbsp;&nbsp; after 20<br>&nbsp;&nbsp; # render the image<br>&nbsp;&nbsp; $renWin Render<br>&nbsp;&nbsp; set xf [ expr ($xi + $dx*$i) ]<br>&nbsp;&nbsp; set yf [ expr ($yi + $dy*$i) ]<br>&nbsp;&nbsp; set zf [ expr ($zi + $dz*$i) ]<br>&nbsp;&nbsp; $camera SetPosition $xf $yf $zf<br>&nbsp;&nbsp; set xvf [ expr ($vxi + $dvx*$i) ]<br>&nbsp;&nbsp; set yvf [ expr ($vyi + $dvy*$i) ]<br>&nbsp;&nbsp; set zvf [ expr ($vzi + $dvz*$i) ]<br>&nbsp;&nbsp; $camera SetViewUp $xvf $yvf $zvf<br>&nbsp;&nbsp; ren1 ResetCamera<br>}<br><br>}<br></td></tr></table><br>