packages/vtk/bbs/boxes/TransformWidget.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/All/creatools_source/bbtk/packages/vtk/bbs/boxes/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 LayoutTab Box00
  20
  21 new LayoutLine Box01
  22   set Box01.WinTitle "Rotation"
  23
  24 new 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 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 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 LayoutLine Box06
  49   set Box06.WinTitle "Translate"
  50
  51 new 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 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 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 LayoutLine Box10
  76   set Box10.WinTitle "Scale"
  77
  78 new 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 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 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 Transform Box14
 106
 107 new ConcatStrings Box15
 108   set Box15.In2 " "
 109   set Box15.In3 "1 0 0"
 110
 111 new ConcatStrings Box16
 112   set Box16.In2 " "
 113   set Box16.In4 " "
 114
 115 new MultipleInputs Box17
 116
 117 new MultipleInputs Box18
 118
 119 new MultipleInputs Box19
 120
 121 new MultipleInputs Box20
 122
 123 new ConcatStrings Box21
 124   set Box21.In2 " "
 125   set Box21.In4 " "
 126
 127 new Div Box22
 128   set Box22.In2 "100"
 129
 130 new Div Box23
 131   set Box23.In2 "100"
 132
 133 new Div Box24
 134   set Box24.In2 "100"
 135
 136 new Transform Box28
 137
 138 new ConcatStrings Box29
 139   set Box29.In2 " "
 140   set Box29.In3 "0 1 0"
 141
 142 new Transform Box30
 143
 144 new ConcatStrings Box31
 145   set Box31.In2 " "
 146   set Box31.In3 "0 0 1"
 147
 148 new Transform Box32
 149
 150
 151 connect Box01.Widget Box00.Widget1
 152 connect Box05.Widget Box01.Widget3
 153 connect Box04.Widget Box01.Widget2
 154 connect Box03.Widget Box01.Widget1
 155 connect Box09.Widget Box06.Widget3
 156 connect Box08.Widget Box06.Widget2
 157 connect Box07.Widget Box06.Widget1
 158 connect Box13.Widget Box10.Widget3
 159 connect Box12.Widget Box10.Widget2
 160 connect Box11.Widget Box10.Widget1
 161 connect Box06.Widget Box00.Widget2
 162 connect Box10.Widget Box00.Widget3
 163 connect Box16.Out Box14.Translate
 164 connect Box07.Out Box16.In1
 165 connect Box08.Out Box16.In3
 166 connect Box09.Out Box16.In5
 167 connect Box03.BoxChange Box17.In1
 168 connect Box04.BoxChange Box17.In2
 169 connect Box05.BoxChange Box17.In3
 170 connect Box07.BoxChange Box18.In1
 171 connect Box08.BoxChange Box18.In2
 172 connect Box09.BoxChange Box18.In3
 173 connect Box11.BoxChange Box19.In1
 174 connect Box12.BoxChange Box19.In2
 175 connect Box13.BoxChange Box19.In3
 176 connect Box17.BoxChange Box20.In1
 177 connect Box18.BoxChange Box20.In2
 178 connect Box19.BoxChange Box20.In3
 179 connect Box20.BoxChange Box14.BoxExecute
 180 connect Box11.Out Box22.In1
 181 connect Box22.Out Box21.In1
 182 connect Box12.Out Box23.In1
 183 connect Box13.Out Box24.In1
 184 connect Box23.Out Box21.In3
 185 connect Box24.Out Box21.In5
 186 connect Box21.Out Box14.Scale
 187 connect Box03.Out Box15.In1
 188 connect Box15.Out Box28.RotateWXYZ
 189 connect Box29.Out Box30.RotateWXYZ
 190 connect Box04.Out Box29.In1
 191 connect Box31.Out Box32.RotateWXYZ
 192 connect Box05.Out Box31.In1
 193 connect Box28.Out Box30.In
 194 connect Box30.Out Box32.In
 195 connect Box32.Out Box14.In
 196
 197 # Complex input ports
 198
 199 # Complex output ports
 200 output Transform Box14.Out " "
 201 output Window Box00.Widget " "
 202 output BoxChange Box14.BoxChange " "
 203
 204
 205 endefine