3 description "3 slicers and a 3D view"
4 author "jpr@creatis.insa-lyon.fr"
7 // To show how easy it is to add smthing
18 //include wxvtk/boxes/bbSimpleSlicer
19 //include wx/boxes/LayoutX4
22 new LayoutLine upright
24 new LayoutLine downleft
26 connect upright.Widget main.Widget1
27 connect upleft.Widget main.Widget2
28 connect downleft.Widget main.Widget3
30 // Uncomment the following lines to be able to read a 3D images stack
32 // To choose the directory
33 new DirectorySelector ds
34 // To get the image names into a vector
35 new FilesFromDirectory fd
36 // To read all the files, as a bbitk::ImagePointer
37 new ImageSeriesReader reader
40 set fd.Recursive false
41 print "Files found in $ds.Out$\n"
42 print "-Not recursive----------------------------"
43 //print " : $fd.Out$\n"
45 set reader.XSpacing 23.4
46 set reader.YSpacing 23.4
47 set reader.ZSpacing 35
49 connect fd.Out reader.FileNames
54 // Comment out to following line if you want to be able to read a 3D images stack
58 print "Image properties : $reader.Out"
63 new ImagePlanes planes
64 connect reader.Out planes.In
67 connect planes.PlaneX viewer.Obs1
68 connect planes.PlaneY viewer.Obs2
69 connect planes.PlaneZ viewer.Obs3
71 connect viewer.Widget main.Widget4
76 set viewerUL.BoxProcessMode Always
77 connect planes.ImageX viewerUL.In
78 # contains only one slice
80 connect viewerUL.Widget upleft.Widget1
82 // print "planes.BoxChange $planes.BoxChange"
83 // print "viewer.BoxChange $viewer.BoxChange"
85 connect planes.BoxChange viewerUL.BoxExecute
87 print "===============planes.ImageX $planes.ImageX"
92 set viewerUR.BoxProcessMode Always
93 connect planes.ImageY viewerUR.In
94 connect viewerUR.Widget upright.Widget1
95 # contains only one slice
97 connect planes.BoxChange viewerUR.BoxExecute
99 print "===============planes.ImageY $planes.ImageY"
103 new Viewer2D viewerDL
104 set viewerDL.BoxProcessMode Always
105 connect planes.ImageZ viewerDL.In
106 connect viewerDL.Widget downleft.Widget1
107 # contains only one slice
109 connect planes.BoxChange viewerDL.BoxExecute
111 print "===============planes.ImageZ $planes.ImageZ"
113 set main.WinTitle "demoViewing3"