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 "101"
  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 new std:MagicBox Box84
 160
 161 new std:MagicBox Box85
 162
 163
 164 connect Box22.LookupTable Box04.LookupTable
 165 connect Box32.Out Box04.Transform
 166 connect Box26.BoxChange Box04.BoxExecute
 167 connect Box32.Out Box27.In
 168 connect Box27.Out Box26.Transform
 169 connect Box34.Out Box33.FirstValue
 170 connect Box33.ArithmeticSuiteVector Box35.In0
 171 connect Box35.Out Box26.lstPointX
 172 connect Box36.ArithmeticSuiteVector Box37.In0
 173 connect Box37.Out Box26.lstPointY
 174 connect Box38.Out Box00.In
 175 connect Box38.Out Box20.In
 176 connect Box40.Out Box41.In
 177 connect Box44.Out Box36.FirstValue
 178 connect Box40.Out Box45.In
 179 connect Box40.Out Box46.In
 180 connect Box45.Out Box34.I
 181 connect Box46.Out Box44.I
 182 connect Box17.Out Box32.In
 183 connect Box52.Out Box17.In
 184 connect Box40.Out Box55.In
 185 connect Box57.Out Box22.Range
 186 connect Box60.Out Box00.Slice
 187 connect Box61.Out Box26.Renderer
 188 connect Box61.Out Box04.Renderer
 189 connect Box62.Out Box26.Colour
 190 connect Box00.BoxChange Box26.BoxExecute
 191 connect Box65.Out Box64.In
 192 connect Box64.Out Box66.In1
 193 connect Box65.Out Box68.In
 194 connect Box66.Out Box69.In1
 195 connect Box68.Out Box67.In1
 196 connect Box69.Out Box67.In2
 197 connect Box67.Out Box57.In1
 198 connect Box66.Out Box70.In1
 199 connect Box68.Out Box70.In2
 200 connect Box70.Out Box57.In3
 201 connect Box60.Out Box72.In2
 202 connect Box72.Out Box73.In1
 203 connect Box55.Out Box73.In2
 204 connect Box18.Out Box32.Translate
 205 connect Box73.Out Box18.In3
 206 connect Box40.Out Box74.In
 207 connect Box20.Spacing Box75.In
 208 connect Box74.Out Box75.I
 209 connect Box79.Out Box52.In
 210 connect Box00.Out Box80.In
 211 connect Box80.Out Box04.In
 212 connect Box20.Spacing Box79.Scale
 213 connect Box41.Out Box17.RotateWXYZ
 214 connect Box40.Out Box81.In
 215 connect Box81.Out Box00.TypeOrientation
 216 connect Box20.Size Box82.In0
 217 connect Box82.Out Box34.In
 218 connect Box82.Out Box44.In
 219 connect Box83.Out Box26.Active
 220 connect Box78.Out Box04.InterpolationMode
 221 connect Box84.Out Box22.Type
 222 connect Box85.Out Box22.BelowAboveRangeTransparence
 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 input BorderActive Box83.In " "
 233 input Interpolation_mode Box78.In " "
 234 input TypeTransparence Box84.In " "
 235 input transparenceBeforeAboveRange Box85.In " "
 236
 237 # Complex output ports
 238 output BoxChangeImageSlice Box04.BoxChange " "
 239
 240
 241 endefine