packages/wxvtk/bbs/appli/exampleSynchro2ImagesSlicer.bbs

   1 \r
   2 description "elementary image synchronization tool"\r
   3 author "info-dev 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 load creaMaracasVisu\r
  15 \r
  16 new ImagesChooserDialogBox chooser1\r
  17 new ConcatImages reader1\r
  18    connect chooser1.Out reader1.In\r
  19 \r
  20 new ImagesChooserDialogBox chooser2\r
  21 new ConcatImages reader2\r
  22    connect chooser2.Out reader2.In\r
  23 \r
  24 new ViewerNV viewer1\r
  25    set viewer1.nTypeView 0\r
  26 new ViewerNV viewer2\r
  27    set viewer2.nTypeView 0\r
  28 \r
  29 # slider is useless, since ViewerNV has no entry 'Slice Number' :-(\r
  30 new Slider       slider\r
  31 new LayoutSplit layout \r
  32 new LayoutLine layout_line\r
  33 new ImageProperties imProperties\r
  34 new GetVectorIntElement imSize\r
  35 new Add add\r
  36 \r
  37 connect reader1.Out      viewer1.In\r
  38 connect slider.BoxChange viewer1.BoxExecute\r
  39 \r
  40 connect reader2.Out       viewer2.In\r
  41 connect slider.BoxChange viewer2.BoxExecute\r
  42 \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 slider.Title "Slice number"\r
  53 set slider.ReactiveOnTrack 1\r
  54 set layout.Proportion 10\r
  55 set layout_line.Orientation H\r
  56 \r
  57 set imSize.I 2\r
  58 set add.In1 -1\r
  59 \r
  60 exec layout\r