bbtk_package_creaMiniTools/bbs/appli/synchro2ImageExample.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.2 BBS BlackBox Script
   3 # - /Users/davila/Creatis/All2/creatools_install/share/bbtk/bbs/creaMiniTools/appli/synchro2ImageExample.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include wxvtk
  12 include wx
  13 include itk
  14 include std
  15 include creaImageIO
  16 include creaMaracasVisu
  17
  18 author "Author ??"
  19 description "Description ??"
  20 category "<VOID>"
  21
  22 new Viewer2D viewer1
  23
  24 new Viewer2D viewer2
  25
  26 new Slider slider
  27   set slider.ReactiveOnTrack "1"
  28   set slider.Title "Slice number"
  29
  30 new LayoutSplit layout
  31   set layout.Proportion "10"
  32
  33 new LayoutLine layout_line
  34   set layout_line.Orientation "H"
  35
  36 new ImageProperties imProperties
  37
  38 new GetVectorIntElement imSize
  39   set imSize.I "2"
  40
  41 new Add add
  42   set add.In1 "-1"
  43
  44 new ImagesChooserDialogBox Box12
  45
  46 new ImagesChooserDialogBox Box13
  47
  48 new LayoutTab Box10
  49
  50 new ViewerNV Box11
  51   set Box11.nTypeView "5 0"
  52
  53 new ColorLayerImageView Box15
  54
  55 new LayoutSplit Box16
  56   set Box16.Orientation H
  57
  58
  59 connect slider.Out viewer1.Slice
  60 connect slider.BoxChange viewer1.BoxExecute
  61 connect slider.Out viewer2.Slice
  62 connect slider.BoxChange viewer2.BoxExecute
  63 connect slider.Widget layout.Widget1
  64 connect layout_line.Widget layout.Widget2
  65 connect viewer1.Widget layout_line.Widget1
  66 connect viewer2.Widget layout_line.Widget2
  67 connect imProperties.Size imSize.In
  68 connect imSize.Out add.In2
  69 connect add.Out slider.Max
  70 connect Box12.Out imProperties.In
  71 connect Box12.Out viewer1.In
  72 connect Box13.Out viewer2.In
  73 connect layout.Widget Box10.Widget1
  74 connect Box16.Widget Box10.Widget2
  75 connect Box15.Widget Box16.Widget1
  76 connect Box11.Widget Box16.Widget2
  77 connect Box13.Out Box11.In
  78 connect Box11.wxVtkBaseView2 Box15.WxVtkBaseView
  79 connect Box12.Out Box15.In
  80
  81 exec Box10