load Transform3Ddicom
load vtk
load std

define MetaImageDicomInfoWriter Transform3Ddicom

description "Read MHD and MHD_dicom"
author "davila.eduardo@creatis.univ-lyon1.fr"
category "complex box, read/write"


new MagicBox magicboxFilename

new ConcatStrings catStr
  connect magicboxFilename.Out catStr.In1
  set catStr.In2 "_dicominfo"

new MetaImageWriter_DicomInfo writerdicominfo
  connect catStr.Out writerdicominfo.Filename

new MetaImageWriter metaimagewriter
	connect magicboxFilename.Out metaimagewriter.Filename


// ----Require inputs----
 input IPP            writerdicominfo.IPP            "Image Position Patient"
 input OPP            writerdicominfo.IOP            "Image Orienation Patient"
 input PixelSpacing   writerdicominfo.PixelSpacing   "Spacing of the image"
 input Image          magicboxFilename.In            "Input image"
 input In             metaimagewriter.Filename       "File Name"


// ----Optional inputs----
// input Colour         actor.Colour        "Color of the surface"
// input Opacity        actor.Opacity       "Opacity of the surface"

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

endefine