packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicer.bbs

   1 \r
   2 description "elementary 3D image slicer"\r
   3 author "maciej.orkisz at creatis.Insa-lyon.fr"\r
   4 category  "tool image viewer"\r
   5 \r
   6 include std\r
   7 include vtk\r
   8 include wx\r
   9 include itk\r
  10 include wxvtk\r
  11 include itkvtk\r
  12 \r
  13 load creaImageIO\r
  14 \r
  15 //new FileSelector fileDialog1\r
  16 //new ImageReader reader1\r
  17 load creaImageIO\r
  18 new ImagesChooserDialogBox chooser1\r
  19 new ConcatImages reader1\r
  20    connect chooser1.Out reader1.In\r
  21 \r
  22 //new FileSelector fileDialog2\r
  23 //new ImageReader reader2\r
  24 \r
  25 \r
  26 new Viewer2D     viewer1\r
  27 new Viewer2D     viewer2\r
  28 new Slider       slider\r
  29 new LayoutSplit layout \r
  30 new LayoutLine layout_line\r
  31 new ImageProperties imProperties\r
  32 new GetVectorIntElement imSize\r
  33 new Add add\r
  34 \r
  35 connect fileDialog1.Out   reader1.In \r
  36 connect reader1.Out       viewer1.In\r
  37 connect slider.Out       viewer1.Slice\r
  38 connect slider.BoxChange viewer1.BoxExecute\r
  39 connect fileDialog2.Out   reader2.In \r
  40 connect reader2.Out       viewer2.In\r
  41 connect slider.Out       viewer2.Slice\r
  42 connect slider.BoxChange viewer2.BoxExecute\r
  43 connect slider.Widget layout.Widget1\r
  44 connect layout_line.Widget layout.Widget2\r
  45 connect viewer1.Widget layout_line.Widget1\r
  46 connect viewer2.Widget layout_line.Widget2\r
  47 connect reader1.Out imProperties.In\r
  48 connect imProperties.Size imSize.In\r
  49 connect imSize.Out add.In2\r
  50 connect add.Out slider.Max\r
  51 \r
  52 set fileDialog1.Message "Select the first (left) MHD image file"\r
  53 set fileDialog2.Message "Select the second (right) MHD image file"\r
  54 set slider.Title "Slice number"\r
  55 set slider.ReactiveOnTrack 1\r
  56 set layout.Proportion 10\r
  57 set layout_line.Orientation H\r
  58 \r
  59 set fileDialog1.DefaultDir "."\r
  60 set fileDialog2.DefaultDir "."\r
  61 set imSize.I 2\r
  62 set add.In1 -1\r
  63 \r
  64 exec layout