# atob.tcl
# by Wolfram Volpi 4/23/99
# ASCII TO BINARY 
# This program will convert ascii files to binary files.  
# But first you should check four lines in this source code:
# 1) Is type for "reader" correct for the file you are converting?
# 2) Is the input file name correct (reader SetFileName "???.vtk")?
# 3) Is type for "binWriter" correct for the file you are converting to?
# 4) Is the outputfile name correct (binWriter SetFileName "???.vtk")?

catch {load vtktcl}
# create pipeline
# reader UG179
# writer UG180

vtkStructuredPointsReader reader
    reader SetFileName "carotidAscii.vtk"

#vtkPolyDataWriter binWriter
vtkStructuredPointsWriter binWriter
	binWriter SetInput [reader GetOutput]
	binWriter SetFileName "carotid.vtk"
	binWriter SetFileTypeToBinary
	binWriter Write

# prevent the tk window from showing up then start the event loop
wm withdraw .