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"
}