1 description "3 slicers and a 3D view"
2 author "jpr@creatis.insa-lyon.fr"
5 // To show how easy it is to add smthing
6 // =====================================
18 new LayoutLine upright
20 new LayoutLine downleft
22 connect upright.Widget main.Widget1
23 connect upleft.Widget main.Widget2
24 connect downleft.Widget main.Widget3
28 #include vtk/boxes/bbLoadHola
31 # uncomment next lines to have a file selector
32 # --------------------------------------------
33 #new FileSelector openFileDialog
34 #new ImageReader reader
35 # connect openFileDialog.Out reader.In
37 # uncomment next lines to use Gimmick
38 # -----------------------------------
42 # uncomment next lines to Read a MHD file (and nothing else !)
43 # ------------------------------------------------------------
44 #new FileSelector openFileDialog
45 #new MetaImageReader reader
46 # connect openFileDialog.Out reader.In
48 # uncomment the following lines to read a 3D images stack
49 # -------------------------------------------------------
50 // To choose the directory
51 #new DirectorySelector ds
52 // To get the image names into a vector
53 #new FilesFromDirectory fd
54 // To read all the files, as a bbitk::ImagePointer
55 #new ImageSeriesReader reader
57 set fd.Recursive false
58 print "Files found in $ds.Out$\n"
59 print "-Not recursive----------------------------"
60 //print " : $fd.Out$\n"
62 set reader.XSpacing 23.4
63 set reader.YSpacing 23.4
64 set reader.ZSpacing 35
66 connect fd.Out reader.FileNames
68 //print "Image properties : $reader.Out"
73 new ImagePlanes planes
74 connect reader.Out planes.In
77 connect planes.PlaneX viewer.Obs1
78 connect planes.PlaneY viewer.Obs2
79 connect planes.PlaneZ viewer.Obs3
81 connect viewer.Widget main.Widget4
86 set viewerUL.BoxProcessMode Always
87 connect planes.ImageX viewerUL.In
88 # contains only one slice
90 connect viewerUL.Widget upleft.Widget1
92 connect planes.BoxChange viewerUL.BoxExecute
94 print "===============planes.ImageX $planes.ImageX"
99 set viewerUR.BoxProcessMode Always
100 connect planes.ImageY viewerUR.In
101 connect viewerUR.Widget upright.Widget1
102 # contains only one slice
104 connect planes.BoxChange viewerUR.BoxExecute
106 print "===============planes.ImageY $planes.ImageY"
110 new Viewer2D viewerDL
111 set viewerDL.BoxProcessMode Always
112 connect planes.ImageZ viewerDL.In
113 connect viewerDL.Widget downleft.Widget1
114 # contains only one slice
116 connect planes.BoxChange viewerDL.BoxExecute
118 print "===============planes.ImageZ $planes.ImageZ"
120 set main.WinTitle "demoViewing3"