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 # (only if file name order is meaningfull)
50 # -------------------------------------------------------
52 // To choose the directory
53 new DirectorySelector ds
54 // To get the image names into a vector
55 new FilesFromDirectory fd
56 // To read all the files, as a bbitk::ImagePointer
57 new ImageSeriesReader reader
59 set fd.Recursive false
60 print "Files found in $ds.Out$\n
63 //set reader.XSpacing 23.4
64 //set reader.YSpacing 23.4
65 //set reader.ZSpacing 35
67 connect fd.Out reader.FileNames
69 //print "Image properties : $reader.Out"
74 new ImagePlanes planes
75 connect reader.Out planes.In
78 connect planes.PlaneX viewer.Obs1
79 connect planes.PlaneY viewer.Obs2
80 connect planes.PlaneZ viewer.Obs3
82 connect viewer.Widget main.Widget4
87 set viewerUL.BoxProcessMode Always
88 connect planes.ImageX viewerUL.In
89 # contains only one slice
91 connect viewerUL.Widget upleft.Widget1
93 connect planes.BoxChange viewerUL.BoxExecute
95 print "===============planes.ImageX $planes.ImageX"
100 set viewerUR.BoxProcessMode Always
101 connect planes.ImageY viewerUR.In
102 connect viewerUR.Widget upright.Widget1
103 # contains only one slice
105 connect planes.BoxChange viewerUR.BoxExecute
107 print "===============planes.ImageY $planes.ImageY"
111 new Viewer2D viewerDL
112 set viewerDL.BoxProcessMode Always
113 connect planes.ImageZ viewerDL.In
114 connect viewerDL.Widget downleft.Widget1
115 # contains only one slice
117 connect planes.BoxChange viewerDL.BoxExecute
119 print "===============planes.ImageZ $planes.ImageZ"
121 set main.WinTitle "demoViewing3"