# ----------------------------------
# - 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
include wx

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"

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

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

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

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

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

new vtk:InversCrop Box14
  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"

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

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

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

new std:MagicBox Box22

new std:MagicBox Box23

new wx:ComboBox Box27
  set Box27.In "0 1 3"


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 Box06.Out Box07.In2
connect Box07.Out Box08.Origin
connect Box02.Out Box08.ImageFix
connect Box05.Out Box08.ImageMove
connect Box01.BoxChange Box08.BoxExecute
connect Box06.Out Box05.Slice
connect Box04.Out Box12.FileName
connect Box01.Point Box13.In
connect Box13.Out Box12.Slice
connect Box01.BoxChange Box14.BoxExecute
connect Box02.Out Box14.ImageFix
connect Box15.Out Box14.Origin
connect Box13.Out Box15.In2
connect Box12.Out2 Box14.ImageMove
connect Box19.Out Box18.Slice
connect Box21.Out Box20.Origin
connect Box19.Out Box21.In2
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 Box27.OutString Box22.In

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

# Complex output ports
output widget Box01.Widget " "
output wxvtkbaseview1 Box01.wxVtkBaseView1 " "
output render1 Box01.Renderer1 " "


endefine