bbtk_Transform3Ddicom_PKG/bbs/boxes/bbImageActorDicom.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.5 BBS BlackBox Script (Complex Box)
   3 # - /Users/davila/Creatis/C23/creatools_source/creaImageIO/bbtk_Transform3Ddicom_PKG/bbs/boxes/bbImageActorDicom.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include std
   9 include Transform3Ddicom
  10 include creaMaracasVisu
  11 include vtk
  12 include creaVtk
  13
  14 define ImageActorDicom Transform3Ddicom
  15
  16 author "davila.eduardo@creatis.univ-lyon1.fr"
  17 description "Extract one slice image to a  Viewer IRM univer"
  18
  19 category "complex box, 3D object creator"
  20
  21 new std:MagicBox magicboxZ
  22
  23 new std:ConcatStrings strCat
  24   set strCat.In1 "0 "
  25   set strCat.In2 "0 "
  26
  27 new Transform3Ddicom:NewDicomImaPosPat ndipp
  28
  29 new Transform3Ddicom:TransformSimple ts
  30
  31 new creaMaracasVisu:ImageActor actor
  32
  33 new std:MagicBox Box11
  34
  35 new creaMaracasVisu:DrawAxisTree3D Box10
  36   set Box10.ColourLaw "2"
  37   set Box10.LineWidth "2"
  38   set Box10.Opacity "1"
  39   set Box10.iAxis "0"
  40   set Box10.lstRadio "1 1 1  1 1 1 1 1"
  41
  42 new Transform3Ddicom:CreateAxesTreeData Box12
  43
  44 new std:MagicBox Box13
  45
  46 new vtk:ImageVtkProperties Box14
  47
  48 new creaVtk:ConcatTransform Box15
  49
  50 new vtk:TransformWidget Box16
  51   set Box16.TitleWindow "Transform"
  52
  53 new std:MultipleInputs Box17
  54
  55 new vtk:UpdateRender Box18
  56   set Box18.Active "true"
  57
  58 new vtk:Transform Box20
  59   set Box20.Translate "-130 -114 0"
  60
  61 new vtk:Transform Box21
  62   set Box21.Translate "130 114 0"
  63
  64 new std:ConcatStrings Box23
  65
  66 new std:ConcatStrings Box24
  67
  68 new std:ConcatStrings Box25
  69
  70 new std:MagicBox Box27
  71
  72 new creaMaracasVisu:SliceImage Box28
  73
  74 new vtk:vtkImageDataPointerRelay Box29
  75
  76
  77 connect magicboxZ.Out strCat.In3
  78 connect strCat.Out ndipp.Point
  79 connect ndipp.Out ts.IPP
  80 connect ts.OutImage actor.In
  81 connect Box12.LstZ Box10.lstPointZ
  82 connect Box12.LstY Box10.lstPointY
  83 connect Box12.LstX Box10.lstPointX
  84 connect Box12.LstIndex Box10.lstIndexs
  85 connect Box12.LstColor Box10.Colour
  86 connect Box11.Out Box10.BoxExecute
  87 connect Box11.Out Box12.BoxExecute
  88 connect Box13.Out actor.Renderer
  89 connect Box13.Out Box10.Renderer
  90 connect Box14.Size Box12.ImageSize
  91 connect Box14.Spacing Box12.ImageSpacing
  92 connect Box15.Out actor.Transform
  93 connect Box16.BoxChange Box17.In1
  94 connect Box11.Out Box17.In2
  95 connect Box17.BoxChange actor.BoxExecute
  96 connect Box16.BoxChange Box18.BoxExecute
  97 connect Box13.Out Box18.Renderer
  98 connect Box16.Transform Box15.In2
  99 connect Box20.Out Box15.In1
 100 connect Box21.Out Box15.In3
 101 connect ts.Out Box15.In4
 102 connect Box23.Out ndipp.IOP
 103 connect Box23.Out ts.IOP
 104 connect Box23.Out Box12.IOP
 105 connect Box24.Out ndipp.IPP
 106 connect Box24.Out Box12.IPP
 107 connect Box25.Out ndipp.PixelSpacing
 108 connect Box25.Out ts.PixelSpacing
 109 connect Box27.Out actor.Opacity
 110 connect Box27.Out Box10.Opacity
 111 connect magicboxZ.Out Box28.Z
 112 connect Box29.Out Box28.In
 113 connect Box28.Out Box14.In
 114 connect Box28.Out ts.InImage
 115
 116 # Complex input ports
 117 input Z magicboxZ.In " "
 118 input boxexecute Box11.BoxExecute " "
 119 input Renderer Box13.In " "
 120 input OPP Box23.In1 " "
 121 input IPP Box24.In1 " "
 122 input PixelSpacing Box25.In1 " "
 123 input opacity Box27.In " "
 124 input Image Box29.In " "
 125
 126 # Complex output ports
 127 output Out actor.Out " "
 128 output widget Box16.Window " "
 129 output outTransform Box15.Out " "
 130 output boxChangeImageActor actor.BoxChange " "
 131
 132
 133 endefine