1package require vtk 2package require vtkinteraction 3 4vtkSphereSource sphere 5 6vtkElevationFilter elevation 7elevation SetInputConnection [sphere GetOutputPort] 8elevation SetLowPoint -1 0 0 9elevation SetHighPoint 1 0 0 10 11vtkPointDataToCellData p2c 12p2c SetInputConnection [elevation GetOutputPort] 13 14vtkStripper stripper 15stripper SetInputConnection [p2c GetOutputPort] 16stripper PassCellDataAsFieldDataOn 17 18vtkPolyDataMapper sphereMapper 19sphereMapper SetInputConnection [stripper GetOutputPort] 20sphereMapper SelectColorArray "Elevation" 21sphereMapper SetColorModeToMapScalars 22sphereMapper SetScalarModeToUseFieldData 23sphereMapper SetScalarRange 0.28 0.72 24 25vtkActor sphereActor 26sphereActor SetMapper sphereMapper 27#interpolation must be set to flat for cell colors to work 28#for triangle strips. 29[sphereActor GetProperty] SetInterpolationToFlat 30 31vtkRenderer ren1 32ren1 AddActor sphereActor 33 34vtkRenderWindow renWin 35renWin AddRenderer ren1 36renWin SetSize 200 200 37 38vtkRenderWindowInteractor iren 39iren SetRenderWindow renWin 40 41iren AddObserver UserEvent {wm deiconify .vtkInteract} 42renWin Render 43wm withdraw . 44