PackRecalage/bbs/appli/ExampleRecalage3D3Points.bbs

   1 description "Recalage3D 3-point"
   2 author "info-dev@creatis.insa-lyon.fr"
   3 category "example"
   4
   5
   6 load vtk
   7 include wxvtk
   8 load std
   9 load itk
  10 include vtk
  11 include wx
  12 load itkvtk
  13 load creaMaracasVisu
  14 load PackRecalage
  15
  16 //File selection and file reader for the first image
  17
  18 new FileSelector openFileDialog
  19   set openFileDialog.Wildcard  "(*.mhd)|*.mhd"
  20 new MetaImageReader reader
  21    connect openFileDialog.Out reader.In
  22
  23 //File selection and file reader for the second image
  24
  25 new FileSelector openFileDialog2
  26   set openFileDialog2.Wildcard  "(*.mhd)|*.mhd"
  27 new MetaImageReader reader2
  28    connect openFileDialog2.Out reader2.In
  29
  30 //Viewer NV and ShowPoints for the first image
  31
  32 new ViewerNV viewer
  33   connect reader.Out viewer.In
  34   set viewer.nTypeView "5"
  35
  36 new ShowNPoints showNpoints
  37   connect reader.Out showNpoints.Image
  38   connect viewer.Renderer1 showNpoints.Renderer
  39   connect viewer.Point showNpoints.In
  40   connect viewer.BoxChange showNpoints.BoxExecute
  41   set showNpoints.Radio 10
  42
  43 //Viewer NV and ShowPoints for the second image
  44
  45 new ViewerNV viewer2
  46   connect reader2.Out viewer2.In
  47   set viewer2.nTypeView "5"
  48
  49 new ShowNPoints showNpoints2
  50   connect reader2.Out showNpoints2.Image
  51   connect viewer2.Renderer1 showNpoints2.Renderer
  52   connect viewer2.Point showNpoints2.In
  53   connect viewer2.BoxChange showNpoints2.BoxExecute
  54   set showNpoints2.Radio 10
  55
  56 //////////////////////////////////////////
  57 #Transform Box
  58 //////////////////////////////////////////
  59
  60 new Transform3D3PointsBox transform
  61   connect showNpoints.lstPointsX transform.InX1
  62   connect showNpoints2.lstPointsX transform.InX2
  63   connect showNpoints.lstPointsY transform.InY1
  64   connect showNpoints2.lstPointsY transform.InY2
  65   connect showNpoints.lstPointsZ transform.InZ1
  66   connect showNpoints2.lstPointsZ transform.InZ2
  67
  68  connect showNpoints.lstLabels transform.Labels1
  69  connect showNpoints2.lstLabels transform.Labels2
  70
  71 new ReSlicerBox reslice1
  72
  73   set reslice1.Origin "0,0,0"
  74
  75   connect transform.Out reslice1.Transform
  76   connect reader2.Out reslice1.In
  77
  78 //ViewerNV and ComandButton for the result image
  79
  80
  81 new ViewerNV viewer3
  82   set viewer3.nTypeView "5"
  83   connect reslice1.Out viewer3.In
  84
  85 new CommandButton butExec
  86   set butExec.Label "Execute"
  87
  88 //Tab for the first image
  89
  90 new LayoutSplit tab1
  91    set tab1.Orientation H
  92
  93 ////////////////////
  94
  95 new LayoutSplit hello
  96   set hello.Orientation V
  97
  98   connect showNpoints.Widget hello.Widget1
  99   connect butExec.Widget hello.Widget2
 100
 101    connect hello.Widget tab1.Widget1
 102    connect viewer.Widget tab1.Widget2
 103
 104 //Tab for the second image
 105
 106 new LayoutSplit tab2
 107    set tab2.Orientation H
 108    connect showNpoints2.Widget tab2.Widget1
 109    connect viewer2.Widget tab2.Widget2
 110
 111 //Tab for the result image
 112
 113   connect butExec.BoxChange transform.BoxExecute
 114   connect butExec.BoxChange reslice1.BoxExecute
 115   connect butExec.BoxChange viewer3.BoxExecute
 116
 117
 118 //Main window
 119
 120 new LayoutTab main
 121 set main.Orientation H
 122 connect tab1.Widget main.Widget1
 123 connect tab2.Widget main.Widget2
 124
 125 exec main