bbtk_Transform3Ddicom_PKG/bbs/boxes/ViewerPlaneContourDicom3D.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/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 ".IMA"
  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 vtk:Transform Box73
  37   set Box73.Scale "1  1  1"
  38
  39 new creaVtk:ConcatTransform Box75
  40
  41 new std:GetVectorStringElement Box119
  42
  43 new wx:LayoutLine Box121
  44
  45 new wx:Slider Box124
  46   set Box124.In "100"
  47   set Box124.Label "true"
  48   set Box124.Max "100"
  49   set Box124.Min "0"
  50   set Box124.ReactiveOnTrack "true"
  51   set Box124.Title "Plane Opacity"
  52
  53 new std:Div Box125
  54   set Box125.In2 "100"
  55
  56 new wx:LayoutTab Box126
  57
  58 new std:MultipleInputs Box129
  59
  60 new vtk:PolyDataToActor Box130
  61   set Box130.Colour "0 1 1"
  62   set Box130.LineWidth "2"
  63   set Box130.Opacity "1"
  64   set Box130.Representation "1"
  65
  66 new creaVtk:Plane Box131
  67   set Box131.Origin "0 0 35"
  68
  69 new creaVtk:Cutter Box132
  70
  71 new vtk:Transform Box134
  72   set Box134.Inverse "true"
  73
  74 new creaVtk:ConcatTransform Box135
  75
  76 new creaVtk:ApplyTransformToPoint3D Box136
  77
  78 new std:MultipleInputs Box151
  79
  80 new creaVtk:ConcatTransform Box152
  81
  82 new vtk:Transform Box153
  83   set Box153.Inverse "true"
  84
  85 new vtk:PolyDataToActor Box154
  86   set Box154.Colour "0 1 1"
  87   set Box154.LineWidth "2"
  88   set Box154.Opacity "1"
  89   set Box154.Representation "1"
  90
  91 new vtk:Transform Box155
  92   set Box155.Inverse "true"
  93   set Box155.Translate "0 0 35"
  94
  95 new std:MagicBox Box145
  96
  97 new std:MagicBox Box146
  98
  99 new std:MagicBox Box147
 100
 101 new std:MagicBox Box148
 102
 103 new std:ConcatStrings Box150
 104   set Box150.In1 "Plan"
 105
 106 new std:ConcatStrings Box160
 107   set Box160.In1 "0"
 108
 109 new std:MagicBox Box161
 110
 111 new std:MagicBox Box53
 112
 113 new creaVtk:Cutter Box54
 114
 115 new vtk:PolyDataToActor Box57
 116   set Box57.Colour "1 1 0"
 117   set Box57.LineWidth "2"
 118   set Box57.Opacity "1"
 119   set Box57.Representation "1"
 120
 121 new vtk:PolyDataToActor Box58
 122   set Box58.Colour "1 1 0"
 123   set Box58.LineWidth "2"
 124   set Box58.Opacity "1"
 125   set Box58.Representation "1"
 126
 127 new wx:LayoutLine Box59
 128   set Box59.Orientation "H"
 129
 130 new wx:Slider Box60
 131   set Box60.In "100"
 132   set Box60.Label "true"
 133   set Box60.Max "100"
 134   set Box60.Min "0"
 135   set Box60.ReactiveOnTrack "true"
 136   set Box60.Title "Int. Cont .Opacity"
 137
 138 new std:Div Box61
 139   set Box61.In2 "100"
 140
 141 new wx:Slider Box62
 142   set Box62.In "100"
 143   set Box62.Label "true"
 144   set Box62.Max "100"
 145   set Box62.Min "0"
 146   set Box62.ReactiveOnTrack "true"
 147   set Box62.Title "Ext. Cont .Opacity"
 148
 149 new std:Div Box63
 150   set Box63.In2 "100"
 151
 152 new vtk:UpdateRender Box65
 153   set Box65.Active "true"
 154
 155 new std:MultipleInputs Box66
 156
 157 new std:MagicBox Box67
 158
 159 new vtk:UpdateRender Box51
 160   set Box51.Active "true"
 161
 162 new std:MultipleInputs Box52
 163
 164 new std:ConcatStrings Box68
 165   set Box68.In2 "/translation.txt"
 166
 167 new std:ReplaceCleanString Box69
 168   set Box69.Replace "Original_Images_Translations"
 169   set Box69.Search "Original_Images_Dicom"
 170
 171 new std:ReadLinesString Box70
 172
 173 new wx:ComboBox Box71
 174
 175 new std:SplitFilePathVector Box72
 176
 177 new std:MagicBox Box74
 178
 179
 180 connect Box24.DicomInfo Box11.VecDicomMap
 181 connect Box24.OutImages Box11.VecImage
 182 connect Box30.Out Box46.In
 183 connect Box46.Out Box24.LstNameImages
 184 connect Box73.Out Box75.In1
 185 connect Box124.Out Box125.In1
 186 connect Box124.Widget Box121.Widget7
 187 connect Box121.Widget Box126.Widget1
 188 connect Box124.BoxChange Box129.In3
 189 connect Box119.Out Box30.In
 190 connect Box125.Out Box11.OpacityPlane
 191 connect Box132.Out Box130.In
 192 connect Box136.Out Box131.Origin
 193 connect Box136.OutDirection Box131.Normal
 194 connect Box131.Out Box132.ImplicitFunction
 195 connect Box75.Out Box130.Transform
 196 connect Box134.Out Box135.In2
 197 connect Box11.OutTransform Box135.In1
 198 connect Box135.Out Box136.Transform
 199 connect Box130.BoxChange Box151.In3
 200 connect Box75.Out Box152.In1
 201 connect Box153.Out Box152.In2
 202 connect Box11.OutTransform Box153.In
 203 connect Box132.Out Box154.In
 204 connect Box152.Out Box154.Transform
 205 connect Box154.BoxChange Box151.In6
 206 connect Box11.renderer Box154.Renderer
 207 connect Box155.Out Box152.In3
 208 connect Box145.Out Box119.In
 209 connect Box129.BoxChange Box11.boxExecute
 210 connect Box146.BoxChange Box129.In1
 211 connect Box147.Out Box11.indexZ
 212 connect Box148.Out Box11.render
 213 connect Box148.Out Box130.Renderer
 214 connect Box150.Out Box121.WinTitle
 215 connect Box161.Out Box132.In
 216 connect Box53.Out Box54.In
 217 connect Box131.Out Box54.ImplicitFunction
 218 connect Box54.Out Box57.In
 219 connect Box54.Out Box58.In
 220 connect Box75.Out Box57.Transform
 221 connect Box152.Out Box58.Transform
 222 connect Box148.Out Box57.Renderer
 223 connect Box57.BoxChange Box151.In1
 224 connect Box58.BoxChange Box151.In2
 225 connect Box11.renderer Box58.Renderer
 226 connect Box59.Widget Box121.Widget8
 227 connect Box60.Out Box61.In1
 228 connect Box60.Widget Box59.Widget1
 229 connect Box62.Out Box63.In1
 230 connect Box61.Out Box57.Opacity
 231 connect Box61.Out Box58.Opacity
 232 connect Box63.Out Box130.Opacity
 233 connect Box63.Out Box154.Opacity
 234 connect Box62.Widget Box59.Widget3
 235 connect Box11.renderer Box65.Renderer
 236 connect Box66.BoxChange Box65.BoxExecute
 237 connect Box60.BoxChange Box66.In1
 238 connect Box62.BoxChange Box66.In3
 239 connect Box67.Out Box134.In
 240 connect Box67.Out Box75.In2
 241 connect Box73.Out Box135.In3
 242 connect Box129.BoxChange Box151.In4
 243 connect Box148.Out Box51.Renderer
 244 connect Box124.BoxChange Box52.In1
 245 connect Box52.BoxChange Box51.BoxExecute
 246 connect Box66.BoxChange Box52.In4
 247 connect Box119.Out Box68.In1
 248 connect Box68.Out Box69.In
 249 connect Box69.Out Box70.FileName
 250 connect Box70.Out Box11.IPP_Correction
 251 connect Box145.Out Box72.In
 252 connect Box72.BaseName Box71.In
 253 connect Box71.Widget Box121.Widget1
 254 connect Box74.Out Box30.FileEnd
 255 connect Box71.Out Box119.I
 256 connect Box71.BoxChange Box52.In3
 257 connect Box71.BoxChange Box129.In4
 258 connect Box160.Out Box71.Selection
 259
 260 # Complex input ports
 261 input lstDirInstans Box145.In " "
 262 input StartPlane Box160.In1 " "
 263 input TitleWidget Box150.In1 " "
 264 input boxchange Box146.In " "
 265 input iPlane Box147.In " "
 266 input render3D Box148.In " "
 267 input surfExternal Box161.In " "
 268 input surfInternal Box53.In " "
 269 input TransformRefForSurface Box67.In " "
 270 input dicomExtension Box74.In " "
 271
 272 # Complex output ports
 273 output widgetControls Box126.Widget " "
 274 output widget2D Box11._widget " "
 275 output boxExecuteForRender Box151.BoxChange " "
 276
 277
 278 endefine