ReadImageData
VTKExamples/Tcl/IO/ReadImageData
Code¶
ReadImageData.tcl
package require vtk if { $argc != 1 } { puts "The command requires 1 argument: InputFileName" puts "Please try again." exit } set inputFile [lindex $argv 0] # Read the iamge data from a VTI file vtkXMLImageDataReader reader reader SetFileName $inputFile reader Update # Check for number of points set imagedata [reader GetOutput] set numPoints [$imagedata GetNumberOfPoints] if { $numPoints == 0 } { puts "Input Image has zero points." exit } else { puts "Input Image has $numPoints points" }