# ----------------------------------
# - BBTKGEditor v 1.4 BBS BlackBox Script
# - /home/davila/Creatis/creaTools/creatools_source/bbtk/packages/vtk/bbs/appli/exampleMeasureLength.bbs
# ----------------------------------

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

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

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 ShowNPoints Box00
  set Box00.WinTitle "Points Widget"
  set Box00.WinWidth "200"

new ViewerNV Box02
  set Box02.WinTitle "Image Viewer"

new CommandButton Box03
  set Box03.Label "Evaluate length..."
  set Box03.WinHeight "200"
  set Box03.WinTitle "Measure Length"
  set Box03.WinWidth "200"

new MeasureLength Box04

new PointsXYZtoVTKPoints Box05

new OutputText Box06

new DrawAxe3D Box09

new ConcatStrings Box10

new ConcatStrings Box11

new ConcatStrings Box12

new ImageVtkProperties Box13

new LoadHola Box14

new Transform Box15

new ConcatStrings Box16

new vtkImageDataPointerRelay Box17

new ImagesChooserDialogBox Box18

new LayoutSplit Box19
  set Box19.Orientation "H"
  set Box19.Proportion "30"

new UpdateRender Box20
  set Box20.Active "true"

new LayoutSplit Box21
  set Box21.Proportion "25"

new LayoutLine Box22


connect Box02.Renderer1 Box00.Renderer

connect Box02.Point Box00.In

connect Box02.BoxChange Box00.BoxExecute

connect Box00.lstPointsX Box05.LstPointsX

connect Box00.lstPointsY Box05.LstPointsY

connect Box00.lstPointsZ Box05.LstPointsZ

connect Box05.Points Box04.Points

connect Box04.Length Box06.In

connect Box02.Renderer1 Box09.Renderer

connect Box00.lstPointsX Box10.In1

connect Box00.lstPointsY Box11.In1

connect Box11.Out Box09.lstPointY

connect Box10.Out Box09.lstPointX

connect Box00.lstPointsZ Box12.In1

connect Box12.Out Box09.lstPointZ

connect Box15.Out Box09.Transform

connect Box13.Spacing Box16.In1

connect Box17.Out Box02.In

connect Box17.Out Box00.Image

connect Box17.Out Box04.ImageData

connect Box17.Out Box13.In

connect Box02.Widget Box19.Widget2

connect Box16.Out Box15.Scale

connect Box00.BoxChange Box09.BoxExecute

connect Box02.Renderer1 Box20.Renderer

connect Box00.BoxChange Box20.BoxExecute

connect Box03.Widget Box22.Widget1

connect Box06.Widget Box22.Widget2

connect Box21.Widget Box19.Widget1

connect Box03.BoxChange Box06.BoxExecute

connect Box22.Widget Box21.Widget1

connect Box00.Widget Box21.Widget2

connect Box18.Out Box17.In



# Complex input ports
exec Box19