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 //Tab for the first image
 103
 104 new LayoutSplit tab1
 105    set tab1.Orientation H
 106
 107 ////////////////////
 108
 109 new LayoutSplit hello
 110   set hello.Orientation V
 111
 112   connect showNpoints.Widget hello.Widget1
 113   connect butExec.Widget hello.Widget2
 114
 115    connect hello.Widget tab1.Widget1
 116    connect viewer.Widget tab1.Widget2
 117
 118 //Tab for the second image
 119
 120 new LayoutSplit tab2
 121    set tab2.Orientation H
 122    connect showNpoints2.Widget tab2.Widget1
 123    connect viewer2.Widget tab2.Widget2
 124
 125 //Tab for the result image
 126
 127 //new LayoutSplit result
 128   //set result.Orientation H
 129   //connect butExec.Widget result.Widget1
 130   //connect viewer3.Widget result.Widget2
 131   connect butExec.BoxChange viewer3.BoxExecute
 132
 133
 134 //Main window
 135
 136 new LayoutTab main
 137 set main.Orientation H
 138 connect tab1.Widget main.Widget1
 139 connect tab2.Widget main.Widget2
 140 //connect result.Widget main.Widget3
 141
 142 exec main