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 std:MathOperationVector Box19
  32   set Box19.Type "2"
  33
  34 new vtk:ImageVtkProperties Box20
  35
  36 new creaVtk:ScalarsToColors Box22
  37   set Box22.Type "1"
  38
  39 new vtk:Transform Box32
  40
  41 new creaMaracasVisu:DrawAxisTree3D Box26
  42   set Box26.Colour "0 0 0"
  43   set Box26.lstIndexs "5"
  44   set Box26.lstPointX "0   50  50      0      0"
  45   set Box26.lstPointY "0     0   50    50      0"
  46   set Box26.lstPointZ "0     0     0      0      0"
  47
  48 new vtk:Transform Box27
  49   set Box27.RotateWXYZ "-90 0 0 1"
  50
  51 new std:CreateArithmeticSuiteVector Box33
  52   set Box33.Delta "0"
  53   set Box33.Size "5"
  54
  55 new std:GetVectorDoubleElement Box34
  56   set Box34.I "0"
  57
  58 new std:MathOperationVector Box35
  59   set Box35.In1 "0 1 1 0 0 "
  60   set Box35.Type "2"
  61
  62 new std:CreateArithmeticSuiteVector Box36
  63   set Box36.Delta "0"
  64   set Box36.Size "5"
  65
  66 new std:MathOperationVector Box37
  67   set Box37.In1 "0 0 1 1 0 "
  68   set Box37.Type "2"
  69
  70 new vtk:vtkImageDataPointerRelay Box38
  71
  72 new std:ConcatStrings Box40
  73   set Box40.In1 "0"
  74
  75 new std:StringSelect Box41
  76   set Box41.In0 "0 1 0 0"
  77   set Box41.In1 "-90 1 0 0"
  78   set Box41.In2 "90 0 0 1"
  79
  80 new std:StringSelect Box42
  81   set Box42.In0 "0 1 0 0"
  82   set Box42.In1 "-90 0 0 1"
  83   set Box42.In2 "-90 0 0 1"
  84
  85 new std:GetVectorDoubleElement Box44
  86   set Box44.I "1"
  87
  88 new std:StringSelect Box45
  89   set Box45.In0 "0"
  90   set Box45.In1 "2"
  91   set Box45.In2 "2"
  92
  93 new std:StringSelect Box46
  94   set Box46.In0 "1"
  95   set Box46.In1 "0"
  96   set Box46.In2 "1"
  97
  98 new vtk:Transform Box52
  99
 100 new std:StringSelect Box53
 101   set Box53.In0 "0 1 0 0"
 102   set Box53.In1 "0 1 0 0"
 103   set Box53.In2 "-90 0 1 0"
 104
 105 new std:MathOperationVector Box54
 106   set Box54.Type "2"
 107
 108 new std:StringSelect Box55
 109   set Box55.In0 "0 0 1"
 110   set Box55.In1 "0 0 1"
 111   set Box55.In2 "0 0 -1"
 112
 113 new std:ConcatStrings Box57
 114   set Box57.In2 "  "
 115
 116 new std:ConcatStrings Box60
 117   set Box60.BoxProcessMode "Reactive"
 118
 119 new std:MagicBox Box61
 120
 121 new std:ConcatStrings Box62
 122   set Box62.In1 "1 1 0"
 123
 124 new std:GetVectorDoubleElement Box64
 125   set Box64.I "0"
 126
 127 new std:ConcatStrings Box65
 128
 129 new std:Div Box66
 130   set Box66.In2 "2"
 131
 132 new std:Add Box67
 133
 134 new std:GetVectorDoubleElement Box68
 135   set Box68.I "1"
 136
 137 new std:Mul Box69
 138   set Box69.In2 "-1"
 139
 140 new std:Add Box70
 141
 142
 143 connect Box00.Out Box04.In
 144 connect Box20.Spacing Box19.In0
 145 connect Box18.Out Box19.In1
 146 connect Box22.LookupTable Box04.LookupTable
 147 connect Box32.Out Box04.Transform
 148 connect Box26.BoxChange Box04.BoxExecute
 149 connect Box32.Out Box27.In
 150 connect Box27.Out Box26.Transform
 151 connect Box20.Size Box34.In
 152 connect Box34.Out Box33.FirstValue
 153 connect Box33.ArithmeticSuiteVector Box35.In0
 154 connect Box35.Out Box26.lstPointX
 155 connect Box36.ArithmeticSuiteVector Box37.In0
 156 connect Box37.Out Box26.lstPointY
 157 connect Box20.Spacing Box27.Scale
 158 connect Box38.Out Box00.In
 159 connect Box38.Out Box20.In
 160 connect Box40.Out Box00.TypeOrientation
 161 connect Box40.Out Box41.In
 162 connect Box40.Out Box42.In
 163 connect Box42.Out Box27.RotateWXYZ
 164 connect Box20.Size Box44.In
 165 connect Box44.Out Box36.FirstValue
 166 connect Box40.Out Box45.In
 167 connect Box40.Out Box46.In
 168 connect Box45.Out Box34.I
 169 connect Box46.Out Box44.I
 170 connect Box17.Out Box32.In
 171 connect Box41.Out Box17.RotateWXYZ
 172 connect Box52.Out Box17.In
 173 connect Box40.Out Box53.In
 174 connect Box53.Out Box52.RotateWXYZ
 175 connect Box54.Out Box32.Translate
 176 connect Box19.Out Box54.In0
 177 connect Box55.Out Box54.In1
 178 connect Box40.Out Box55.In
 179 connect Box57.Out Box22.Range
 180 connect Box60.Out Box00.Slice
 181 connect Box60.Out Box18.In3
 182 connect Box61.Out Box26.Renderer
 183 connect Box61.Out Box04.Renderer
 184 connect Box62.Out Box26.Colour
 185 connect Box00.BoxChange Box26.BoxExecute
 186 connect Box65.Out Box64.In
 187 connect Box64.Out Box66.In1
 188 connect Box65.Out Box68.In
 189 connect Box66.Out Box69.In1
 190 connect Box68.Out Box67.In1
 191 connect Box69.Out Box67.In2
 192 connect Box67.Out Box57.In1
 193 connect Box66.Out Box70.In1
 194 connect Box68.Out Box70.In2
 195 connect Box70.Out Box57.In3
 196
 197 # Complex input ports
 198 input Direction Box40.In1 " "
 199 input ColorBorder Box62.In1 " "
 200 input Image Box38.In " "
 201 input SliceDeep Box60.In1 " "
 202 input SliceOpacity Box04.Opacity " "
 203 input Render Box61.In " "
 204 input WindowColorLevel Box65.In1 " "
 205
 206 # Complex output ports
 207 output BoxChangeImageSlice Box04.BoxChange " "
 208
 209
 210 endefine