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 /////////////////////////////////////////////////////
  42 #Calculate Vector Box
  43 /////////////////////////////////////////////////////
  44 /*
  45 new CalculateVectorBox vector1
  46   connect showNpoints.lstPointsX vector1.PointsX1
  47   connect showNpoints.BoxChange vector1.BoxExecute
  48 */
  49 ////////////////////////////////////////////////////
  50
  51 //Viewer NV and ShowPoints for the second image
  52
  53 new ViewerNV viewer2
  54   connect reader2.Out viewer2.In
  55   set viewer2.nTypeView "5 1 2 0"
  56
  57 new ShowNPoints showNpoints2
  58   connect reader2.Out showNpoints2.Image
  59   connect viewer2.Renderer1 showNpoints2.Renderer
  60   connect viewer2.Point showNpoints2.In
  61   connect viewer2.BoxChange showNpoints2.BoxExecute
  62   set showNpoints2.Radio 10
  63
  64 //Tab for the first image
  65
  66 new LayoutSplit tab1
  67    set tab1.Orientation H
  68    connect showNpoints.Widget tab1.Widget1
  69    connect viewer.Widget tab1.Widget2
  70
  71 //Tab for the second image
  72
  73 new LayoutSplit tab2
  74    set tab2.Orientation H
  75    connect showNpoints2.Widget tab2.Widget1
  76    connect viewer2.Widget tab2.Widget2
  77
  78 //Main window
  79
  80 new LayoutTab main
  81 set main.Orientation H
  82 connect tab1.Widget main.Widget1
  83 connect tab2.Widget main.Widget2
  84
  85 exec main
  86