File: simplePipeline.tcl.in

package info (click to toggle)
insighttoolkit4 4.13.3withdata-dfsg1-4
  • links: PTS, VCS
  • area: main
  • in suites: bullseye
  • size: 489,260 kB
  • sloc: cpp: 557,342; ansic: 146,850; fortran: 34,788; python: 16,572; sh: 2,187; lisp: 2,070; tcl: 993; java: 362; perl: 200; makefile: 129; csh: 81; pascal: 69; xml: 19; ruby: 10
file content (17 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (8) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#
#  a very simple pipeline
#
package require InsightToolkit

set reader [ itkImageFileReaderI@TCL_TEST_PIXEL_TYPE@@TCL_TEST_IMAGE_DIMENSION@_New ]
set writer [ itkImageFileWriterI@TCL_TEST_PIXEL_TYPE@@TCL_TEST_IMAGE_DIMENSION@_New ]

$writer     SetInput [ $reader  GetOutput ]

$reader SetFileName [lindex $argv 0]
$writer SetFileName [lindex $argv 1]

$writer Update


exit