bbtk_Transform3Ddicom_PKG/bbs/boxes/bbImageActorDicom.bbs

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