PackRecalage/bbs/appli/ExampleRecalage.bbs

   1 description "Example of posbile Recalage implementation"
   2 author "jn.trillos44@uniandes.edu.co"
   3 category "demo"
   4
   5 load vtk
   6 include wxvtk
   7 load std
   8 load itk
   9 include vtk
  10 include wx
  11 load itkvtk
  12 load creaMaracasVisu
  13
  14 //File selection and file reader for the first image
  15
  16 new FileSelector openFileDialog
  17   set openFileDialog.Wildcard  "(*.mhd)|*.mhd"
  18 new MetaImageReader reader
  19    connect openFileDialog.Out reader.In
  20
  21 //File selection and file reader for the second image
  22
  23 new FileSelector openFileDialog2
  24   set openFileDialog2.Wildcard  "(*.mhd)|*.mhd"
  25 new MetaImageReader reader2
  26    connect openFileDialog2.Out reader2.In
  27
  28 //Viewer NV and ShowPoints for the first image
  29
  30 new ViewerNV viewer
  31   connect reader.Out viewer.In
  32   set viewer.nTypeView "5 1 2 0"
  33
  34 new ShowNPoints showNpoints
  35   connect reader.Out showNpoints.Image
  36   connect viewer.Renderer1 showNpoints.Renderer
  37   connect viewer.Point showNpoints.In
  38   connect viewer.BoxChange showNpoints.BoxExecute
  39   set showNpoints.Radio 10
  40
  41 //Viewer NV and ShowPoints for the second image
  42
  43 new ViewerNV viewer2
  44   connect reader2.Out viewer2.In
  45   set viewer2.nTypeView "5 1 2 0"
  46
  47 new ShowNPoints showNpoints2
  48   connect reader2.Out showNpoints2.Image
  49   connect viewer2.Renderer1 showNpoints2.Renderer
  50   connect viewer2.Point showNpoints2.In
  51   connect viewer2.BoxChange showNpoints2.BoxExecute
  52   set showNpoints2.Radio 10
  53
  54 //Tab for the first image
  55
  56 new LayoutSplit tab1
  57    set tab1.Orientation H
  58    connect showNpoints.Widget tab1.Widget1
  59    connect viewer.Widget tab1.Widget2
  60
  61 //Tab for the second image
  62
  63 new LayoutSplit tab2
  64    set tab2.Orientation H
  65    connect showNpoints2.Widget tab2.Widget1
  66    connect viewer2.Widget tab2.Widget2
  67
  68 //Main window
  69
  70 new LayoutTab main
  71 set main.Orientation H
  72 connect tab1.Widget main.Widget1
  73 connect tab2.Widget main.Widget2
  74
  75 exec main
  76