<P>hi,</P>
<P>&nbsp;&nbsp; It cannot work well when I run the follow code. </P>
<P>&nbsp;&nbsp; please help me.</P>
<P>----------------------------------</P>
<P>package require vtk<BR>package require vtkinteraction</P>
<P># this is a tcl version of plate vibration</P>
<P>vtkRenderer ren1<BR>vtkRenderWindow renWin<BR>&nbsp;&nbsp;&nbsp; renWin AddRenderer ren1<BR>vtkRenderWindowInteractor iren<BR>&nbsp;&nbsp;&nbsp; iren SetRenderWindow renWin</P>
<P># read a vtk file<BR>#<BR>vtkPolyDataReader plate<BR>&nbsp;&nbsp;&nbsp; plate SetFileName "$VTK_DATA_ROOT/Data/plate.vtk"<BR>&nbsp;&nbsp;&nbsp; plate SetVectorsName "mode8"<BR>vtkWarpVector warp<BR>&nbsp;&nbsp;&nbsp; warp SetInput [plate GetOutput]<BR>&nbsp;&nbsp;&nbsp; warp SetScaleFactor 0.5<BR>vtkPolyDataNormals normals<BR>&nbsp;&nbsp;&nbsp; normals SetInput [warp GetPolyDataOutput]<BR>vtkVectorDot color<BR>&nbsp;&nbsp;&nbsp; color SetInput [normals GetOutput]<BR>vtkLookupTable lut<BR>&nbsp;&nbsp;&nbsp; lut SetNumberOfColors 256<BR>&nbsp;&nbsp;&nbsp; lut Build<BR>&nbsp;&nbsp;&nbsp; for {set i 0} {$i&lt;128} {incr i 1} {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval lut SetTableValue $i [expr (128.0-$i)/128.0] [expr (128.0-$i)/128.0] [expr (128.0-$i)/128.0] 1<BR>&nbsp;&nbsp;&nbsp; }<BR>&nbsp;&nbsp;&nbsp; for {set i 128} {$i&lt;256} {incr i 1} {<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; eval lut SetTableValue $i [expr ($i-128.0)/128.0] [expr ($i-128.0)/128.0] [expr ($i-128.0)/128.0] 1<BR>&nbsp;&nbsp;&nbsp; }</P>
<P>vtkDataSetMapper plateMapper<BR>&nbsp;&nbsp;&nbsp; plateMapper SetInput [color GetOutput]<BR>&nbsp;&nbsp;&nbsp; plateMapper SetLookupTable lut<BR>&nbsp;&nbsp;&nbsp; plateMapper SetScalarRange -1 1<BR>vtkActor plateActor<BR>&nbsp;&nbsp;&nbsp; plateActor SetMapper plateMapper</P>
<P>#-----rotate by Z axis----------------- <BR>#&nbsp;&nbsp; <BR>vtkDataSetMapper m21<BR>m21 SetInput [plate GetOutput]</P>
<P>vtkActor a21<BR>a21 SetMapper m21<BR>a21 RotateZ 90<BR>[a21 GetProperty] SetColor 1 0 0&nbsp; <BR>#&nbsp; <BR>#----------------------&nbsp;&nbsp; </P>
<P># Add the actors to the renderer, set the background and size<BR>#<BR>ren1 AddActor plateActor<BR>ren1 SetBackground 1 1 1<BR>renWin SetSize 250 250</P>
<P>[ren1 GetActiveCamera] SetPosition 13.3991 14.0764 9.97787 <BR>[ren1 GetActiveCamera] SetFocalPoint 1.50437 0.481517 4.52992 <BR>[ren1 GetActiveCamera] SetViewAngle 30<BR>[ren1 GetActiveCamera] SetViewUp -0.120861 0.458556 -0.880408 <BR>[ren1 GetActiveCamera] SetClippingRange 12.5724 26.8374 </P>
<P># render the image<BR>#<BR>iren AddObserver UserEvent {wm deiconify .vtkInteract}<BR>iren Initialize</P>
<P># prevent the tk window from showing up then start the event loop<BR>wm withdraw .<BR></P><p><br><hr size=1><b>Do You Yahoo!?</b><br>
<a href="http://rd.yahoo.com/mail_cn/tag/?http://cn.promo.yahoo.com/cgi-bin/udb/u">"是IT精英吗?小试牛刀获时尚大奖!"</a>