# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script (Complex Box)
# - /tmpEED/creaTools/creatools_source/creaMaracasVisu/bbtk/bbs/boxes/Measure3DLength_Widget.bbs
# ----------------------------------

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

define Measure3DLength_Widget creaMaracasVisu

author "Ricardo A Corredor"
description "Evaluates the sum of the Euclidean distances among the points in the list following their order. Put some points in the image using the Points Widget and the click on Evaluate Length button. "

category "example"

new vtk:vtkImageDataPointerRelay Box17

new std:MagicBox Box24

new creaMaracasVisu:ShowNPoints Box31

new wx:LayoutSplit Box32
  set Box32.Proportion "10"

new wx:LayoutTab Box33

new wx:OutputText Box34
  set Box34.Title "Units"

new wx:LayoutLine Box35

new creaMaracasVisu:DrawAxe3D Box36

new vtk:ImageVtkProperties Box38

new vtk:Transform Box39

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

new vtk:MeasureLength Box42

new vtk:PointsXYZtoVTKPoints Box43

new wx:OutputText Box13
  set Box13.Title "Voxels"


connect Box17.Out Box31.Image
connect Box34.Widget Box35.Widget1
connect Box35.Widget Box32.Widget1
connect Box31.Widget Box32.Widget2
connect Box32.Widget Box33.Widget1
connect Box24.Out Box31.Renderer
connect Box31.lstPointsY Box36.lstPointY
connect Box31.lstPointsX Box36.lstPointX
connect Box24.Out Box36.Renderer
connect Box31.lstPointsZ Box36.lstPointZ
connect Box17.Out Box38.In
connect Box39.Out Box36.Transform
connect Box38.Spacing Box39.Scale
connect Box24.Out Box41.Renderer
connect Box31.BoxChange Box41.BoxExecute
connect Box42.Length Box34.In
connect Box43.Points Box42.Points
connect Box31.lstPointsX Box43.LstPointsX
connect Box31.lstPointsY Box43.LstPointsY
connect Box31.lstPointsZ Box43.LstPointsZ
connect Box31.BoxChange Box34.BoxExecute
connect Box17.Out Box42.ImageData
connect Box31.BoxChange Box36.BoxExecute
connect Box42.LengthVoxels Box13.In
connect Box13.Widget Box35.Widget2
connect Box31.BoxChange Box13.BoxExecute

# Complex input ports
input vtkimagedata Box17.In " "
input vtkrender Box24.In " "
input point Box31.In " "
input boxexecute Box31.BoxExecute " "

# Complex output ports
output widget Box33.Widget " "

message    

endefine