packages/demo/bbs/appli/demoSimpleSlicer.bbs

   1
   2 description "Demo of the box <a href=#SimpleSlicer>SimpleSlicer</a>."
   3 author "info-dev@creatis.insa-lyon.fr"
   4 category "demo"
   5
   6 load vtk
   7 load itk
   8 load itkvtk
   9 load wx
  10
  11 include wxvtk/boxes/bbSimpleSlicer
  12
  13 new FileSelector openFileDialog
  14   set openFileDialog.Message "Select input image"
  15
  16 new ImageReader reader
  17   connect openFileDialog.Out reader.In
  18
  19 #Get image dimensions, ...
  20 new ImageProperties mc
  21    connect reader.Out mc.In
  22
  23 #Get number of planes
  24 new GetVectorIntElement gve
  25    connect mc.Size gve.In
  26    set gve.I 2
  27
  28 #Compute the number of the 'middle' slice
  29 new Div div
  30   connect   gve.Out div.In1
  31   set div.In2 2
  32
  33 new SimpleSlicer viewer
  34 connect   reader.Out viewer.In
  35
  36 set viewer.WinTitle "demoSimpleSlicer"
  37 set viewer.WinWidth 350
  38 set viewer.WinHeight 400
  39
  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
  44
  45 exec viewer