forked from Slicer/SlicerGitSVNArchive
-
Notifications
You must be signed in to change notification settings - Fork 2
/
testFiducial.tcl
31 lines (22 loc) · 996 Bytes
/
testFiducial.tcl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
catch "sc Delete"
vtkMRMLScene sc
sc SetURL $::SlicerHome/share/MRML/Testing/fiducialTest.xml
sc Connect
puts "GetNumberOfNodesByClass vtkMRMLFiducialNode: [sc GetNumberOfNodesByClass vtkMRMLFiducialNode]"
puts "GetNumberOfNodesByClass vtkMRMLFiducialListNode: [sc GetNumberOfNodesByClass vtkMRMLFiducialListNode]"
set fl0 [sc GetNthNodeByClass 0 vtkMRMLFiducialListNode]
puts "Print fiducial list node 0"
puts "[$fl0 Print]"
set f0 [sc GetNthNodeByClass 0 vtkMRMLFiducialNode]
puts "Print fiducial node 0"
puts "[$f0 Print]"
set f1 [sc GetNthNodeByClass 1 vtkMRMLFiducialNode]
puts "Print fiducial node 1"
puts "[$f1 Print]"
set f2 [sc GetNthNodeByClass 2 vtkMRMLFiducialNode]
puts "Print fiducial node 2"
puts "[$f2 Print]"
puts "GetNumberOfFiducialNodes [$fl0 GetNumberOfFiducialNodes]"
puts "GetNthFiducialNode 0: [[$fl0 GetNthFiducialNode 0] Print]"
puts "GetNthFiducialNode 1: [[$fl0 GetNthFiducialNode 1] Print]"
puts "GetNthFiducialNode 2: [[$fl0 GetNthFiducialNode 2] Print]"