bbtk/bbs/boxes/SliceImage-3DVisu.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C11/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/SliceImage-3DVisu.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaMaracasVisu
   9 include vtk
  10 include std
  11 include creaVtk
  12 include wx
  13
  14 define SliceImage-3DVisu creaMaracasVisu
  15
  16 author "InfoDev"
  17 description "Description ??"
  18
  19 category "<VOID>"
  20
  21 new creaMaracasVisu:SliceImage Box00
  22   set Box00.TypeOrientation "1"
  23
  24 new creaMaracasVisu:ImageActor Box04
  25
  26 new vtk:Transform Box17
  27
  28 new std:ConcatStrings Box18
  29   set Box18.In1 "0  "
  30   set Box18.In2 "0  "
  31
  32 new vtk:ImageVtkProperties Box20
  33
  34 new creaVtk:ScalarsToColors Box22
  35   set Box22.Type "1"
  36
  37 new vtk:Transform Box32
  38
  39 new creaMaracasVisu:DrawAxisTree3D Box26
  40   set Box26.Colour "0 0 0"
  41   set Box26.lstIndexs "5"
  42   set Box26.lstPointX "0   50  50      0      0"
  43   set Box26.lstPointY "0     0   50    50      0"
  44   set Box26.lstPointZ "0     0     0      0      0"
  45
  46 new vtk:Transform Box27
  47
  48 new std:CreateArithmeticSuiteVector Box33
  49   set Box33.Delta "0"
  50   set Box33.Size "5"
  51
  52 new std:GetVectorDoubleElement Box34
  53   set Box34.I "0"
  54
  55 new std:MathOperationVector Box35
  56   set Box35.In1 "0 1 1 0 0 "
  57   set Box35.Type "2"
  58
  59 new std:CreateArithmeticSuiteVector Box36
  60   set Box36.Delta "0"
  61   set Box36.Size "5"
  62
  63 new std:MathOperationVector Box37
  64   set Box37.In1 "0 0 1 1 0 "
  65   set Box37.Type "2"
  66
  67 new vtk:vtkImageDataPointerRelay Box38
  68
  69 new std:ConcatStrings Box40
  70   set Box40.In1 "0"
  71
  72 new std:StringSelect Box41
  73   set Box41.In0 "0 1 0 0"
  74   set Box41.In1 "90 1 0 0"
  75   set Box41.In2 "-90 0 1 0"
  76
  77 new std:StringSelect Box42
  78   set Box42.In0 "0 1 0 0"
  79   set Box42.In1 "-90 0 0 1"
  80   set Box42.In2 "-90 0 0 1"
  81
  82 new std:GetVectorDoubleElement Box44
  83   set Box44.I "1"
  84
  85 new std:StringSelect Box45
  86   set Box45.In0 "0"
  87   set Box45.In1 "0"
  88   set Box45.In2 "2"
  89
  90 new std:StringSelect Box46
  91   set Box46.In0 "1"
  92   set Box46.In1 "2"
  93   set Box46.In2 "1"
  94
  95 new vtk:Transform Box52
  96
  97 new std:StringSelect Box53
  98   set Box53.In0 "0 1 0 0"
  99   set Box53.In1 "0 1 0 0"
 100   set Box53.In2 "-90 0 1 0"
 101
 102 new std:StringSelect Box55
 103   set Box55.In0 "1"
 104   set Box55.In1 "-1"
 105   set Box55.In2 "-1"
 106
 107 new std:ConcatStrings Box57
 108   set Box57.In2 "  "
 109
 110 new std:ConcatStrings Box60
 111   set Box60.BoxProcessMode "Reactive"
 112
 113 new std:MagicBox Box61
 114
 115 new std:ConcatStrings Box62
 116   set Box62.In1 "1 1 0"
 117
 118 new std:GetVectorDoubleElement Box64
 119   set Box64.I "0"
 120
 121 new std:ConcatStrings Box65
 122
 123 new std:Div Box66
 124   set Box66.In2 "2"
 125
 126 new std:Add Box67
 127
 128 new std:GetVectorDoubleElement Box68
 129   set Box68.I "1"
 130
 131 new std:Mul Box69
 132   set Box69.In2 "-1"
 133
 134 new std:Add Box70
 135
 136 new std:MathOperation Box72
 137   set Box72.In1 "1"
 138   set Box72.Type "2"
 139
 140 new std:MathOperation Box73
 141   set Box73.Type "2"
 142
 143 new std:StringSelect Box74
 144   set Box74.In0 "2"
 145   set Box74.In1 "0"
 146   set Box74.In2 "1"
 147
 148 new std:GetVectorDoubleElement Box75
 149
 150 new wx:OutputText Box76
 151
 152 new vtk:Transform Box79
 153   set Box79.Scale "1 1 1"
 154
 155 new creaMaracasVisu:ImageChangeInformation Box80
 156   set Box80.NewSpacing "1 1 1"
 157
 158 new std:StringSelect Box81
 159   set Box81.In0 "0"
 160   set Box81.In1 "-1"
 161   set Box81.In2 "-2"
 162
 163 new std:MathOperationVector Box82
 164   set Box82.In1 "-1    -1   -1"
 165   set Box82.Type "0"
 166
 167
 168 connect Box22.LookupTable Box04.LookupTable
 169 connect Box32.Out Box04.Transform
 170 connect Box26.BoxChange Box04.BoxExecute
 171 connect Box32.Out Box27.In
 172 connect Box27.Out Box26.Transform
 173 connect Box34.Out Box33.FirstValue
 174 connect Box33.ArithmeticSuiteVector Box35.In0
 175 connect Box35.Out Box26.lstPointX
 176 connect Box36.ArithmeticSuiteVector Box37.In0
 177 connect Box37.Out Box26.lstPointY
 178 connect Box38.Out Box00.In
 179 connect Box38.Out Box20.In
 180 connect Box40.Out Box41.In
 181 connect Box40.Out Box42.In
 182 connect Box44.Out Box36.FirstValue
 183 connect Box40.Out Box45.In
 184 connect Box40.Out Box46.In
 185 connect Box45.Out Box34.I
 186 connect Box46.Out Box44.I
 187 connect Box17.Out Box32.In
 188 connect Box52.Out Box17.In
 189 connect Box40.Out Box53.In
 190 connect Box40.Out Box55.In
 191 connect Box57.Out Box22.Range
 192 connect Box60.Out Box00.Slice
 193 connect Box61.Out Box26.Renderer
 194 connect Box61.Out Box04.Renderer
 195 connect Box62.Out Box26.Colour
 196 connect Box00.BoxChange Box26.BoxExecute
 197 connect Box65.Out Box64.In
 198 connect Box64.Out Box66.In1
 199 connect Box65.Out Box68.In
 200 connect Box66.Out Box69.In1
 201 connect Box68.Out Box67.In1
 202 connect Box69.Out Box67.In2
 203 connect Box67.Out Box57.In1
 204 connect Box66.Out Box70.In1
 205 connect Box68.Out Box70.In2
 206 connect Box70.Out Box57.In3
 207 connect Box60.Out Box72.In2
 208 connect Box72.Out Box73.In1
 209 connect Box55.Out Box73.In2
 210 connect Box18.Out Box32.Translate
 211 connect Box73.Out Box18.In3
 212 connect Box40.Out Box74.In
 213 connect Box20.Spacing Box75.In
 214 connect Box74.Out Box75.I
 215 connect Box57.BoxChange Box76.BoxExecute
 216 connect Box57.Out Box76.In
 217 connect Box79.Out Box52.In
 218 connect Box00.Out Box80.In
 219 connect Box80.Out Box04.In
 220 connect Box20.Spacing Box79.Scale
 221 connect Box41.Out Box17.RotateWXYZ
 222 connect Box40.Out Box81.In
 223 connect Box81.Out Box00.TypeOrientation
 224 connect Box20.Size Box82.In0
 225 connect Box82.Out Box34.In
 226 connect Box20.Size Box44.In
 227
 228 # Complex input ports
 229 input Direction Box40.In1 " "
 230 input ColorBorder Box62.In1 " "
 231 input Image Box38.In " "
 232 input SliceDeep Box60.In1 " "
 233 input SliceOpacity Box04.Opacity " "
 234 input Render Box61.In " "
 235 input WindowColorLevel Box65.In1 " "
 236
 237 # Complex output ports
 238 output BoxChangeImageSlice Box04.BoxChange " "
 239
 240
 241 endefine