# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/Creatis/C10/creatools_source/creaMiniTools/bbtk_package_creaMiniTools/bbs/boxes/ImageFillByPlane.bbs
# ----------------------------------

include std
include itkvtk
include creaVtk
include std
include vtk

define ImageFillByPlane creaMiniTools

author "Author ??"
description "Description ??"

category "<VOID>"

new creaVtk:ReadMHDPlane Box00
  set Box00.DirectionPlane "XY"
  set Box00.Type "1"
  set Box00.Width "10"

new std:GetVectorIntElement Box01
  set Box01.I "2"

new std:ConcatStrings Box02
  set Box02.In1 "0 0 "

new vtk:InversCrop Box03
  set Box03.Active "false"
  set Box03.Type "1"

new std:CreateArithmeticSuiteVector Box04
  set Box04.Delta "0"
  set Box04.FirstValue "1"

new std:GetVectorIntElement Box05
  set Box05.I "2"

new std:GetVectorIntPointer Box06

new std:SetElementVectorVectorInt Box07
  set Box07.Value "0"

new std:GetVectorIntElement Box08
  set Box08.I "2"

new std:SetElementVectorVectorInt Box09
  set Box09.I "-1"
  set Box09.Value "0"

new std:Div Box10
  set Box10.In2 "10"

new std:Div Box11
  set Box11.In2 "10"

new std:ConcatStrings Box12
  set Box12.In1 "10"

new std:GetVectorIntElement Box13
  set Box13.I "0"

new std:MathOperation Box14
  set Box14.Type "2"

new std:ConcatStrings Box15

new std:MagicBox Box16

new vtk:vtkImageDataPointerRelay Box20

new std:ConcatStrings Box21
  set Box21.In1 "10"

new std:MagicBox Box22

new std:StringSelect Box23
  set Box23.In0 "XY"
  set Box23.In1 "YZ"
  set Box23.In2 "ZX"

new std:StringSelect Box24
  set Box24.In0 "0 0 XX"
  set Box24.In1 "XX 0 0"
  set Box24.In2 "0 XX 0"

new std:ReplaceCleanString Box26
  set Box26.Search "XX"

new std:StringSelect Box27
  set Box27.In0 "2"
  set Box27.In1 "0"
  set Box27.In2 "1"

new vtk:ImageVtkProperties Box29

new std:MagicBox Box30

new std:GetDoubleVectorSize Box31

new std:ConcatStrings Box32

new std:Div Box33
  set Box33.In2 "3"

new std:MathOperation Box34
  set Box34.Type "2"


connect Box06.PVec Box07.PVec
connect Box04.ArithmeticSuiteVector Box06.In
connect Box06.PVec Box09.PVec
connect Box09.Vec Box08.In
connect Box03.BoxChange Box07.BoxExecute
connect Box01.BoxChange Box08.BoxExecute
connect Box01.BoxChange Box09.BoxExecute
connect Box05.Out Box10.In1
connect Box10.Out Box04.Size
connect Box01.Out Box11.In1
connect Box11.Out Box08.I
connect Box12.Out Box10.In2
connect Box12.Out Box11.In2
connect Box12.Out Box00.Width
connect Box11.Out Box07.I
connect Box13.Out Box14.In1
connect Box12.Out Box14.In2
connect Box14.Out Box02.In2
connect Box11.Out Box15.In1
connect Box15.Out Box13.In
connect Box14.Out Box00.Slice
connect Box20.Out Box03.ImageFix
connect Box21.Out Box00.FileName
connect Box22.BoxChange Box03.BoxExecute
connect Box16.Out Box23.In
connect Box23.Out Box00.DirectionPlane
connect Box16.Out Box24.In
connect Box24.Out Box26.In
connect Box14.Out Box26.Replace
connect Box16.Out Box27.In
connect Box27.Out Box05.I
connect Box27.Out Box01.I
connect Box26.Out Box03.Origin
connect Box00.Out2 Box03.ImageMove
connect Box20.Out Box29.In
connect Box29.Size Box05.In
connect Box30.Out Box32.In1
connect Box32.Out Box31.In
connect Box31.VectorSize Box33.In1
connect Box33.Out Box34.In1
connect Box08.Out Box34.In2
connect Box34.Out Box00.Active
connect Box34.Out Box03.Active

# Complex input ports
input point Box01.In " "
input typeReadMHDPlane Box00.Type " "
input dir Box16.In " "
input widthSlice Box12.In1 " "
input image Box20.In " "
input filename Box21.In1 " "
input boxexecute Box22.BoxExecute " "
input dimsize Box30.In " "

# Complex output ports


endefine