# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /home/davila/Creatis/creaTools/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/boxes/PointBySpacing.bbs
# ----------------------------------

load Transform3Ddicom
load vtk
load std

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 MagicBox  magicboxIPP
new MagicBox  magicboxIOP
new MagicBox  magicboxPixelSpacing
new MagicBox  magicboxZ

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

new NewDicomImaPosPat ndipp

new SliceImage sliceimage

new TransformSimple ts

new ImageActor actor


connect magicboxZ.Out strCat.In3
connect strCat.Out                ndipp.Point
connect magicboxIPP.Out           ndipp.IPP
connect magicboxIOP.Out           ndipp.IOP
connect magicboxPixelSpacing.Out  ndipp.PixelSpacing
connect magicboxZ.Out sliceimage.Z
connect  ndipp.Out                 ts.IPP
connect  magicboxIOP.Out           ts.IOP
connect  magicboxPixelSpacing.Out  ts.PixelSpacing
connect  sliceimage.Out            ts.InImage
connect ts.OutImage actor.In
connect ts.Out actor.Transform

# ----Require inputs----
 input IPP            magicboxIPP.In            "Image Position Patient"
 input OPP            magicboxIOP.In            "Image Orienation Patient"
 input PixelSpacing   magicboxPixelSpacing.In   "Spacing of the image"
 input Z              magicboxZ.In              "slice Z"
 input Image          sliceimage.In             "Input image"
 input Renderer       actor.Renderer            "The 2D image will be put in this rendere"



# ----output----
 output Out           actor.Out        "Actor vtk"

endefine