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"
64 new ImagePlanes planes
65 connect reader.Out planes.In
68 connect planes.PlaneX viewer.Obs1
69 connect planes.PlaneY viewer.Obs2
70 connect planes.PlaneZ viewer.Obs3
72 connect viewer.Widget main.Widget4
78 set viewerUL.BoxProcessMode Always
79 connect planes.ImageX viewerUL.In
80 # contains only one slice
82 connect viewerUL.Widget upleft.Widget1
84 // print "planes.BoxChange $planes.BoxChange"
85 // print "viewer.BoxChange $viewer.BoxChange"
87 connect planes.BoxChange viewerUL.BoxExecute
89 print "===============planes.ImageX $planes.ImageX"
94 set viewerUR.BoxProcessMode Always
95 connect planes.ImageY viewerUR.In
96 connect viewerUR.Widget upright.Widget1
97 # contains only one slice
99 connect planes.BoxChange viewerUR.BoxExecute
101 print "===============planes.ImageY $planes.ImageY"
105 new Viewer2D viewerDL
106 set viewerDL.BoxProcessMode Always
107 connect planes.ImageZ viewerDL.In
108 connect viewerDL.Widget downleft.Widget1
109 # contains only one slice
111 connect planes.BoxChange viewerDL.BoxExecute
113 print "===============planes.ImageZ $planes.ImageZ"
115 set main.WinTitle "demoViewing3"