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 LayoutTab Box32
  80
  81 new LayoutLine Box33
  82   set Box33.WinTitle "Scale"
  83
  84 new Slider TranslateZ
  85   set TranslateZ.ChangeResolution "true"
  86   set TranslateZ.Max "1000"
  87   set TranslateZ.Min "-1000"
  88   set TranslateZ.ReactiveOnTrack "true"
  89   set TranslateZ.Title "Translate Y Axis"
  90
  91 new Slider TranslateY
  92   set TranslateY.ChangeResolution "true"
  93   set TranslateY.Max "1000"
  94   set TranslateY.Min "-1000"
  95   set TranslateY.ReactiveOnTrack "true"
  96   set TranslateY.Title "Translate Y Axis"
  97
  98 new Slider TranslateX
  99   set TranslateX.ChangeResolution "true"
 100   set TranslateX.Max "1000"
 101   set TranslateX.Min "-1000"
 102   set TranslateX.ReactiveOnTrack "true"
 103   set TranslateX.Title "Translate X Axis"
 104
 105 new LayoutLine Box37
 106   set Box37.WinTitle "Translate"
 107
 108 new LayoutLine Box40
 109   set Box40.WinTitle "Options"
 110
 111 new SaveMHD-Button Box41
 112
 113 new CommandButton Box42
 114   set Box42.Label "Same Matrix"
 115   set Box42.WinTitle "Same Matrix"
 116
 117 new ConcatStrings Box43
 118   set Box43.In2 " "
 119   set Box43.In4 " "
 120
 121 new CheckBox Box44
 122   set Box44.In "true"
 123   set Box44.ReactiveOnKeystroke "true"
 124   set Box44.Title "Reactive"
 125
 126 new ConcatStrings Box46
 127
 128 new GetVectorDoubleElement Box49
 129   set Box49.I "0"
 130   set Box49.In "0"
 131
 132 new GetVectorDoubleElement Box50
 133   set Box50.I "1"
 134   set Box50.In "0"
 135
 136 new GetVectorDoubleElement Box51
 137   set Box51.I "2"
 138   set Box51.In "0"
 139
 140 new Add Box36
 141
 142 new Add Box38
 143
 144 new Add Box39
 145
 146 new MagicBox Box52
 147
 148 new MagicBox Box53
 149
 150
 151 connect sdrAngleX.Out transform.AngleX
 152 connect sdrAngleY.Out transform.AngleY
 153 connect sdrAngleZ.Out transform.AngleZ
 154 connect sdrScaleX.Out transform.ScaleX
 155 connect sdrScaleY.Out transform.ScaleY
 156 connect sdrScaleZ.Out transform.ScaleZ
 157 connect transform.Out reslicer.Transform
 158 connect sdrAngleX.BoxChange mult.In3
 159 connect sdrAngleY.BoxChange mult.In4
 160 connect sdrAngleZ.BoxChange mult.In5
 161 connect sdrScaleX.BoxChange mult2.In1
 162 connect sdrScaleY.BoxChange mult2.In2
 163 connect sdrScaleZ.BoxChange mult2.In3
 164 connect mult.BoxChange mult3.In1
 165 connect mult2.BoxChange mult3.In2
 166 connect mult3.BoxChange transform.BoxExecute
 167 connect mult3.BoxChange reslicer.BoxExecute
 168 connect sdrAngleX.Widget toolsLayout.Widget1
 169 connect sdrAngleY.Widget toolsLayout.Widget2
 170 connect sdrAngleZ.Widget toolsLayout.Widget3
 171 connect Box22.Out reslicer.In
 172 connect sdrScaleX.Widget Box33.Widget1
 173 connect sdrScaleY.Widget Box33.Widget2
 174 connect sdrScaleZ.Widget Box33.Widget3
 175 connect toolsLayout.Widget Box32.Widget1
 176 connect TranslateX.Widget Box37.Widget1
 177 connect TranslateY.Widget Box37.Widget2
 178 connect TranslateZ.Widget Box37.Widget3
 179 connect Box40.Widget Box32.Widget4
 180 connect Box41.Widget Box40.Widget1
 181 connect Box42.Widget Box40.Widget2
 182 connect reslicer.Out Box41.In
 183 connect Box37.Widget Box32.Widget2
 184 connect Box33.Widget Box32.Widget3
 185 connect Box43.Out transform.CenterPoint
 186 connect TranslateX.BoxChange mult2.In4
 187 connect TranslateY.BoxChange mult2.In5
 188 connect TranslateZ.BoxChange mult2.In6
 189 connect Box44.Out TranslateX.ReactiveOnTrack
 190 connect Box44.Out TranslateY.ReactiveOnTrack
 191 connect Box44.Out TranslateZ.ReactiveOnTrack
 192 connect Box44.Out sdrScaleX.ReactiveOnTrack
 193 connect Box44.Out sdrScaleY.ReactiveOnTrack
 194 connect Box44.Out sdrScaleZ.ReactiveOnTrack
 195 connect Box44.Out sdrAngleX.ReactiveOnTrack
 196 connect Box44.Out sdrAngleY.ReactiveOnTrack
 197 connect Box44.Out sdrAngleZ.ReactiveOnTrack
 198 connect Box44.Widget Box40.Widget3
 199 connect Box46.Out reslicer.Origin
 200 connect Box49.Out Box36.In1
 201 connect TranslateX.Out Box36.In2
 202 connect Box36.Out Box43.In1
 203 connect TranslateY.Out Box38.In2
 204 connect TranslateZ.Out Box39.In2
 205 connect Box38.Out Box43.In3
 206 connect Box39.Out Box43.In5
 207 connect Box50.Out Box38.In1
 208 connect Box51.Out Box39.In1
 209 connect Box52.Out Box46.In1
 210 connect Box53.Out Box49.In
 211 connect Box53.Out Box50.In
 212 connect Box53.Out Box51.In
 213
 214 # Complex input ports
 215 input Image1 Box22.In " "
 216 input CenterPoint Box52.In " "
 217 input OriginPoint Box53.In " "
 218 input BoxExecute mult3.In3 " "
 219
 220 # Complex output ports
 221 output Out reslicer.Out " "
 222 output Widget Box32.Widget " "
 223 output BoxChange mult3.BoxChange " "
 224
 225
 226 endefine