[vtkusers] Could someone please test this script

[John Biddiscombe]

Dear Anyone,

I seem to be getting erratic behaviour whereby my system gives different 
results from others.

Could someone please run this script (assumes VTK_DATA set correctly)
and tell me if it causes a crash or not. (other than missing file or whatnot).

On my machine it causes a division by zero, but the same stuff in the 
regression tests seems to pass ok.

thanks

JB
-------------- next part --------------
catch {load vtktcl}
if { [catch {set VTK_TCL $env(VTK_TCL)}] != 0} { set VTK_TCL "../../examplesTcl" }
if { [catch {set VTK_DATA $env(VTK_DATA)}] != 0} { set VTK_DATA "../../../vtkdata" }


# Image pipeline
vtkTIFFReader reader
reader SetFileName "$VTK_DATA/vtk.tif"

vtkImageQuantizeRGBToIndex quant
quant SetInput [reader  GetOutput]
quant SetNumberOfColors 32
quant Update

vtkImageViewer viewer
viewer SetInput [quant GetOutput]
viewer SetZSlice 0
viewer SetColorWindow 32
viewer SetColorLevel 16
[viewer GetActor2D] SetDisplayPosition 0 0
viewer Render