PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/All/creatools_source/creaRigidRegistration/PackRecalage/bbs/boxes/Recalage3D1PointWidget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include wx
   9 include PackRecalage
  10 include std
  11 include vtk
  12 include toolsbbtk
  13
  14 define Recalage3D1PointWidget PackRecalage
  15
  16 author "info-dev@creatis.insa-lyon.fr"
  17 description "Recalage3D 1-point Widget"
  18
  19 category "widget"
  20
  21 new Slider sdrAngleX
  22   set sdrAngleX.In "0"
  23   set sdrAngleX.Max "180"
  24   set sdrAngleX.Min "-180"
  25   set sdrAngleX.Title "Rotation angle in X Axis"
  26
  27 new Slider sdrAngleY
  28   set sdrAngleY.In "0"
  29   set sdrAngleY.Max "180"
  30   set sdrAngleY.Min "-180"
  31   set sdrAngleY.Title "Rotation angle in Y Axis"
  32
  33 new Slider sdrAngleZ
  34   set sdrAngleZ.In "0"
  35   set sdrAngleZ.Max "180"
  36   set sdrAngleZ.Min "-180"
  37   set sdrAngleZ.Title "Rotation angle in Z Axis"
  38
  39 new Slider sdrScaleX
  40   set sdrScaleX.In "100"
  41   set sdrScaleX.Max "300"
  42   set sdrScaleX.Min "10"
  43   set sdrScaleX.Title "Scale in X Axis"
  44
  45 new Slider sdrScaleY
  46   set sdrScaleY.In "100"
  47   set sdrScaleY.Max "300"
  48   set sdrScaleY.Min "10"
  49   set sdrScaleY.Title "Scale in Y Axis"
  50
  51 new Slider sdrScaleZ
  52   set sdrScaleZ.In "100"
  53   set sdrScaleZ.Max "300"
  54   set sdrScaleZ.Min "10"
  55   set sdrScaleZ.Title "Scale in Z Axis"
  56
  57 new Transform3D1PointBox transform
  58
  59 new ReSlicerBox reslicer
  60
  61 new MultipleInputs mult
  62
  63 new MultipleInputs mult2
  64
  65 new MultipleInputs mult3
  66
  67 new LayoutLine toolsLayout
  68   set toolsLayout.Orientation "v"
  69   set toolsLayout.WinTitle "Rotation"
  70
  71 new vtkImageDataPointerRelay Box22
  72
  73 new vtkImageDataPointerRelay Box23
  74
  75 new LayoutTab Box32
  76
  77 new LayoutLine Box33
  78   set Box33.WinTitle "Scale"
  79
  80 new Slider TranslateZ
  81   set TranslateZ.Max "1000"
  82   set TranslateZ.Min "-1000"
  83   set TranslateZ.ReactiveOnTrack "true"
  84
  85 new Slider TranslateY
  86   set TranslateY.Max "1000"
  87   set TranslateY.Min "-1000"
  88   set TranslateY.ReactiveOnTrack "true"
  89
  90 new Slider TranslateX
  91   set TranslateX.Max "1000"
  92   set TranslateX.Min "-1000"
  93   set TranslateX.ReactiveOnTrack "true"
  94
  95 new LayoutLine Box37
  96   set Box37.WinTitle "Translate"
  97
  98 new LayoutLine Box40
  99   set Box40.WinTitle "Options"
 100
 101 new SaveMHD-Button Box41
 102
 103 new CommandButton Box42
 104   set Box42.Label "Same Matrix"
 105   set Box42.WinTitle "Same Matrix"
 106
 107 new ConcatStrings Box43
 108   set Box43.In2 " "
 109   set Box43.In4 " "
 110
 111 new CheckBox Box44
 112   set Box44.In "true"
 113   set Box44.ReactiveOnKeystroke "true"
 114   set Box44.Title "Reactive"
 115
 116 new ConcatStrings Box45
 117
 118 new ConcatStrings Box46
 119
 120 new VectorRescaleSlope Box47
 121   set Box47.A "0.5"
 122
 123 new ImageVtkProperties Box48
 124
 125 new GetVectorDoubleElement Box49
 126   set Box49.I "0"
 127   set Box49.In "0"
 128
 129 new GetVectorDoubleElement Box50
 130   set Box50.I "1"
 131   set Box50.In "0"
 132
 133 new GetVectorDoubleElement Box51
 134   set Box51.I "2"
 135   set Box51.In "0"
 136
 137
 138 connect sdrAngleX.Out transform.AngleX
 139 connect sdrAngleY.Out transform.AngleY
 140 connect sdrAngleZ.Out transform.AngleZ
 141 connect sdrScaleX.Out transform.ScaleX
 142 connect sdrScaleY.Out transform.ScaleY
 143 connect sdrScaleZ.Out transform.ScaleZ
 144 connect transform.Out reslicer.Transform
 145 connect sdrAngleX.BoxChange mult.In3
 146 connect sdrAngleY.BoxChange mult.In4
 147 connect sdrAngleZ.BoxChange mult.In5
 148 connect sdrScaleX.BoxChange mult2.In1
 149 connect sdrScaleY.BoxChange mult2.In2
 150 connect sdrScaleZ.BoxChange mult2.In3
 151 connect mult.BoxChange mult3.In1
 152 connect mult2.BoxChange mult3.In2
 153 connect mult3.BoxChange transform.BoxExecute
 154 connect mult3.BoxChange reslicer.BoxExecute
 155 connect sdrAngleX.Widget toolsLayout.Widget1
 156 connect sdrAngleY.Widget toolsLayout.Widget2
 157 connect sdrAngleZ.Widget toolsLayout.Widget3
 158 connect Box22.Out reslicer.In
 159 connect sdrScaleX.Widget Box33.Widget1
 160 connect sdrScaleY.Widget Box33.Widget2
 161 connect sdrScaleZ.Widget Box33.Widget3
 162 connect toolsLayout.Widget Box32.Widget1
 163 connect TranslateX.Widget Box37.Widget1
 164 connect TranslateY.Widget Box37.Widget2
 165 connect TranslateZ.Widget Box37.Widget3
 166 connect Box40.Widget Box32.Widget4
 167 connect Box41.Widget Box40.Widget1
 168 connect Box42.Widget Box40.Widget2
 169 connect reslicer.Out Box41.In
 170 connect Box37.Widget Box32.Widget2
 171 connect Box33.Widget Box32.Widget3
 172 connect TranslateX.Out Box43.In1
 173 connect TranslateY.Out Box43.In3
 174 connect TranslateZ.Out Box43.In5
 175 connect Box43.Out transform.CenterPoint
 176 connect TranslateX.BoxChange mult2.In4
 177 connect TranslateY.BoxChange mult2.In5
 178 connect TranslateZ.BoxChange mult2.In6
 179 connect Box44.Out TranslateX.ReactiveOnTrack
 180 connect Box44.Out TranslateY.ReactiveOnTrack
 181 connect Box44.Out TranslateZ.ReactiveOnTrack
 182 connect Box44.Out sdrScaleX.ReactiveOnTrack
 183 connect Box44.Out sdrScaleY.ReactiveOnTrack
 184 connect Box44.Out sdrScaleZ.ReactiveOnTrack
 185 connect Box44.Out sdrAngleX.ReactiveOnTrack
 186 connect Box44.Out sdrAngleY.ReactiveOnTrack
 187 connect Box44.Out sdrAngleZ.ReactiveOnTrack
 188 connect Box44.Widget Box40.Widget3
 189 connect Box47.Out Box46.In1
 190 connect Box46.Out reslicer.Origin
 191 connect Box48.Size Box45.In1
 192 connect Box45.Out Box47.In
 193 connect Box47.Out Box49.In
 194 connect Box49.Out TranslateX.In
 195 connect Box47.Out Box50.In
 196 connect Box47.Out Box51.In
 197 connect Box50.Out TranslateY.In
 198 connect Box51.Out TranslateZ.In
 199 connect Box22.Out Box48.In
 200
 201 # Complex input ports
 202 input Image1 Box22.In " "
 203 input Image2 Box23.In " "
 204
 205 # Complex output ports
 206 output Out reslicer.Out " "
 207 output Widget Box32.Widget " "
 208 output BoxChange mult3.BoxChange " "
 209
 210
 211 endefine