# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script
# - /home/davila/Creatis/C11/creatools_source/creaVtk/bbtk_creaVtk_PKG/bbs/appli/exampleHausdorffDistancePointSetFilter.bbs
# ----------------------------------

# BBTK GEditor Script
# ----------------------

include std
include itkvtk
include creaMaracasVisu
include vtk
include creaVtk
include wx
include std

author "Author ??"
description "Description ??"
category "<VOID>"

new creaMaracasVisu:ViewerNV Box02
  set Box02.nTypeView "6"

new vtk:LoadHola Box03

new creaVtk:OutputWindow Box06

new wx:LayoutSplit Box07
  set Box07.Orientation "H"
  set Box07.Proportion "30"

new wx:LayoutLine Box08

new vtk:UpdateRender Box10
  set Box10.Active "true"

new creaVtk:HausdorffDistancePointSetFilter Box13

new vtk:PolyDataToActor Box14
  set Box14.Colour "1 0 1"
  set Box14.ScalarVisibility "true"
  set Box14.ScalarVisibilityOn_NameColorArray "Distance"

new std:MultipleInputs Box15

new wx:Slider Box17
  set Box17.In "0"
  set Box17.Label "true"
  set Box17.Max "100"
  set Box17.ReactiveOnTrack "true"
  set Box17.Title "Opacity"

new std:Div Box18
  set Box18.In2 "100"

new creaVtk:ScalarsToColors Box19
  set Box19.Type "100"

new wx:LayoutLine Box21
  set Box21.Orientation "H"
  set Box21.WinTitle "Surface A"

new creaVtk:ScalarBarActor Box23
  set Box23.DisplayPosition "5 30"
  set Box23.Title "DistAtoB"

new std:ConcatStrings Box26
  set Box26.In1 "0"
  set Box26.In2 "  "

new wx:CheckBox Box27
  set Box27.In "true"
  set Box27.Title "Hausdorff"

new vtk:PolyDataToActor Box28
  set Box28.Colour "1 1 0"
  set Box28.ScalarVisibility "true"
  set Box28.ScalarVisibilityOn_NameColorArray "Distance"

new wx:Slider Box29
  set Box29.In "0"
  set Box29.Label "true"
  set Box29.Max "100"
  set Box29.ReactiveOnTrack "true"
  set Box29.Title "Opacity"

new std:Div Box30
  set Box30.In2 "100"

new wx:LayoutLine Box31
  set Box31.Orientation "H"

new wx:CheckBox Box32
  set Box32.In "true"
  set Box32.Title "Hausdorff"

new wx:LayoutTab Box33

new wx:LayoutTab Box34
  set Box34.WinTitle "Surface B"

new std:ConcatStrings Box35
  set Box35.In1 "0"
  set Box35.In2 "  "

new creaVtk:ScalarsToColors Box36
  set Box36.Type "100"

new creaVtk:ScalarBarActor Box37
  set Box37.Title "DistBtoA"

new vtk:MarchingCubes Box38
  set Box38.Value "2000"

new vtk:MarchingCubes Box39
  set Box39.Value "1550"

new wx:LayoutLine Box40

new wx:OutputText Box43
  set Box43.Title "Retative Distance A to B"

new wx:OutputText Box44
  set Box44.Title "Retative Distance B to A"

new wx:OutputText Box45
  set Box45.Title "Hausdorff Distance"

new wx:OutputText Box46

new std:MultipleInputs Box47

new std:MultipleInputs Box48


connect Box03.Out Box02.In

connect Box02.Widget Box07.Widget2

connect Box08.Widget Box07.Widget1

connect Box02.Renderer1 Box10.Renderer

connect Box15.BoxChange Box10.BoxExecute

connect Box17.Out Box18.In1

connect Box18.Out Box14.Opacity

connect Box02.Renderer1 Box14.Renderer

connect Box19.LookupTable Box14.ScalarVisibilityOn_LookupTable

connect Box17.Widget Box21.Widget3

connect Box02.Renderer1 Box23.Renderer

connect Box19.LookupTable Box23.LookupTable

connect Box17.BoxChange Box14.BoxExecute

connect Box14.BoxChange Box15.In5

connect Box13.OutA Box14.In

connect Box26.Out Box14.ScalarVisibilityOn_ScalarRange

connect Box13.RelativeDistanceAtoB Box26.In3

connect Box27.Out Box14.ScalarVisibility

connect Box27.Widget Box21.Widget4

connect Box29.Out Box30.In1

connect Box29.Widget Box31.Widget3

connect Box32.Widget Box31.Widget4

connect Box21.Widget Box33.Widget1

connect Box33.Widget Box08.Widget2

connect Box31.Widget Box34.Widget1

connect Box34.Widget Box08.Widget4

connect Box30.Out Box28.Opacity

connect Box29.BoxChange Box28.BoxExecute

connect Box28.BoxChange Box15.In7

connect Box13.RelativeDistanceBtoA Box35.In3

connect Box35.Out Box28.ScalarVisibilityOn_ScalarRange

connect Box13.OutB Box28.In

connect Box02.Renderer1 Box28.Renderer

connect Box32.Out Box28.ScalarVisibility

connect Box36.LookupTable Box28.ScalarVisibilityOn_LookupTable

connect Box36.LookupTable Box37.LookupTable

connect Box02.Renderer1 Box37.Renderer

connect Box03.Out Box38.In

connect Box03.Out Box39.In

connect Box38.Out Box13.InA

connect Box39.Out Box13.InB

connect Box40.Widget Box08.Widget7

connect Box44.Widget Box40.Widget3

connect Box13.HausdorffDistance Box45.In

connect Box13.RelativeDistanceAtoB Box43.In

connect Box13.RelativeDistanceBtoA Box44.In

connect Box45.Widget Box40.Widget5

connect Box43.Widget Box40.Widget2

connect Box46.Widget Box40.Widget1

connect Box27.Out Box23.Active

connect Box47.BoxChange Box23.BoxExecute

connect Box17.BoxChange Box47.In2

connect Box27.BoxChange Box47.In4

connect Box32.BoxChange Box48.In2

connect Box29.BoxChange Box48.In4

connect Box48.BoxChange Box37.BoxExecute

connect Box32.Out Box37.Active

connect Box27.BoxChange Box15.In2

connect Box37.BoxChange Box15.In3

connect Box23.BoxChange Box15.In1



# Complex input ports
exec Box06
exec Box07