bbtk_Transform3Ddicom_PKG/bbs/boxes/SliceVectorImageDicom3D.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/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:ConcatStrings Box51
 117
 118 new wx:OutputText Box52
 119   set Box52.Title "Position Correction"
 120
 121
 122 connect Box02.Out Box04.In
 123 connect Box09.Out Box10.In
 124 connect Box12.Out Box15.In
 125 connect Box04.Out Box16.In
 126 connect Box10.Out Box17.In
 127 connect Box17.Out Box14.OPP
 128 connect Box19.Out Box12.In
 129 connect Box20.Out Box14.Renderer
 130 connect Box21.Out Box02.In
 131 connect Box21.Out Box09.In
 132 connect Box22.Out Box04.I
 133 connect Box22.Out Box10.I
 134 connect Box22.Out Box12.I
 135 connect Box12.Out Box24.In
 136 connect Box25.widget Box23.Widget2
 137 connect Box12.Out Box25.in
 138 connect Box26.Widget Box23.Widget3
 139 connect Box30.Out Box14.boxexecute
 140 connect Box30.Out Box28.BoxExecute
 141 connect Box30.Out Box29.BoxExecute
 142 connect Box17.Out Box28.In
 143 connect Box15.Spacing Box31.In1
 144 connect Box31.Out Box29.In
 145 connect Box30.Out Box24.BoxExecute
 146 connect Box12.Out Box35.In
 147 connect Box35.Out Box14.Image
 148 connect Box36.Out Box37.In
 149 connect Box21.Out Box36.In
 150 connect Box37.Out Box38.In
 151 connect Box30.Out Box38.BoxExecute
 152 connect Box22.Out Box37.I
 153 connect Box39.Out Box40.In
 154 connect Box21.Out Box39.In
 155 connect Box22.Out Box40.I
 156 connect Box40.Out Box41.In
 157 connect Box14.widget Box23.Widget4
 158 connect Box42.Out Box14.opacity
 159 connect Box24.Widget Box43.Widget1
 160 connect Box43.Widget Box23.Widget1
 161 connect Box45.Out Box14.IPP
 162 connect Box16.Out Box46.In
 163 connect Box46.Widget Box26.Widget1
 164 connect Box30.Out Box46.BoxExecute
 165 connect Box47.Out Box45.In1
 166 connect Box16.Out Box51.In1
 167 connect Box51.Out Box45.In0
 168 connect Box47.Out Box52.In
 169 connect Box38.Widget Box26.Widget8
 170 connect Box29.Widget Box26.Widget6
 171 connect Box28.Widget Box26.Widget4
 172 connect Box52.Widget Box26.Widget2
 173 connect Box30.Out Box52.BoxExecute
 174
 175 # Complex input ports
 176 input VecImage Box19.In " "
 177 input render Box20.In " "
 178 input VecDicomMap Box21.In " "
 179 input indexZ Box22.In " "
 180 input boxExecute Box30.In " "
 181 input OpacityPlane Box42.In " "
 182 input IPP_Correction Box47.In1 " "
 183
 184 # Complex output ports
 185 output image Box12.Out " "
 186 output _widget Box23.Widget " "
 187 output OutTransform Box14.outTransform " "
 188 output renderer Box24.Renderer1 " "
 189 output boxChange_ImageActor Box14.boxChangeImageActor " "
 190
 191
 192 endefine