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:GetVectorDoubleElement Box44
  78   set Box44.I "1"
  79
  80 new std:StringSelect Box45
  81   set Box45.In0 "0"
  82   set Box45.In1 "0"
  83   set Box45.In2 "2"
  84
  85 new std:StringSelect Box46
  86   set Box46.In0 "1"
  87   set Box46.In1 "2"
  88   set Box46.In2 "1"
  89
  90 new vtk:Transform Box52
  91
  92 new std:StringSelect Box55
  93   set Box55.In0 "1"
  94   set Box55.In1 "-1"
  95   set Box55.In2 "-1"
  96
  97 new std:ConcatStrings Box57
  98   set Box57.In2 "  "
  99
 100 new std:ConcatStrings Box60
 101   set Box60.BoxProcessMode "Reactive"
 102
 103 new std:MagicBox Box61
 104
 105 new std:ConcatStrings Box62
 106   set Box62.In1 "1 1 0"
 107
 108 new std:GetVectorDoubleElement Box64
 109   set Box64.I "0"
 110
 111 new std:ConcatStrings Box65
 112
 113 new std:Div Box66
 114   set Box66.In2 "2"
 115
 116 new std:Add Box67
 117
 118 new std:GetVectorDoubleElement Box68
 119   set Box68.I "1"
 120
 121 new std:Mul Box69
 122   set Box69.In2 "-1"
 123
 124 new std:Add Box70
 125
 126 new std:MathOperation Box72
 127   set Box72.In1 "1"
 128   set Box72.Type "2"
 129
 130 new std:MathOperation Box73
 131   set Box73.Type "2"
 132
 133 new std:StringSelect Box74
 134   set Box74.In0 "2"
 135   set Box74.In1 "0"
 136   set Box74.In2 "1"
 137
 138 new std:GetVectorDoubleElement Box75
 139
 140 new vtk:Transform Box79
 141   set Box79.Scale "1 1 1"
 142
 143 new creaMaracasVisu:ImageChangeInformation Box80
 144   set Box80.NewSpacing "1 1 1"
 145
 146 new std:StringSelect Box81
 147   set Box81.In0 "0"
 148   set Box81.In1 "-1"
 149   set Box81.In2 "-2"
 150
 151 new std:MathOperationVector Box82
 152   set Box82.In1 "-1    -1   -1"
 153   set Box82.Type "0"
 154
 155 new std:MagicBox Box83
 156
 157 new std:MagicBox Box78
 158
 159
 160 connect Box22.LookupTable Box04.LookupTable
 161 connect Box32.Out Box04.Transform
 162 connect Box26.BoxChange Box04.BoxExecute
 163 connect Box32.Out Box27.In
 164 connect Box27.Out Box26.Transform
 165 connect Box34.Out Box33.FirstValue
 166 connect Box33.ArithmeticSuiteVector Box35.In0
 167 connect Box35.Out Box26.lstPointX
 168 connect Box36.ArithmeticSuiteVector Box37.In0
 169 connect Box37.Out Box26.lstPointY
 170 connect Box38.Out Box00.In
 171 connect Box38.Out Box20.In
 172 connect Box40.Out Box41.In
 173 connect Box44.Out Box36.FirstValue
 174 connect Box40.Out Box45.In
 175 connect Box40.Out Box46.In
 176 connect Box45.Out Box34.I
 177 connect Box46.Out Box44.I
 178 connect Box17.Out Box32.In
 179 connect Box52.Out Box17.In
 180 connect Box40.Out Box55.In
 181 connect Box57.Out Box22.Range
 182 connect Box60.Out Box00.Slice
 183 connect Box61.Out Box26.Renderer
 184 connect Box61.Out Box04.Renderer
 185 connect Box62.Out Box26.Colour
 186 connect Box00.BoxChange Box26.BoxExecute
 187 connect Box65.Out Box64.In
 188 connect Box64.Out Box66.In1
 189 connect Box65.Out Box68.In
 190 connect Box66.Out Box69.In1
 191 connect Box68.Out Box67.In1
 192 connect Box69.Out Box67.In2
 193 connect Box67.Out Box57.In1
 194 connect Box66.Out Box70.In1
 195 connect Box68.Out Box70.In2
 196 connect Box70.Out Box57.In3
 197 connect Box60.Out Box72.In2
 198 connect Box72.Out Box73.In1
 199 connect Box55.Out Box73.In2
 200 connect Box18.Out Box32.Translate
 201 connect Box73.Out Box18.In3
 202 connect Box40.Out Box74.In
 203 connect Box20.Spacing Box75.In
 204 connect Box74.Out Box75.I
 205 connect Box79.Out Box52.In
 206 connect Box00.Out Box80.In
 207 connect Box80.Out Box04.In
 208 connect Box20.Spacing Box79.Scale
 209 connect Box41.Out Box17.RotateWXYZ
 210 connect Box40.Out Box81.In
 211 connect Box81.Out Box00.TypeOrientation
 212 connect Box20.Size Box82.In0
 213 connect Box82.Out Box34.In
 214 connect Box82.Out Box44.In
 215 connect Box83.Out Box26.Active
 216 connect Box78.Out Box00.InterpolationMode
 217
 218 # Complex input ports
 219 input Direction Box40.In1 " "
 220 input ColorBorder Box62.In1 " "
 221 input Image Box38.In " "
 222 input SliceDeep Box60.In1 " "
 223 input SliceOpacity Box04.Opacity " "
 224 input Render Box61.In " "
 225 input WindowColorLevel Box65.In1 " "
 226 input BorderActive Box83.In " "
 227 input Interpolation_mode Box78.In " "
 228
 229 # Complex output ports
 230 output BoxChangeImageSlice Box04.BoxChange " "
 231
 232
 233 endefine