# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /tmpEED/creaTools/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/ViewerByPlane.bbs
# ----------------------------------

include std
include itkvtk
include creaMaracasVisu
include vtk
include creaVtk
include std

define ViewerByPlane creaMaracasVisu

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

category "<VOID>"

new creaMaracasVisu:ViewerNV Box01
  set Box01.ColorLevel "900"
  set Box01.WindowLevel "2000"
  set Box01.nTypeView "6 1 2 0"

new vtk:CreateImage Box02
  set Box02.InitialValue "500"

new creaVtk:MHDFileInfo Box03

new std:ConcatStrings Box04

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

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

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

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

new creaVtk:ReadMHDPlane Box12
  set Box12.DirectionPlane "ZX"
  set Box12.Type "1"
  set Box12.Width "10"

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

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

new std:ConcatStrings Box15
  set Box15.In1 "0 "
  set Box15.In3 " 0"

new creaVtk:ReadMHDPlane Box18
  set Box18.DirectionPlane "YZ"
  set Box18.Type "1"
  set Box18.Width "10"

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

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

new std:ConcatStrings Box21
  set Box21.In3 " 0 0"

new std:MagicBox Box22

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

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

new std:GetVectorIntPointer Box29

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

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

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

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

new std:GetVectorIntElement Box34
  set Box34.I "1"

new std:GetVectorIntPointer Box35

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

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

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

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

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

new std:GetVectorIntPointer Box41

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

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

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

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

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

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

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

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

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

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

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

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

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

new std:ConcatStrings Box65

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

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

new std:ConcatStrings Box68

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

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

new std:ConcatStrings Box71


connect Box02.Out Box01.In
connect Box03.DimSize Box02.Dimensions
connect Box03.ElementSpacing Box02.Spacing
connect Box03.ElementType Box02.OutputFormat
connect Box04.Out Box03.FileName
connect Box04.Out Box05.FileName
connect Box01.Point Box06.In
connect Box07.Out Box08.Origin
connect Box02.Out Box08.ImageFix
connect Box05.Out Box08.ImageMove
connect Box01.BoxChange Box08.BoxExecute
connect Box04.Out Box12.FileName
connect Box01.Point Box13.In
connect Box01.BoxChange Box14.BoxExecute
connect Box02.Out Box14.ImageFix
connect Box15.Out Box14.Origin
connect Box12.Out2 Box14.ImageMove
connect Box21.Out Box20.Origin
connect Box04.Out Box18.FileName
connect Box01.Point Box19.In
connect Box01.BoxChange Box20.BoxExecute
connect Box02.Out Box20.ImageFix
connect Box18.Out2 Box20.ImageMove
connect Box22.Out Box05.Type
connect Box22.Out Box12.Type
connect Box22.Out Box18.Type
connect Box03.DimSize Box28.In
connect Box29.PVec Box30.PVec
connect Box25.ArithmeticSuiteVector Box29.In
connect Box29.PVec Box32.PVec
connect Box32.Vec Box31.In
connect Box08.BoxChange Box30.BoxExecute
connect Box35.PVec Box36.PVec
connect Box33.ArithmeticSuiteVector Box35.In
connect Box35.PVec Box38.PVec
connect Box38.Vec Box37.In
connect Box03.DimSize Box34.In
connect Box14.BoxChange Box36.BoxExecute
connect Box41.PVec Box42.PVec
connect Box39.ArithmeticSuiteVector Box41.In
connect Box41.PVec Box44.PVec
connect Box44.Vec Box43.In
connect Box03.DimSize Box40.In
connect Box20.BoxChange Box42.BoxExecute
connect Box43.Out Box18.Active
connect Box37.Out Box12.Active
connect Box31.Out Box05.Active
connect Box19.BoxChange Box43.BoxExecute
connect Box13.BoxChange Box37.BoxExecute
connect Box06.BoxChange Box31.BoxExecute
connect Box06.BoxChange Box32.BoxExecute
connect Box13.BoxChange Box38.BoxExecute
connect Box19.BoxChange Box44.BoxExecute
connect Box28.Out Box49.In1
connect Box49.Out Box25.Size
connect Box06.Out Box50.In1
connect Box50.Out Box31.I
connect Box51.Out Box49.In2
connect Box51.Out Box50.In2
connect Box51.Out Box05.Width
connect Box50.Out Box30.I
connect Box51.Out Box12.Width
connect Box34.Out Box53.In1
connect Box53.Out Box33.Size
connect Box51.Out Box53.In2
connect Box51.Out Box54.In2
connect Box13.Out Box54.In1
connect Box54.Out Box37.I
connect Box54.Out Box36.I
connect Box40.Out Box56.In1
connect Box56.Out Box39.Size
connect Box55.Out Box43.I
connect Box19.Out Box55.In1
connect Box55.Out Box42.I
connect Box43.Out Box20.Active
connect Box31.Out Box08.Active
connect Box37.Out Box14.Active
connect Box57.Out Box56.In2
connect Box57.Out Box55.In2
connect Box57.Out Box18.Width
connect Box63.Out Box64.In1
connect Box51.Out Box64.In2
connect Box64.Out Box07.In2
connect Box50.Out Box65.In1
connect Box65.Out Box63.In
connect Box64.Out Box05.Slice
connect Box66.Out Box67.In1
connect Box68.Out Box66.In
connect Box54.Out Box68.In1
connect Box51.Out Box67.In2
connect Box67.Out Box15.In2
connect Box67.Out Box12.Slice
connect Box69.Out Box70.In1
connect Box71.Out Box69.In
connect Box70.Out Box21.In1
connect Box70.Out Box18.Slice
connect Box57.Out Box70.In2
connect Box55.Out Box71.In1

# Complex input ports
input FileNale Box04.In1 " "
input typeMHDorSeek Box22.In " "

# Complex output ports
output widget Box01.Widget " "
output wxvtkbaseview1 Box01.wxVtkBaseView1 " "
output render1 Box01.Renderer1 " "
output render2 Box01.Renderer2 " "
output render3 Box01.Renderer3 " "
output render4 Box01.Renderer4 " "
output Image Box02.Out " "
output point Box01.Point " "
output boxchange Box01.BoxChange " "
output wxvtkbaseview2 Box01.wxVtkBaseView2 " "
output wxvtkbaseview3 Box01.wxVtkBaseView3 " "
output wxvtkbaseview4 Box01.wxVtkBaseView4 " "


endefine