description "Demo of the box <a href=#SimpleSlicer>SimpleSlicer</a>."
author "info-dev@creatis.insa-lyon.fr"
category "demo"

load vtk
load itk
load itkvtk
load wx

include wxvtk/boxes/bbSimpleSlicer

new FileSelector openFileDialog 
  set openFileDialog.Message "Select input image"

new ImageReader reader
  connect openFileDialog.Out reader.In

#Get image dimensions, ...
new ImageProperties mc
   connect reader.Out mc.In
   
#Get number of planes
new GetVectorIntElement gve
   connect mc.Size gve.In
   set gve.I 2

#Compute the number of the 'middle' slice
new Div div
  connect   gve.Out div.In1
  set div.In2 2

new SimpleSlicer viewer
connect   reader.Out viewer.In

set viewer.WinTitle "demoSimpleSlicer"
set viewer.WinWidth 350
set viewer.WinHeight 400

#initial slice is the middle one
connect div.Out viewer.Slice
#Slider size is the number of planes
connect  gve.Out viewer.SliderSize

exec viewer