# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/CreatisWorks/Transform3Ddicom/Transform3Ddicom/bbtk_Transform3Ddicom_PKG/bbs/boxes/bbImageActorDicom.bbs
# ----------------------------------

include std
include itkvtk
include std
include Transform3Ddicom
include creaMaracasVisu
include vtk
include creaVtk
include wx

define ImageActorDicom Transform3Ddicom

author "davila.eduardo@creatis.univ-lyon1.fr"
description "Extract one slice image to a  Viewer IRM univer"

category "complex box, 3D object creator"

new std:MagicBox magicboxZ

new std:ConcatStrings strCat
  set strCat.In1 "0 "
  set strCat.In2 "0 "

new Transform3Ddicom:NewDicomImaPosPat ndipp

new Transform3Ddicom:TransformSimple ts

new creaMaracasVisu:ImageActor actor

new std:MagicBox Box11

new creaMaracasVisu:DrawAxisTree3D Box10
  set Box10.ColourLaw "2"
  set Box10.LineWidth "2"
  set Box10.Opacity "1"
  set Box10.iAxis "0"
  set Box10.lstRadio "1 1 1  1 1 1 1 1"

new Transform3Ddicom:CreateAxesTreeData Box12

new std:MagicBox Box13

new vtk:ImageVtkProperties Box14

new creaVtk:ConcatTransform Box15

new vtk:TransformWidget Box16
  set Box16.TitleWindow "Transform"

new std:MultipleInputs Box17

new vtk:UpdateRender Box18
  set Box18.Active "true"

new wx:OutputText Box19
  set Box19.In "ups"

new vtk:Transform Box20
  set Box20.Translate "-130 -114 0"

new vtk:Transform Box21
  set Box21.Translate "130 114 0"

new std:ConcatStrings Box23

new std:ConcatStrings Box24

new std:ConcatStrings Box25

new std:MagicBox Box27

new creaMaracasVisu:SliceImage Box28

new vtk:vtkImageDataPointerRelay Box29


connect magicboxZ.Out strCat.In3
connect strCat.Out ndipp.Point
connect ndipp.Out ts.IPP
connect ts.OutImage actor.In
connect Box12.LstZ Box10.lstPointZ
connect Box12.LstY Box10.lstPointY
connect Box12.LstX Box10.lstPointX
connect Box12.LstIndex Box10.lstIndexs
connect Box12.LstColor Box10.Colour
connect Box11.Out Box10.BoxExecute
connect Box11.Out Box12.BoxExecute
connect Box13.Out actor.Renderer
connect Box13.Out Box10.Renderer
connect Box14.Size Box12.ImageSize
connect Box14.Spacing Box12.ImageSpacing
connect Box15.Out actor.Transform
connect Box16.BoxChange Box17.In1
connect Box11.Out Box17.In2
connect Box17.BoxChange actor.BoxExecute
connect Box16.BoxChange Box18.BoxExecute
connect Box13.Out Box18.Renderer
connect Box16.Transform Box15.In2
connect Box20.Out Box15.In1
connect Box21.Out Box15.In3
connect ts.Out Box15.In4
connect Box23.Out ndipp.IOP
connect Box23.Out ts.IOP
connect Box23.Out Box12.IOP
connect Box24.Out ndipp.IPP
connect Box24.Out Box12.IPP
connect Box25.Out ndipp.PixelSpacing
connect Box25.Out ts.PixelSpacing
connect Box27.Out actor.Opacity
connect Box27.Out Box10.Opacity
connect magicboxZ.Out Box28.Z
connect Box29.Out Box28.In
connect Box28.Out Box14.In
connect Box28.Out ts.InImage

# Complex input ports
input Z magicboxZ.In " "
input boxexecute Box11.BoxExecute " "
input Renderer Box13.In " "
input OPP Box23.In1 " "
input IPP Box24.In1 " "
input PixelSpacing Box25.In1 " "
input opacity Box27.In " "
input Image Box29.In " "

# Complex output ports
output Out actor.Out " "
output widget Box16.Window " "
output outTransform Box15.Out " "


endefine