bbtk_creaVtk_PKG/bbs/appli/exampleHausdorffDistancePointSetFilter.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /home/davila/Creatis/C11/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/appli/exampleHausdorffDistancePointSetFilter.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaMaracasVisu
  12 include vtk
  13 include creaVtk
  14 include wx
  15 include std
  16
  17 author "Author ??"
  18 description "Description ??"
  19 category "<VOID>"
  20
  21 new creaMaracasVisu:ViewerNV Box02
  22   set Box02.nTypeView "6"
  23
  24 new vtk:LoadHola Box03
  25
  26 new creaVtk:OutputWindow Box06
  27
  28 new wx:LayoutSplit Box07
  29   set Box07.Orientation "H"
  30   set Box07.Proportion "30"
  31
  32 new wx:LayoutLine Box08
  33
  34 new vtk:UpdateRender Box10
  35   set Box10.Active "true"
  36
  37 new creaVtk:HausdorffDistancePointSetFilter Box13
  38
  39 new vtk:PolyDataToActor Box14
  40   set Box14.Colour "1 0 1"
  41   set Box14.ScalarVisibility "true"
  42   set Box14.ScalarVisibilityOn_NameColorArray "Distance"
  43
  44 new std:MultipleInputs Box15
  45
  46 new wx:Slider Box17
  47   set Box17.In "0"
  48   set Box17.Label "true"
  49   set Box17.Max "100"
  50   set Box17.ReactiveOnTrack "true"
  51   set Box17.Title "Opacity"
  52
  53 new std:Div Box18
  54   set Box18.In2 "100"
  55
  56 new creaVtk:ScalarsToColors Box19
  57   set Box19.Type "100"
  58
  59 new wx:LayoutLine Box21
  60   set Box21.Orientation "H"
  61   set Box21.WinTitle "Surface A"
  62
  63 new creaVtk:ScalarBarActor Box23
  64   set Box23.DisplayPosition "5 30"
  65   set Box23.Title "DistAtoB"
  66
  67 new std:ConcatStrings Box26
  68   set Box26.In1 "0"
  69   set Box26.In2 "  "
  70
  71 new wx:CheckBox Box27
  72   set Box27.In "true"
  73   set Box27.Title "Hausdorff"
  74
  75 new vtk:PolyDataToActor Box28
  76   set Box28.Colour "1 1 0"
  77   set Box28.ScalarVisibility "true"
  78   set Box28.ScalarVisibilityOn_NameColorArray "Distance"
  79
  80 new wx:Slider Box29
  81   set Box29.In "0"
  82   set Box29.Label "true"
  83   set Box29.Max "100"
  84   set Box29.ReactiveOnTrack "true"
  85   set Box29.Title "Opacity"
  86
  87 new std:Div Box30
  88   set Box30.In2 "100"
  89
  90 new wx:LayoutLine Box31
  91   set Box31.Orientation "H"
  92
  93 new wx:CheckBox Box32
  94   set Box32.In "true"
  95   set Box32.Title "Hausdorff"
  96
  97 new wx:LayoutTab Box33
  98
  99 new wx:LayoutTab Box34
 100   set Box34.WinTitle "Surface B"
 101
 102 new std:ConcatStrings Box35
 103   set Box35.In1 "0"
 104   set Box35.In2 "  "
 105
 106 new creaVtk:ScalarsToColors Box36
 107   set Box36.Type "100"
 108
 109 new creaVtk:ScalarBarActor Box37
 110   set Box37.Title "DistBtoA"
 111
 112 new vtk:MarchingCubes Box38
 113   set Box38.Value "2000"
 114
 115 new vtk:MarchingCubes Box39
 116   set Box39.Value "1550"
 117
 118 new wx:LayoutLine Box40
 119
 120 new wx:OutputText Box43
 121   set Box43.Title "Retative Distance A to B"
 122
 123 new wx:OutputText Box44
 124   set Box44.Title "Retative Distance B to A"
 125
 126 new wx:OutputText Box45
 127   set Box45.Title "Hausdorff Distance"
 128
 129 new wx:OutputText Box46
 130
 131 new std:MultipleInputs Box47
 132
 133 new std:MultipleInputs Box48
 134
 135
 136 connect Box03.Out Box02.In
 137
 138 connect Box02.Widget Box07.Widget2
 139
 140 connect Box08.Widget Box07.Widget1
 141
 142 connect Box02.Renderer1 Box10.Renderer
 143
 144 connect Box15.BoxChange Box10.BoxExecute
 145
 146 connect Box17.Out Box18.In1
 147
 148 connect Box18.Out Box14.Opacity
 149
 150 connect Box02.Renderer1 Box14.Renderer
 151
 152 connect Box19.LookupTable Box14.ScalarVisibilityOn_LookupTable
 153
 154 connect Box17.Widget Box21.Widget3
 155
 156 connect Box02.Renderer1 Box23.Renderer
 157
 158 connect Box19.LookupTable Box23.LookupTable
 159
 160 connect Box17.BoxChange Box14.BoxExecute
 161
 162 connect Box14.BoxChange Box15.In5
 163
 164 connect Box13.OutA Box14.In
 165
 166 connect Box26.Out Box14.ScalarVisibilityOn_ScalarRange
 167
 168 connect Box13.RelativeDistanceAtoB Box26.In3
 169
 170 connect Box27.Out Box14.ScalarVisibility
 171
 172 connect Box27.Widget Box21.Widget4
 173
 174 connect Box29.Out Box30.In1
 175
 176 connect Box29.Widget Box31.Widget3
 177
 178 connect Box32.Widget Box31.Widget4
 179
 180 connect Box21.Widget Box33.Widget1
 181
 182 connect Box33.Widget Box08.Widget2
 183
 184 connect Box31.Widget Box34.Widget1
 185
 186 connect Box34.Widget Box08.Widget4
 187
 188 connect Box30.Out Box28.Opacity
 189
 190 connect Box29.BoxChange Box28.BoxExecute
 191
 192 connect Box28.BoxChange Box15.In7
 193
 194 connect Box13.RelativeDistanceBtoA Box35.In3
 195
 196 connect Box35.Out Box28.ScalarVisibilityOn_ScalarRange
 197
 198 connect Box13.OutB Box28.In
 199
 200 connect Box02.Renderer1 Box28.Renderer
 201
 202 connect Box32.Out Box28.ScalarVisibility
 203
 204 connect Box36.LookupTable Box28.ScalarVisibilityOn_LookupTable
 205
 206 connect Box36.LookupTable Box37.LookupTable
 207
 208 connect Box02.Renderer1 Box37.Renderer
 209
 210 connect Box03.Out Box38.In
 211
 212 connect Box03.Out Box39.In
 213
 214 connect Box38.Out Box13.InA
 215
 216 connect Box39.Out Box13.InB
 217
 218 connect Box40.Widget Box08.Widget7
 219
 220 connect Box44.Widget Box40.Widget3
 221
 222 connect Box13.HausdorffDistance Box45.In
 223
 224 connect Box13.RelativeDistanceAtoB Box43.In
 225
 226 connect Box13.RelativeDistanceBtoA Box44.In
 227
 228 connect Box45.Widget Box40.Widget5
 229
 230 connect Box43.Widget Box40.Widget2
 231
 232 connect Box46.Widget Box40.Widget1
 233
 234 connect Box27.Out Box23.Active
 235
 236 connect Box47.BoxChange Box23.BoxExecute
 237
 238 connect Box17.BoxChange Box47.In2
 239
 240 connect Box27.BoxChange Box47.In4
 241
 242 connect Box32.BoxChange Box48.In2
 243
 244 connect Box29.BoxChange Box48.In4
 245
 246 connect Box48.BoxChange Box37.BoxExecute
 247
 248 connect Box32.Out Box37.Active
 249
 250 connect Box27.BoxChange Box15.In2
 251
 252 connect Box37.BoxChange Box15.In3
 253
 254 connect Box23.BoxChange Box15.In1
 255
 256
 257
 258 # Complex input ports
 259 exec Box06
 260 exec Box07