--- /dev/null
+
+
+load Transform3Ddicom
+load vtk
+load std
+load itk
+load itkvtk
+
+
+define SubVolumeDicom Transform3Ddicom
+
+description "Extract sub volume with dicom info"
+author "davila.eduardo@creatis.univ-lyon1.fr"
+category "complex box, 3D object creator"
+
+
+
+new MagicBox magicboxIPP
+new MagicBox magicboxIOP
+new MagicBox magicboxPixelSpacing
+new MagicBox magicboxIndex
+
+new NewDicomImaPosPat ndipp
+ connect magicboxIndex.Out ndipp.Point
+ connect magicboxIPP.Out ndipp.IPP
+ connect magicboxIOP.Out ndipp.IOP
+ connect magicboxPixelSpacing.Out ndipp.PixelSpacing
+
+
+new ImageRegion imageregion
+ connect magicboxIndex.Out imageregion.Index
+
+new ExtractImageFilter extractimagefilter
+ connect imageregion.Out extractimagefilter.Region
+
+
+// ----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 Index magicboxIndex.In "Index of the subvolume"
+ input Size imageregion.Size "Size subvolume"
+ input In extractimagefilter.In "Image"
+
+
+// ----output----
+ output Out extractimagefilter.Out "sub image"
+
+endefine
+