bbtk_package_creaMiniTools/bbs/boxes/ImageFillByPlane.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/C10/creatools_source/creaMiniTools/bbtk_package_creaMiniTools/bbs/boxes/ImageFillByPlane.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaVtk
   9 include std
  10 include vtk
  11
  12 define ImageFillByPlane creaMiniTools
  13
  14 author "Author ??"
  15 description "Description ??"
  16
  17 category "<VOID>"
  18
  19 new creaVtk:ReadMHDPlane Box00
  20   set Box00.DirectionPlane "XY"
  21   set Box00.Type "1"
  22   set Box00.Width "10"
  23
  24 new std:GetVectorIntElement Box01
  25   set Box01.I "2"
  26
  27 new std:ConcatStrings Box02
  28   set Box02.In1 "0 0 "
  29
  30 new vtk:InversCrop Box03
  31   set Box03.Active "false"
  32   set Box03.Type "1"
  33
  34 new std:CreateArithmeticSuiteVector Box04
  35   set Box04.Delta "0"
  36   set Box04.FirstValue "1"
  37
  38 new std:GetVectorIntElement Box05
  39   set Box05.I "2"
  40
  41 new std:GetVectorIntPointer Box06
  42
  43 new std:SetElementVectorVectorInt Box07
  44   set Box07.Value "0"
  45
  46 new std:GetVectorIntElement Box08
  47   set Box08.I "2"
  48
  49 new std:SetElementVectorVectorInt Box09
  50   set Box09.I "-1"
  51   set Box09.Value "0"
  52
  53 new std:Div Box10
  54   set Box10.In2 "10"
  55
  56 new std:Div Box11
  57   set Box11.In2 "10"
  58
  59 new std:ConcatStrings Box12
  60   set Box12.In1 "10"
  61
  62 new std:GetVectorIntElement Box13
  63   set Box13.I "0"
  64
  65 new std:MathOperation Box14
  66   set Box14.Type "2"
  67
  68 new std:ConcatStrings Box15
  69
  70 new std:MagicBox Box16
  71
  72 new vtk:vtkImageDataPointerRelay Box20
  73
  74 new std:ConcatStrings Box21
  75   set Box21.In1 "10"
  76
  77 new std:MagicBox Box22
  78
  79 new std:StringSelect Box23
  80   set Box23.In0 "XY"
  81   set Box23.In1 "YZ"
  82   set Box23.In2 "ZX"
  83
  84 new std:StringSelect Box24
  85   set Box24.In0 "0 0 XX"
  86   set Box24.In1 "XX 0 0"
  87   set Box24.In2 "0 XX 0"
  88
  89 new std:ReplaceCleanString Box26
  90   set Box26.Search "XX"
  91
  92 new std:StringSelect Box27
  93   set Box27.In0 "2"
  94   set Box27.In1 "0"
  95   set Box27.In2 "1"
  96
  97 new vtk:ImageVtkProperties Box29
  98
  99 new std:MagicBox Box30
 100
 101 new std:GetDoubleVectorSize Box31
 102
 103 new std:ConcatStrings Box32
 104
 105 new std:Div Box33
 106   set Box33.In2 "3"
 107
 108 new std:MathOperation Box34
 109   set Box34.Type "2"
 110
 111
 112 connect Box06.PVec Box07.PVec
 113 connect Box04.ArithmeticSuiteVector Box06.In
 114 connect Box06.PVec Box09.PVec
 115 connect Box09.Vec Box08.In
 116 connect Box03.BoxChange Box07.BoxExecute
 117 connect Box01.BoxChange Box08.BoxExecute
 118 connect Box01.BoxChange Box09.BoxExecute
 119 connect Box05.Out Box10.In1
 120 connect Box10.Out Box04.Size
 121 connect Box01.Out Box11.In1
 122 connect Box11.Out Box08.I
 123 connect Box12.Out Box10.In2
 124 connect Box12.Out Box11.In2
 125 connect Box12.Out Box00.Width
 126 connect Box11.Out Box07.I
 127 connect Box13.Out Box14.In1
 128 connect Box12.Out Box14.In2
 129 connect Box14.Out Box02.In2
 130 connect Box11.Out Box15.In1
 131 connect Box15.Out Box13.In
 132 connect Box14.Out Box00.Slice
 133 connect Box20.Out Box03.ImageFix
 134 connect Box21.Out Box00.FileName
 135 connect Box22.BoxChange Box03.BoxExecute
 136 connect Box16.Out Box23.In
 137 connect Box23.Out Box00.DirectionPlane
 138 connect Box16.Out Box24.In
 139 connect Box24.Out Box26.In
 140 connect Box14.Out Box26.Replace
 141 connect Box16.Out Box27.In
 142 connect Box27.Out Box05.I
 143 connect Box27.Out Box01.I
 144 connect Box26.Out Box03.Origin
 145 connect Box00.Out2 Box03.ImageMove
 146 connect Box20.Out Box29.In
 147 connect Box29.Size Box05.In
 148 connect Box30.Out Box32.In1
 149 connect Box32.Out Box31.In
 150 connect Box31.VectorSize Box33.In1
 151 connect Box33.Out Box34.In1
 152 connect Box08.Out Box34.In2
 153 connect Box34.Out Box00.Active
 154 connect Box34.Out Box03.Active
 155
 156 # Complex input ports
 157 input point Box01.In " "
 158 input typeReadMHDPlane Box00.Type " "
 159 input dir Box16.In " "
 160 input widthSlice Box12.In1 " "
 161 input image Box20.In " "
 162 input filename Box21.In1 " "
 163 input boxexecute Box22.BoxExecute " "
 164 input dimsize Box30.In " "
 165
 166 # Complex output ports
 167
 168
 169 endefine