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
  13 define SliceImage-3DVisu creaMaracasVisu
  14
  15 author "InfoDev"
  16 description "Description ??"
  17
  18 category "<VOID>"
  19
  20 new creaMaracasVisu:SliceImage Box00
  21   set Box00.TypeOrientation "1"
  22
  23 new creaMaracasVisu:ImageActor Box04
  24
  25 new vtk:Transform Box17
  26
  27 new std:ConcatStrings Box18
  28   set Box18.In1 "0  "
  29   set Box18.In2 "0  "
  30
  31 new vtk:ImageVtkProperties Box20
  32
  33 new creaVtk:ScalarsToColors Box22
  34   set Box22.Type "1"
  35
  36 new vtk:Transform Box32
  37
  38 new creaMaracasVisu:DrawAxisTree3D Box26
  39   set Box26.Colour "0 0 0"
  40   set Box26.iAxis "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 vtk:Transform Box79
 151   set Box79.Scale "1 1 1"
 152
 153 new creaMaracasVisu:ImageChangeInformation Box80
 154   set Box80.NewSpacing "1 1 1"
 155
 156 new std:StringSelect Box81
 157   set Box81.In0 "0"
 158   set Box81.In1 "-1"
 159   set Box81.In2 "-2"
 160
 161 new std:MathOperationVector Box82
 162   set Box82.In1 "-1    -1   -1"
 163   set Box82.Type "0"
 164
 165
 166 connect Box22.LookupTable Box04.LookupTable
 167 connect Box32.Out Box04.Transform
 168 connect Box26.BoxChange Box04.BoxExecute
 169 connect Box32.Out Box27.In
 170 connect Box27.Out Box26.Transform
 171 connect Box34.Out Box33.FirstValue
 172 connect Box33.ArithmeticSuiteVector Box35.In0
 173 connect Box35.Out Box26.lstPointX
 174 connect Box36.ArithmeticSuiteVector Box37.In0
 175 connect Box37.Out Box26.lstPointY
 176 connect Box38.Out Box00.In
 177 connect Box38.Out Box20.In
 178 connect Box40.Out Box41.In
 179 connect Box40.Out Box42.In
 180 connect Box44.Out Box36.FirstValue
 181 connect Box40.Out Box45.In
 182 connect Box40.Out Box46.In
 183 connect Box45.Out Box34.I
 184 connect Box46.Out Box44.I
 185 connect Box17.Out Box32.In
 186 connect Box52.Out Box17.In
 187 connect Box40.Out Box53.In
 188 connect Box40.Out Box55.In
 189 connect Box57.Out Box22.Range
 190 connect Box60.Out Box00.Slice
 191 connect Box61.Out Box26.Renderer
 192 connect Box61.Out Box04.Renderer
 193 connect Box62.Out Box26.Colour
 194 connect Box00.BoxChange Box26.BoxExecute
 195 connect Box65.Out Box64.In
 196 connect Box64.Out Box66.In1
 197 connect Box65.Out Box68.In
 198 connect Box66.Out Box69.In1
 199 connect Box68.Out Box67.In1
 200 connect Box69.Out Box67.In2
 201 connect Box67.Out Box57.In1
 202 connect Box66.Out Box70.In1
 203 connect Box68.Out Box70.In2
 204 connect Box70.Out Box57.In3
 205 connect Box60.Out Box72.In2
 206 connect Box72.Out Box73.In1
 207 connect Box55.Out Box73.In2
 208 connect Box18.Out Box32.Translate
 209 connect Box73.Out Box18.In3
 210 connect Box40.Out Box74.In
 211 connect Box20.Spacing Box75.In
 212 connect Box74.Out Box75.I
 213 connect Box79.Out Box52.In
 214 connect Box00.Out Box80.In
 215 connect Box80.Out Box04.In
 216 connect Box20.Spacing Box79.Scale
 217 connect Box41.Out Box17.RotateWXYZ
 218 connect Box40.Out Box81.In
 219 connect Box81.Out Box00.TypeOrientation
 220 connect Box20.Size Box82.In0
 221 connect Box82.Out Box34.In
 222 connect Box20.Size Box44.In
 223
 224 # Complex input ports
 225 input Direction Box40.In1 " "
 226 input ColorBorder Box62.In1 " "
 227 input Image Box38.In " "
 228 input SliceDeep Box60.In1 " "
 229 input SliceOpacity Box04.Opacity " "
 230 input Render Box61.In " "
 231 input WindowColorLevel Box65.In1 " "
 232
 233 # Complex output ports
 234 output BoxChangeImageSlice Box04.BoxChange " "
 235
 236
 237 endefine