bbtk_Transform3Ddicom_PKG/bbs/boxes/SliceVectorImageDicom3D.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/CreatisWorks/Transform3Ddicom/Transform3Ddicom/bbtk_Transform3Ddicom_PKG/bbs/boxes/SliceVectorImageDicom3D.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include creaImageIO
   9 include std
  10 include vtk
  11 include Transform3Ddicom
  12 include wx
  13 include creaMaracasVisu
  14 include toolsbbtk
  15
  16 define SliceVectorImageDicom3D Transform3Ddicom
  17
  18 author "Author ??"
  19 description "Description ??"
  20
  21 category "<VOID>"
  22
  23 new creaImageIO:GetDicomAttributesFromMaps Box02
  24   set Box02.KeyDicom "D0020_0032"
  25
  26 new std:GetVectorStringElement Box04
  27   set Box04.ErrorValue "1000 1000 1000 "
  28
  29 new creaImageIO:GetDicomAttributesFromMaps Box09
  30   set Box09.KeyDicom "D0020_0037"
  31
  32 new std:GetVectorStringElement Box10
  33   set Box10.ErrorValue "1 0 0 0 0 1"
  34
  35 new vtk:GetVectorVtkImageDataElement Box12
  36
  37 new Transform3Ddicom:ImageActorDicom Box14
  38   set Box14.IPP "-143.58 -59.34 -24.34"
  39   set Box14.OPP "0.97 -0.19 -0.11 0.21 0.68 0.69"
  40   set Box14.PixelSpacing "1 1 1"
  41   set Box14.Z "0"
  42
  43 new vtk:ImageVtkProperties Box15
  44
  45 new std:ReplaceString Box16
  46   set Box16.Replace " "
  47   set Box16.Search "\"
  48
  49 new std:ReplaceString Box17
  50   set Box17.Replace " "
  51   set Box17.Search "\"
  52
  53 new std:MagicBox Box19
  54
  55 new std:MagicBox Box20
  56
  57 new std:MagicBox Box21
  58
  59 new std:MagicBox Box22
  60
  61 new wx:LayoutTab Box23
  62
  63 new creaMaracasVisu:ViewerNV Box24
  64   set Box24.nTypeView "-1"
  65
  66 new toolsbbtk:ImageVtkPropertiesWidget Box25
  67
  68 new wx:LayoutLine Box26
  69   set Box26.WinTitle "DicomInfo"
  70
  71 new wx:OutputText Box28
  72   set Box28.Title "Orientation"
  73
  74 new wx:OutputText Box29
  75   set Box29.Title "Spacing"
  76
  77 new std:MagicBox Box30
  78
  79 new std:ConcatStrings Box31
  80   set Box31.In2 " 1.17188"
  81
  82 new vtk:RescaleSlopeIntercept Box35
  83   set Box35.A "1"
  84
  85 new creaImageIO:GetDicomAttributesFromMaps Box36
  86   set Box36.KeyDicom "D0018_1060"
  87
  88 new std:GetVectorStringElement Box37
  89   set Box37.ErrorValue "1000 1000 1000 "
  90
  91 new wx:OutputText Box38
  92   set Box38.Title "Trigger Time"
  93
  94 new creaImageIO:GetDicomAttributesFromMaps Box39
  95   set Box39.KeyDicom "D0020_1041"
  96
  97 new std:GetVectorStringElement Box40
  98   set Box40.ErrorValue "-9999"
  99
 100 new wx:OutputText Box41
 101   set Box41.Title "Slice Location"
 102
 103 new std:MagicBox Box42
 104
 105 new wx:LayoutLine Box43
 106   set Box43.WinTitle "Image"
 107
 108 new std:MathOperationVector Box45
 109   set Box45.Type "1"
 110
 111 new wx:OutputText Box46
 112   set Box46.Title "Position"
 113
 114 new std:ConcatStrings Box47
 115
 116 new std:MathOperationVector Box49
 117
 118 new std:ConcatStrings Box51
 119
 120 new wx:OutputText Box52
 121   set Box52.Title "Position Correction"
 122
 123
 124 connect Box02.Out Box04.In
 125 connect Box09.Out Box10.In
 126 connect Box12.Out Box15.In
 127 connect Box04.Out Box16.In
 128 connect Box10.Out Box17.In
 129 connect Box17.Out Box14.OPP
 130 connect Box19.Out Box12.In
 131 connect Box20.Out Box14.Renderer
 132 connect Box21.Out Box02.In
 133 connect Box21.Out Box09.In
 134 connect Box22.Out Box04.I
 135 connect Box22.Out Box10.I
 136 connect Box22.Out Box12.I
 137 connect Box12.Out Box24.In
 138 connect Box25.widget Box23.Widget2
 139 connect Box12.Out Box25.in
 140 connect Box26.Widget Box23.Widget3
 141 connect Box30.Out Box14.boxexecute
 142 connect Box30.Out Box28.BoxExecute
 143 connect Box30.Out Box29.BoxExecute
 144 connect Box17.Out Box28.In
 145 connect Box15.Spacing Box31.In1
 146 connect Box31.Out Box29.In
 147 connect Box30.Out Box24.BoxExecute
 148 connect Box12.Out Box35.In
 149 connect Box35.Out Box14.Image
 150 connect Box36.Out Box37.In
 151 connect Box21.Out Box36.In
 152 connect Box37.Out Box38.In
 153 connect Box30.Out Box38.BoxExecute
 154 connect Box22.Out Box37.I
 155 connect Box39.Out Box40.In
 156 connect Box21.Out Box39.In
 157 connect Box22.Out Box40.I
 158 connect Box40.Out Box41.In
 159 connect Box14.widget Box23.Widget4
 160 connect Box42.Out Box14.opacity
 161 connect Box24.Widget Box43.Widget1
 162 connect Box43.Widget Box23.Widget1
 163 connect Box45.Out Box14.IPP
 164 connect Box16.Out Box46.In
 165 connect Box46.Widget Box26.Widget1
 166 connect Box30.Out Box46.BoxExecute
 167 connect Box47.Out Box45.In1
 168 connect Box16.Out Box51.In1
 169 connect Box51.Out Box45.In0
 170 connect Box47.Out Box52.In
 171 connect Box38.Widget Box26.Widget8
 172 connect Box29.Widget Box26.Widget6
 173 connect Box28.Widget Box26.Widget4
 174 connect Box52.Widget Box26.Widget2
 175 connect Box30.Out Box52.BoxExecute
 176
 177 # Complex input ports
 178 input VecImage Box19.In " "
 179 input render Box20.In " "
 180 input VecDicomMap Box21.In " "
 181 input indexZ Box22.In " "
 182 input boxExecute Box30.In " "
 183 input OpacityPlane Box42.In " "
 184 input IPP_Correction Box47.In1 " "
 185
 186 # Complex output ports
 187 output image Box12.Out " "
 188 output _widget Box23.Widget " "
 189 output OutTransform Box14.outTransform " "
 190 output renderer Box24.Renderer1 " "
 191
 192
 193 endefine