bbtk_Transform3Ddicom_PKG/bbs/boxes/bbSubVolDicom.bbs

   1
   2
   3 load Transform3Ddicom
   4 load vtk
   5 load std
   6 load itk
   7 load itkvtk
   8
   9
  10 define SubVolumeDicom Transform3Ddicom
  11
  12 description "Extract sub volume with dicom info"
  13 author "davila.eduardo@creatis.univ-lyon1.fr"
  14 category "complex box, 3D object creator"
  15
  16
  17
  18 new MagicBox magicboxIPP
  19 new MagicBox magicboxIOP
  20 new MagicBox magicboxPixelSpacing
  21 new MagicBox magicboxIndex
  22
  23 new NewDicomImaPosPat ndipp
  24   connect magicboxIndex.Out         ndipp.Point
  25   connect magicboxIPP.Out           ndipp.IPP
  26   connect magicboxIOP.Out           ndipp.IOP
  27   connect magicboxPixelSpacing.Out  ndipp.PixelSpacing
  28
  29
  30 new ImageRegion imageregion
  31   connect magicboxIndex.Out  imageregion.Index
  32
  33 new ExtractImageFilter extractimagefilter
  34   connect imageregion.Out  extractimagefilter.Region
  35
  36
  37 // ----Require inputs----
  38  input IPP            magicboxIPP.In            "Image Position Patient"
  39  input OPP            magicboxIOP.In            "Image Orienation Patient"
  40  input PixelSpacing   magicboxPixelSpacing.In   "Spacing of the image"
  41  input Index          magicboxIndex.In          "Index of the subvolume"
  42  input Size           imageregion.Size          "Size subvolume"
  43  input In             extractimagefilter.In     "Image"
  44
  45
  46 // ----output----
  47  output Out            extractimagefilter.Out        "sub image"
  48
  49 endefine
  50