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.ChangeResolution "true"
  23   set sdrAngleX.In "0"
  24   set sdrAngleX.Max "180"
  25   set sdrAngleX.Min "-180"
  26   set sdrAngleX.Title "Rotation angle in X Axis"
  27
  28 new Slider sdrAngleY
  29   set sdrAngleY.ChangeResolution "true"
  30   set sdrAngleY.In "0"
  31   set sdrAngleY.Max "180"
  32   set sdrAngleY.Min "-180"
  33   set sdrAngleY.Title "Rotation angle in Y Axis"
  34
  35 new Slider sdrAngleZ
  36   set sdrAngleZ.ChangeResolution "true"
  37   set sdrAngleZ.In "0"
  38   set sdrAngleZ.Max "180"
  39   set sdrAngleZ.Min "-180"
  40   set sdrAngleZ.Title "Rotation angle in Z Axis"
  41
  42 new Slider sdrScaleX
  43   set sdrScaleX.ChangeResolution "true"
  44   set sdrScaleX.In "100"
  45   set sdrScaleX.Max "300"
  46   set sdrScaleX.Min "10"
  47   set sdrScaleX.Title "Scale in X Axis"
  48
  49 new Slider sdrScaleY
  50   set sdrScaleY.ChangeResolution "true"
  51   set sdrScaleY.In "100"
  52   set sdrScaleY.Max "300"
  53   set sdrScaleY.Min "10"
  54   set sdrScaleY.Title "Scale in Y Axis"
  55
  56 new Slider sdrScaleZ
  57   set sdrScaleZ.ChangeResolution "true"
  58   set sdrScaleZ.In "100"
  59   set sdrScaleZ.Max "300"
  60   set sdrScaleZ.Min "10"
  61   set sdrScaleZ.Title "Scale in Z Axis"
  62
  63 new Transform3D1PointBox transform
  64
  65 new ReSlicerBox reslicer
  66
  67 new MultipleInputs mult
  68
  69 new MultipleInputs mult2
  70
  71 new MultipleInputs mult3
  72
  73 new LayoutLine toolsLayout
  74   set toolsLayout.Orientation "v"
  75   set toolsLayout.WinTitle "Rotation"
  76
  77 new vtkImageDataPointerRelay Box22
  78
  79 new vtkImageDataPointerRelay Box23
  80
  81 new LayoutTab Box32
  82
  83 new LayoutLine Box33
  84   set Box33.WinTitle "Scale"
  85
  86 new Slider TranslateZ
  87   set TranslateZ.ChangeResolution "true"
  88   set TranslateZ.Max "1000"
  89   set TranslateZ.Min "-1000"
  90   set TranslateZ.ReactiveOnTrack "true"
  91   set TranslateZ.Title "Translate Y Axis"
  92
  93 new Slider TranslateY
  94   set TranslateY.ChangeResolution "true"
  95   set TranslateY.Max "1000"
  96   set TranslateY.Min "-1000"
  97   set TranslateY.ReactiveOnTrack "true"
  98   set TranslateY.Title "Translate Y Axis"
  99
 100 new Slider TranslateX
 101   set TranslateX.ChangeResolution "true"
 102   set TranslateX.Max "1000"
 103   set TranslateX.Min "-1000"
 104   set TranslateX.ReactiveOnTrack "true"
 105   set TranslateX.Title "Translate X Axis"
 106
 107 new LayoutLine Box37
 108   set Box37.WinTitle "Translate"
 109
 110 new LayoutLine Box40
 111   set Box40.WinTitle "Options"
 112
 113 new SaveMHD-Button Box41
 114
 115 new CommandButton Box42
 116   set Box42.Label "Same Matrix"
 117   set Box42.WinTitle "Same Matrix"
 118
 119 new ConcatStrings Box43
 120   set Box43.In2 " "
 121   set Box43.In4 " "
 122
 123 new CheckBox Box44
 124   set Box44.In "true"
 125   set Box44.ReactiveOnKeystroke "true"
 126   set Box44.Title "Reactive"
 127
 128 new ConcatStrings Box45
 129
 130 new ConcatStrings Box46
 131
 132 new VectorRescaleSlope Box47
 133   set Box47.A "0.5"
 134
 135 new ImageVtkProperties Box48
 136
 137 new GetVectorDoubleElement Box49
 138   set Box49.I "0"
 139   set Box49.In "0"
 140
 141 new GetVectorDoubleElement Box50
 142   set Box50.I "1"
 143   set Box50.In "0"
 144
 145 new GetVectorDoubleElement Box51
 146   set Box51.I "2"
 147   set Box51.In "0"
 148
 149 new Add Box36
 150
 151 new Add Box38
 152
 153 new Add Box39
 154
 155
 156 connect sdrAngleX.Out transform.AngleX
 157 connect sdrAngleY.Out transform.AngleY
 158 connect sdrAngleZ.Out transform.AngleZ
 159 connect sdrScaleX.Out transform.ScaleX
 160 connect sdrScaleY.Out transform.ScaleY
 161 connect sdrScaleZ.Out transform.ScaleZ
 162 connect transform.Out reslicer.Transform
 163 connect sdrAngleX.BoxChange mult.In3
 164 connect sdrAngleY.BoxChange mult.In4
 165 connect sdrAngleZ.BoxChange mult.In5
 166 connect sdrScaleX.BoxChange mult2.In1
 167 connect sdrScaleY.BoxChange mult2.In2
 168 connect sdrScaleZ.BoxChange mult2.In3
 169 connect mult.BoxChange mult3.In1
 170 connect mult2.BoxChange mult3.In2
 171 connect mult3.BoxChange transform.BoxExecute
 172 connect mult3.BoxChange reslicer.BoxExecute
 173 connect sdrAngleX.Widget toolsLayout.Widget1
 174 connect sdrAngleY.Widget toolsLayout.Widget2
 175 connect sdrAngleZ.Widget toolsLayout.Widget3
 176 connect Box22.Out reslicer.In
 177 connect sdrScaleX.Widget Box33.Widget1
 178 connect sdrScaleY.Widget Box33.Widget2
 179 connect sdrScaleZ.Widget Box33.Widget3
 180 connect toolsLayout.Widget Box32.Widget1
 181 connect TranslateX.Widget Box37.Widget1
 182 connect TranslateY.Widget Box37.Widget2
 183 connect TranslateZ.Widget Box37.Widget3
 184 connect Box40.Widget Box32.Widget4
 185 connect Box41.Widget Box40.Widget1
 186 connect Box42.Widget Box40.Widget2
 187 connect reslicer.Out Box41.In
 188 connect Box37.Widget Box32.Widget2
 189 connect Box33.Widget Box32.Widget3
 190 connect Box43.Out transform.CenterPoint
 191 connect TranslateX.BoxChange mult2.In4
 192 connect TranslateY.BoxChange mult2.In5
 193 connect TranslateZ.BoxChange mult2.In6
 194 connect Box44.Out TranslateX.ReactiveOnTrack
 195 connect Box44.Out TranslateY.ReactiveOnTrack
 196 connect Box44.Out TranslateZ.ReactiveOnTrack
 197 connect Box44.Out sdrScaleX.ReactiveOnTrack
 198 connect Box44.Out sdrScaleY.ReactiveOnTrack
 199 connect Box44.Out sdrScaleZ.ReactiveOnTrack
 200 connect Box44.Out sdrAngleX.ReactiveOnTrack
 201 connect Box44.Out sdrAngleY.ReactiveOnTrack
 202 connect Box44.Out sdrAngleZ.ReactiveOnTrack
 203 connect Box44.Widget Box40.Widget3
 204 connect Box47.Out Box46.In1
 205 connect Box46.Out reslicer.Origin
 206 connect Box48.Size Box45.In1
 207 connect Box45.Out Box47.In
 208 connect Box47.Out Box49.In
 209 connect Box47.Out Box50.In
 210 connect Box47.Out Box51.In
 211 connect Box22.Out Box48.In
 212 connect Box49.Out Box36.In1
 213 connect TranslateX.Out Box36.In2
 214 connect Box36.Out Box43.In1
 215 connect TranslateY.Out Box38.In2
 216 connect TranslateZ.Out Box39.In2
 217 connect Box38.Out Box43.In3
 218 connect Box39.Out Box43.In5
 219 connect Box50.Out Box38.In1
 220 connect Box51.Out Box39.In1
 221
 222 # Complex input ports
 223 input Image1 Box22.In " "
 224 input Image2 Box23.In " "
 225
 226 # Complex output ports
 227 output Out reslicer.Out " "
 228 output Widget Box32.Widget " "
 229 output BoxChange mult3.BoxChange " "
 230
 231
 232 endefine