packages/vtk/bbs/boxes/TransformWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - TransformWidget.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include wx
   9 include vtk
  10 include std
  11
  12 define TransformWidget vtk
  13
  14 author "Author ??"
  15 description "Description ??"
  16
  17 category "<VOID>"
  18
  19 new wx:LayoutTab Box00
  20
  21 new wx:LayoutLine Box01
  22   set Box01.WinTitle "Rotation"
  23
  24 new wx:Slider Box03
  25   set Box03.ChangeResolution "true"
  26   set Box03.Label "true"
  27   set Box03.Max "180"
  28   set Box03.Min "-180"
  29   set Box03.ReactiveOnTrack "true"
  30   set Box03.Title "Rotation X"
  31
  32 new wx:Slider Box04
  33   set Box04.ChangeResolution "true"
  34   set Box04.Label "true"
  35   set Box04.Max "180"
  36   set Box04.Min "-180"
  37   set Box04.ReactiveOnTrack "true"
  38   set Box04.Title "Rotation Y"
  39
  40 new wx:Slider Box05
  41   set Box05.ChangeResolution "true"
  42   set Box05.Label "true"
  43   set Box05.Max "180"
  44   set Box05.Min "-180"
  45   set Box05.ReactiveOnTrack "true"
  46   set Box05.Title "Rotation Z"
  47
  48 new wx:LayoutLine Box06
  49   set Box06.WinTitle "Translate"
  50
  51 new wx:Slider Box07
  52   set Box07.ChangeResolution "true"
  53   set Box07.Label "true"
  54   set Box07.Max "1800"
  55   set Box07.Min "-1800"
  56   set Box07.ReactiveOnTrack "true"
  57   set Box07.Title "Translation X"
  58
  59 new wx:Slider Box08
  60   set Box08.ChangeResolution "true"
  61   set Box08.Label "true"
  62   set Box08.Max "1800"
  63   set Box08.Min "-1800"
  64   set Box08.ReactiveOnTrack "true"
  65   set Box08.Title "Translation Y"
  66
  67 new wx:Slider Box09
  68   set Box09.ChangeResolution "true"
  69   set Box09.Label "true"
  70   set Box09.Max "1800"
  71   set Box09.Min "-1800"
  72   set Box09.ReactiveOnTrack "true"
  73   set Box09.Title "Translation Z"
  74
  75 new wx:LayoutLine Box10
  76   set Box10.WinTitle "Scale"
  77
  78 new wx:Slider Box11
  79   set Box11.ChangeResolution "true"
  80   set Box11.In "100"
  81   set Box11.Label "true"
  82   set Box11.Max "500"
  83   set Box11.Min "0"
  84   set Box11.ReactiveOnTrack "true"
  85   set Box11.Title "Scale X"
  86
  87 new wx:Slider Box12
  88   set Box12.ChangeResolution "true"
  89   set Box12.In "100"
  90   set Box12.Label "true"
  91   set Box12.Max "500"
  92   set Box12.Min "0"
  93   set Box12.ReactiveOnTrack "true"
  94   set Box12.Title "Scale Y"
  95
  96 new wx:Slider Box13
  97   set Box13.ChangeResolution "true"
  98   set Box13.In "100"
  99   set Box13.Label "true"
 100   set Box13.Max "500"
 101   set Box13.Min "0"
 102   set Box13.ReactiveOnTrack "true"
 103   set Box13.Title "Scale Z"
 104
 105 new vtk:Transform Box14
 106
 107 new std:ConcatStrings Box15
 108   set Box15.In2 " "
 109   set Box15.In3 "1 0 0"
 110
 111 new std:ConcatStrings Box16
 112   set Box16.In2 " "
 113   set Box16.In4 " "
 114
 115 new std:MultipleInputs Box17
 116
 117 new std:MultipleInputs Box18
 118
 119 new std:MultipleInputs Box19
 120
 121 new std:MultipleInputs Box20
 122
 123 new std:Div Box22
 124   set Box22.In2 "100"
 125
 126 new std:Div Box23
 127   set Box23.In2 "100"
 128
 129 new std:Div Box24
 130   set Box24.In2 "100"
 131
 132 new vtk:Transform Box28
 133
 134 new std:ConcatStrings Box29
 135   set Box29.In2 " "
 136   set Box29.In3 "0 1 0"
 137
 138 new vtk:Transform Box30
 139
 140 new std:ConcatStrings Box31
 141   set Box31.In2 " "
 142   set Box31.In3 "0 0 1"
 143
 144 new vtk:Transform Box32
 145
 146 new vtk:Transform Box33
 147
 148 new vtk:Transform Box34
 149
 150 new std:Add Box35
 151
 152 new std:GetVectorDoubleElement Box36
 153   set Box36.ErrorValue "0"
 154   set Box36.I "0"
 155
 156 new std:Add Box40
 157
 158 new std:GetVectorDoubleElement Box41
 159   set Box41.ErrorValue "0"
 160   set Box41.I "1"
 161
 162 new std:Add Box42
 163
 164 new std:GetVectorDoubleElement Box43
 165   set Box43.ErrorValue "0"
 166   set Box43.I "2"
 167
 168 new std:Add Box44
 169
 170 new std:ConcatStrings Box45
 171   set Box45.In2 " "
 172   set Box45.In4 " "
 173
 174 new std:GetVectorDoubleElement Box47
 175   set Box47.ErrorValue "1"
 176   set Box47.I "0"
 177
 178 new std:GetVectorDoubleElement Box49
 179   set Box49.ErrorValue "1"
 180   set Box49.I "1"
 181
 182 new std:GetVectorDoubleElement Box50
 183   set Box50.ErrorValue "1"
 184   set Box50.I "2"
 185
 186 new std:MagicBox Box52
 187
 188 new std:MagicBox Box53
 189
 190 new std:Add Box55
 191
 192 new std:GetVectorDoubleElement Box56
 193   set Box56.ErrorValue "0"
 194   set Box56.I "0"
 195
 196 new std:Add Box57
 197
 198 new std:GetVectorDoubleElement Box58
 199   set Box58.ErrorValue "0"
 200   set Box58.I "1"
 201
 202 new std:GetVectorDoubleElement Box59
 203   set Box59.ErrorValue "0"
 204   set Box59.I "2"
 205
 206 new std:Add Box60
 207
 208 new std:MagicBox Box61
 209
 210 new std:Mul Box62
 211
 212 new std:Mul Box63
 213
 214 new std:Mul Box64
 215
 216
 217 connect Box01.Widget Box00.Widget1
 218 connect Box05.Widget Box01.Widget3
 219 connect Box04.Widget Box01.Widget2
 220 connect Box03.Widget Box01.Widget1
 221 connect Box09.Widget Box06.Widget3
 222 connect Box08.Widget Box06.Widget2
 223 connect Box07.Widget Box06.Widget1
 224 connect Box13.Widget Box10.Widget3
 225 connect Box12.Widget Box10.Widget2
 226 connect Box11.Widget Box10.Widget1
 227 connect Box06.Widget Box00.Widget2
 228 connect Box10.Widget Box00.Widget3
 229 connect Box16.Out Box14.Translate
 230 connect Box03.BoxChange Box17.In1
 231 connect Box04.BoxChange Box17.In2
 232 connect Box05.BoxChange Box17.In3
 233 connect Box07.BoxChange Box18.In1
 234 connect Box08.BoxChange Box18.In2
 235 connect Box09.BoxChange Box18.In3
 236 connect Box11.BoxChange Box19.In1
 237 connect Box12.BoxChange Box19.In2
 238 connect Box13.BoxChange Box19.In3
 239 connect Box17.BoxChange Box20.In1
 240 connect Box18.BoxChange Box20.In2
 241 connect Box19.BoxChange Box20.In3
 242 connect Box11.Out Box22.In1
 243 connect Box12.Out Box23.In1
 244 connect Box13.Out Box24.In1
 245 connect Box15.Out Box28.RotateWXYZ
 246 connect Box29.Out Box30.RotateWXYZ
 247 connect Box31.Out Box32.RotateWXYZ
 248 connect Box28.Out Box30.In
 249 connect Box30.Out Box32.In
 250 connect Box14.Out Box28.In
 251 connect Box20.BoxChange Box33.BoxExecute
 252 connect Box32.Out Box33.In
 253 connect Box36.Out Box35.In2
 254 connect Box07.Out Box35.In1
 255 connect Box35.Out Box16.In1
 256 connect Box41.Out Box40.In2
 257 connect Box08.Out Box40.In1
 258 connect Box40.Out Box16.In3
 259 connect Box43.Out Box44.In2
 260 connect Box09.Out Box44.In1
 261 connect Box44.Out Box16.In5
 262 connect Box45.Out Box33.Scale
 263 connect Box52.Out Box50.In
 264 connect Box52.Out Box47.In
 265 connect Box52.Out Box49.In
 266 connect Box53.Out Box43.In
 267 connect Box53.Out Box36.In
 268 connect Box53.Out Box41.In
 269 connect Box56.Out Box55.In2
 270 connect Box58.Out Box57.In2
 271 connect Box59.Out Box60.In2
 272 connect Box61.Out Box59.In
 273 connect Box61.Out Box56.In
 274 connect Box61.Out Box58.In
 275 connect Box03.Out Box55.In1
 276 connect Box55.Out Box15.In1
 277 connect Box04.Out Box57.In1
 278 connect Box57.Out Box29.In1
 279 connect Box05.Out Box60.In1
 280 connect Box60.Out Box31.In1
 281 connect Box22.Out Box62.In1
 282 connect Box23.Out Box63.In1
 283 connect Box24.Out Box64.In1
 284 connect Box62.Out Box45.In1
 285 connect Box63.Out Box45.In3
 286 connect Box64.Out Box45.In5
 287 connect Box47.Out Box62.In2
 288 connect Box49.Out Box63.In2
 289 connect Box50.Out Box64.In2
 290
 291 # Complex input ports
 292 input TitleWindow Box00.WinTitle " "
 293 input scaleXYZ Box52.In " "
 294 input translateXYZ Box53.In " "
 295 input rotateXYZ Box61.In " "
 296
 297 # Complex output ports
 298 output Window Box00.Widget " "
 299 output Transform Box33.Out " "
 300 output BoxChange Box33.BoxChange " "
 301
 302
 303 endefine