bbtk_Transform3Ddicom_PKG/bbs/boxes/ViewerPlaneContourDicom3D.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
   3 # - /home/davila/CreatisWorks/Transform3Ddicom/Transform3Ddicom/bbtk_Transform3Ddicom_PKG/bbs/boxes/ViewerPlaneContourDicom3D.bbs
   4 # ----------------------------------
   5
   6 include std
   7 include itkvtk
   8 include Transform3Ddicom
   9 include creaImageIO
  10 include std
  11 include vtk
  12 include creaVtk
  13 include wx
  14
  15 define ViewerPlaneContourDicom3D Transform3Ddicom
  16
  17 author "Author ??"
  18 description "Description ??"
  19
  20 category "<VOID>"
  21
  22 new Transform3Ddicom:SliceVectorImageDicom3D Box11
  23   set Box11.OpacityPlane "0.2"
  24
  25 new creaImageIO:ReadImages Box24
  26   set Box24.DicomTags "D0020_0032 D0020_0037 D0018_1060"
  27
  28 new std:FilesFromDirectory Box30
  29   set Box30.FileEnd ".dcm"
  30   set Box30.In "/home/davila/CreatisWorks/tmpSIMR/results/creaSIMR-Visu/Genet/Original_Images_Dicom/test_01/p_0001/condition_01/cine_tfi_retro_p3_SA 9"
  31
  32 new std:ReplaceString Box46
  33   set Box46.Replace " "
  34   set Box46.Search "\ "
  35
  36 new std:GetDoubleVectorSize Box55
  37
  38 new std:Add Box56
  39   set Box56.In2 "-1"
  40
  41 new vtk:Transform Box73
  42   set Box73.Scale "1  1  1"
  43
  44 new creaVtk:ConcatTransform Box75
  45
  46 new std:GetVectorStringElement Box119
  47
  48 new wx:Slider Box120
  49   set Box120.In "2"
  50   set Box120.Min "0"
  51   set Box120.ReactiveOnTrack "true"
  52
  53 new wx:LayoutLine Box121
  54
  55 new wx:OutputText Box122
  56
  57 new std:SplitFilePathVector Box123
  58
  59 new wx:Slider Box124
  60   set Box124.In "100"
  61   set Box124.Label "true"
  62   set Box124.Max "100"
  63   set Box124.Min "0"
  64   set Box124.ReactiveOnTrack "true"
  65   set Box124.Title "Plane Opacity"
  66
  67 new std:Div Box125
  68   set Box125.In2 "100"
  69
  70 new wx:LayoutTab Box126
  71
  72 new std:MultipleInputs Box129
  73
  74 new vtk:PolyDataToActor Box130
  75   set Box130.Colour "0 1 1"
  76   set Box130.LineWidth "2"
  77   set Box130.Opacity "1"
  78   set Box130.Representation "1"
  79
  80 new creaVtk:Plane Box131
  81   set Box131.Origin "0 0 35"
  82
  83 new creaVtk:Cutter Box132
  84
  85 new vtk:Transform Box134
  86   set Box134.Inverse "true"
  87
  88 new creaVtk:ConcatTransform Box135
  89
  90 new creaVtk:ApplyTransformToPoint3D Box136
  91
  92 new std:MultipleInputs Box151
  93
  94 new creaVtk:ConcatTransform Box152
  95
  96 new vtk:Transform Box153
  97   set Box153.Inverse "true"
  98
  99 new vtk:PolyDataToActor Box154
 100   set Box154.Colour "0 1 1"
 101   set Box154.LineWidth "2"
 102   set Box154.Opacity "1"
 103   set Box154.Representation "1"
 104
 105 new vtk:Transform Box155
 106   set Box155.Inverse "true"
 107   set Box155.Translate "0 0 35"
 108
 109 new std:MagicBox Box145
 110
 111 new std:MagicBox Box146
 112
 113 new std:MagicBox Box147
 114
 115 new std:MagicBox Box148
 116
 117 new std:ConcatStrings Box150
 118   set Box150.In1 "Plan"
 119
 120 new std:ConcatStrings Box160
 121   set Box160.In1 "0"
 122
 123 new std:MagicBox Box161
 124
 125 new std:MagicBox Box53
 126
 127 new creaVtk:Cutter Box54
 128
 129 new vtk:PolyDataToActor Box57
 130   set Box57.Colour "1 1 0"
 131   set Box57.LineWidth "2"
 132   set Box57.Opacity "1"
 133   set Box57.Representation "1"
 134
 135 new vtk:PolyDataToActor Box58
 136   set Box58.Colour "1 1 0"
 137   set Box58.LineWidth "2"
 138   set Box58.Opacity "1"
 139   set Box58.Representation "1"
 140
 141 new wx:LayoutLine Box59
 142   set Box59.Orientation "H"
 143
 144 new wx:Slider Box60
 145   set Box60.In "100"
 146   set Box60.Label "true"
 147   set Box60.Max "100"
 148   set Box60.Min "0"
 149   set Box60.ReactiveOnTrack "true"
 150   set Box60.Title "Int. Cont .Opacity"
 151
 152 new std:Div Box61
 153   set Box61.In2 "100"
 154
 155 new wx:Slider Box62
 156   set Box62.In "100"
 157   set Box62.Label "true"
 158   set Box62.Max "100"
 159   set Box62.Min "0"
 160   set Box62.ReactiveOnTrack "true"
 161   set Box62.Title "Ext. Cont .Opacity"
 162
 163 new std:Div Box63
 164   set Box63.In2 "100"
 165
 166 new vtk:UpdateRender Box65
 167   set Box65.Active "true"
 168
 169 new std:MultipleInputs Box66
 170
 171 new std:MagicBox Box67
 172
 173 new vtk:UpdateRender Box51
 174   set Box51.Active "true"
 175
 176 new std:MultipleInputs Box52
 177
 178 new std:ConcatStrings Box68
 179   set Box68.In2 "/translation.txt"
 180
 181 new std:ReplaceCleanString Box69
 182   set Box69.Replace "Original_Images_Translations"
 183   set Box69.Search "Original_Images_Dicom"
 184
 185 new std:ReadLinesString Box70
 186
 187
 188 connect Box24.DicomInfo Box11.VecDicomMap
 189 connect Box24.OutImages Box11.VecImage
 190 connect Box30.Out Box46.In
 191 connect Box46.Out Box24.LstNameImages
 192 connect Box55.VectorSize Box56.In1
 193 connect Box73.Out Box75.In1
 194 connect Box120.Out Box119.I
 195 connect Box120.Widget Box121.Widget2
 196 connect Box119.Out Box123.In
 197 connect Box123.BaseName Box122.In
 198 connect Box122.Widget Box121.Widget4
 199 connect Box120.BoxChange Box122.BoxExecute
 200 connect Box124.Out Box125.In1
 201 connect Box124.Widget Box121.Widget7
 202 connect Box121.Widget Box126.Widget1
 203 connect Box124.BoxChange Box129.In3
 204 connect Box120.BoxChange Box129.In4
 205 connect Box56.Out Box120.Max
 206 connect Box119.Out Box30.In
 207 connect Box125.Out Box11.OpacityPlane
 208 connect Box132.Out Box130.In
 209 connect Box136.Out Box131.Origin
 210 connect Box136.OutDirection Box131.Normal
 211 connect Box131.Out Box132.ImplicitFunction
 212 connect Box75.Out Box130.Transform
 213 connect Box134.Out Box135.In2
 214 connect Box11.OutTransform Box135.In1
 215 connect Box135.Out Box136.Transform
 216 connect Box130.BoxChange Box151.In3
 217 connect Box75.Out Box152.In1
 218 connect Box153.Out Box152.In2
 219 connect Box11.OutTransform Box153.In
 220 connect Box132.Out Box154.In
 221 connect Box152.Out Box154.Transform
 222 connect Box154.BoxChange Box151.In6
 223 connect Box11.renderer Box154.Renderer
 224 connect Box155.Out Box152.In3
 225 connect Box145.Out Box55.In
 226 connect Box145.Out Box119.In
 227 connect Box129.BoxChange Box11.boxExecute
 228 connect Box146.BoxChange Box129.In1
 229 connect Box147.Out Box11.indexZ
 230 connect Box148.Out Box11.render
 231 connect Box148.Out Box130.Renderer
 232 connect Box150.Out Box121.WinTitle
 233 connect Box160.Out Box120.In
 234 connect Box161.Out Box132.In
 235 connect Box53.Out Box54.In
 236 connect Box131.Out Box54.ImplicitFunction
 237 connect Box54.Out Box57.In
 238 connect Box54.Out Box58.In
 239 connect Box75.Out Box57.Transform
 240 connect Box152.Out Box58.Transform
 241 connect Box148.Out Box57.Renderer
 242 connect Box57.BoxChange Box151.In1
 243 connect Box58.BoxChange Box151.In2
 244 connect Box11.renderer Box58.Renderer
 245 connect Box59.Widget Box121.Widget8
 246 connect Box60.Out Box61.In1
 247 connect Box60.Widget Box59.Widget1
 248 connect Box62.Out Box63.In1
 249 connect Box61.Out Box57.Opacity
 250 connect Box61.Out Box58.Opacity
 251 connect Box63.Out Box130.Opacity
 252 connect Box63.Out Box154.Opacity
 253 connect Box62.Widget Box59.Widget3
 254 connect Box11.renderer Box65.Renderer
 255 connect Box66.BoxChange Box65.BoxExecute
 256 connect Box60.BoxChange Box66.In1
 257 connect Box62.BoxChange Box66.In3
 258 connect Box67.Out Box134.In
 259 connect Box67.Out Box75.In2
 260 connect Box73.Out Box135.In3
 261 connect Box129.BoxChange Box151.In4
 262 connect Box148.Out Box51.Renderer
 263 connect Box124.BoxChange Box52.In1
 264 connect Box120.BoxChange Box52.In3
 265 connect Box52.BoxChange Box51.BoxExecute
 266 connect Box66.BoxChange Box52.In4
 267 connect Box119.Out Box68.In1
 268 connect Box68.Out Box69.In
 269 connect Box69.Out Box70.FileName
 270 connect Box70.Out Box11.IPP_Correction
 271
 272 # Complex input ports
 273 input lstDirInstans Box145.In " "
 274 input StartPlane Box160.In1 " "
 275 input TitleWidget Box150.In1 " "
 276 input boxchange Box146.In " "
 277 input iPlane Box147.In " "
 278 input render3D Box148.In " "
 279 input surfExternal Box161.In " "
 280 input surfInternal Box53.In " "
 281 input TransformRefForSurface Box67.In " "
 282
 283 # Complex output ports
 284 output widgetControls Box126.Widget " "
 285 output widget2D Box11._widget " "
 286 output boxExecuteForRender Box151.BoxChange " "
 287
 288
 289 endefine