bbtk_Transform3Ddicom_PKG/bbs/boxes/bbImageActorDicom.bbs_EED

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/Creatis/creaTools/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/boxes/PointBySpacing.bbs
   4 # ----------------------------------
   5
   6 load Transform3Ddicom
   7 load vtk
   8 load std
   9
  10 define ImageActorDicom Transform3Ddicom
  11
  12 author "davila.eduardo@creatis.univ-lyon1.fr"
  13 description "Extract one slice image to a  Viewer IRM univer"
  14 category "complex box, 3D object creator"
  15
  16 new MagicBox  magicboxIPP
  17 new MagicBox  magicboxIOP
  18 new MagicBox  magicboxPixelSpacing
  19 new MagicBox  magicboxZ
  20
  21 new ConcatStrings strCat
  22    set strCat.In1 "0"
  23    set strCat.In2 "0"
  24
  25 new NewDicomImaPosPat ndipp
  26
  27 new SliceImage sliceimage
  28
  29 new TransformSimple ts
  30
  31 new ImageActor actor
  32
  33
  34 connect magicboxZ.Out strCat.In3
  35 connect strCat.Out                ndipp.Point
  36 connect magicboxIPP.Out           ndipp.IPP
  37 connect magicboxIOP.Out           ndipp.IOP
  38 connect magicboxPixelSpacing.Out  ndipp.PixelSpacing
  39 connect magicboxZ.Out sliceimage.Z
  40 connect  ndipp.Out                 ts.IPP
  41 connect  magicboxIOP.Out           ts.IOP
  42 connect  magicboxPixelSpacing.Out  ts.PixelSpacing
  43 connect  sliceimage.Out            ts.InImage
  44 connect ts.OutImage actor.In
  45 connect ts.Out actor.Transform
  46
  47 # ----Require inputs----
  48  input IPP            magicboxIPP.In            "Image Position Patient"
  49  input OPP            magicboxIOP.In            "Image Orienation Patient"
  50  input PixelSpacing   magicboxPixelSpacing.In   "Spacing of the image"
  51  input Z              magicboxZ.In              "slice Z"
  52  input Image          sliceimage.In             "Input image"
  53  input Renderer       actor.Renderer            "The 2D image will be put in this rendere"
  54
  55
  56
  57 # ----output----
  58  output Out           actor.Out        "Actor vtk"
  59
  60 endefine