PackRecalage/bbs/appli/ExampleRecalage.bbs

   1 description "Example of posible 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 load PackRecalage
  14
  15 //File selection and file reader for the first image
  16
  17 new FileSelector openFileDialog
  18   set openFileDialog.Wildcard  "(*.mhd)|*.mhd"
  19 new MetaImageReader reader
  20    connect openFileDialog.Out reader.In
  21
  22 //File selection and file reader for the second image
  23
  24 new FileSelector openFileDialog2
  25   set openFileDialog2.Wildcard  "(*.mhd)|*.mhd"
  26 new MetaImageReader reader2
  27    connect openFileDialog2.Out reader2.In
  28
  29 //Viewer NV and ShowPoints for the first image
  30
  31 new ViewerNV viewer
  32   connect reader.Out viewer.In
  33   set viewer.nTypeView "5"
  34
  35 new ShowNPoints showNpoints
  36   connect reader.Out showNpoints.Image
  37   connect viewer.Renderer1 showNpoints.Renderer
  38   connect viewer.Point showNpoints.In
  39   connect viewer.BoxChange showNpoints.BoxExecute
  40   set showNpoints.Radio 10
  41
  42 //Viewer NV and ShowPoints for the second image
  43
  44 new ViewerNV viewer2
  45   connect reader2.Out viewer2.In
  46   set viewer2.nTypeView "5"
  47
  48 new ShowNPoints showNpoints2
  49   connect reader2.Out showNpoints2.Image
  50   connect viewer2.Renderer1 showNpoints2.Renderer
  51   connect viewer2.Point showNpoints2.In
  52   connect viewer2.BoxChange showNpoints2.BoxExecute
  53   set showNpoints2.Radio 10
  54
  55 /////////////////////////////////////////////////////
  56 #Calculate Vector Box
  57 /////////////////////////////////////////////////////
  58
  59 new CalculateVectorBox vector1
  60   connect showNpoints.lstPointsX vector1.PointsX1
  61   connect showNpoints2.lstPointsX vector1.PointsX2
  62   connect showNpoints.lstPointsY vector1.PointsY1
  63   connect showNpoints2.lstPointsY vector1.PointsY2
  64   connect showNpoints.lstPointsZ vector1.PointsZ1
  65   connect showNpoints2.lstPointsZ vector1.PointsZ2
  66
  67 ////////////////////////////////////////////////////
  68
  69 ///////////////////////////////////////////////////
  70 #Transformation Boxes
  71 //////////////////////////////////////////////////
  72
  73 new Transform2DBox transform
  74   //connect vector1.Origin transform.CenterPoint
  75
  76   set transform.CenterPoint "0,0,0"
  77
  78   //connect vector1.OutAngle transform.Angle
  79   //connect vector1.OutScaleX transform.ScaleX
  80   //connect vector1.OutScaleY transform.ScaleY
  81   //connect vector1.OutScaleZ transform.ScaleZ
  82   //connect vector1.TransformAxis transform.Axis
  83   //set transform.3D false
  84
  85 new ReSlicerBox reslice1
  86 //  connect vector1.OriginReslicer reslice1.Origin
  87
  88   set reslice1.Origin "0,0,0"
  89
  90   connect transform.Out reslice1.Transform
  91   connect reader2.Out reslice1.In
  92
  93 //ViewerNV and ComandButton for the result image
  94
  95 new ViewerNV viewer3
  96   set viewer3.nTypeView "5"
  97   connect reslice1.Out viewer3.In
  98
  99 new CommandButton butExec
 100   //set butExec.Label "Execute"
 101
 102
 103 //Tab for the first image
 104
 105 new LayoutSplit tab1
 106    set tab1.Orientation H
 107
 108 ////////////////////
 109
 110 new LayoutSplit hello
 111   set hello.Orientation V
 112
 113   connect showNpoints.Widget hello.Widget1
 114   connect butExec.Widget hello.Widget2
 115
 116    connect hello.Widget tab1.Widget1
 117    connect viewer.Widget tab1.Widget2
 118
 119 //Tab for the second image
 120
 121 new LayoutSplit tab2
 122    set tab2.Orientation H
 123    connect showNpoints2.Widget tab2.Widget1
 124    connect viewer2.Widget tab2.Widget2
 125
 126 //Tab for the result image
 127
 128 //new LayoutSplit result
 129   //set result.Orientation H
 130   //connect butExec.Widget result.Widget1
 131   //connect viewer3.Widget result.Widget2
 132   connect butExec.BoxChange viewer3.BoxExecute
 133
 134
 135 //Main window
 136
 137 new LayoutTab main
 138 set main.Orientation H
 139 connect tab1.Widget main.Widget1
 140 connect tab2.Widget main.Widget2
 141 //connect result.Widget main.Widget3
 142
 143 exec main