2 description "Demo of the box <a href=#SimpleSlicer>SimpleSlicer</a>."
3 author "info-dev@creatis.insa-lyon.fr"
11 include wxvtk/boxes/bbSimpleSlicer
13 new FileSelector openFileDialog
14 set openFileDialog.Message "Select input image"
16 new ImageReader reader
17 connect openFileDialog.Out reader.In
19 #Get image dimensions, ...
20 new ImageProperties mc
21 connect reader.Out mc.In
24 new GetVectorIntElement gve
25 connect mc.Size gve.In
28 #Compute the number of the 'middle' slice
30 connect gve.Out div.In1
33 new SimpleSlicer viewer
34 connect reader.Out viewer.In
36 set viewer.WinTitle "demoSimpleSlicer"
37 set viewer.WinWidth 350
38 set viewer.WinHeight 400
40 #initial slice is the middle one
41 connect div.Out viewer.Slice
42 #Slider size is the number of planes
43 connect gve.Out viewer.SliderSize