1 # ----------------------------------
2 # - BBTKGEditor v 1.4 BBS BlackBox Script
3 # - /home/davila/Creatis/creaTools/creatools_source/bbtk/packages/vtk/bbs/appli/exampleMeasureLength.bbs
4 # ----------------------------------
7 # ----------------------
11 include creaMaracasVisu
17 author "Ricardo A Corredor"
18 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. "
22 set Box00.WinTitle "Points Widget"
23 set Box00.WinWidth "200"
26 set Box02.WinTitle "Image Viewer"
28 new CommandButton Box03
29 set Box03.Label "Evaluate length..."
30 set Box03.WinHeight "200"
31 set Box03.WinTitle "Measure Length"
32 set Box03.WinWidth "200"
34 new MeasureLength Box04
36 new PointsXYZtoVTKPoints Box05
42 new ConcatStrings Box10
44 new ConcatStrings Box11
46 new ConcatStrings Box12
48 new ImageVtkProperties Box13
54 new ConcatStrings Box16
56 new vtkImageDataPointerRelay Box17
58 new ImagesChooserDialogBox Box18
61 set Box19.Orientation "H"
62 set Box19.Proportion "30"
64 new UpdateRender Box20
65 set Box20.Active "true"
68 set Box21.Proportion "25"
73 connect Box02.Renderer1 Box00.Renderer
75 connect Box02.Point Box00.In
77 connect Box02.BoxChange Box00.BoxExecute
79 connect Box00.lstPointsX Box05.LstPointsX
81 connect Box00.lstPointsY Box05.LstPointsY
83 connect Box00.lstPointsZ Box05.LstPointsZ
85 connect Box05.Points Box04.Points
87 connect Box04.Length Box06.In
89 connect Box02.Renderer1 Box09.Renderer
91 connect Box00.lstPointsX Box10.In1
93 connect Box00.lstPointsY Box11.In1
95 connect Box11.Out Box09.lstPointY
97 connect Box10.Out Box09.lstPointX
99 connect Box00.lstPointsZ Box12.In1
101 connect Box12.Out Box09.lstPointZ
103 connect Box15.Out Box09.Transform
105 connect Box13.Spacing Box16.In1
107 connect Box17.Out Box02.In
109 connect Box17.Out Box00.Image
111 connect Box17.Out Box04.ImageData
113 connect Box17.Out Box13.In
115 connect Box02.Widget Box19.Widget2
117 connect Box16.Out Box15.Scale
119 connect Box00.BoxChange Box09.BoxExecute
121 connect Box02.Renderer1 Box20.Renderer
123 connect Box00.BoxChange Box20.BoxExecute
125 connect Box03.Widget Box22.Widget1
127 connect Box06.Widget Box22.Widget2
129 connect Box21.Widget Box19.Widget1
131 connect Box03.BoxChange Box06.BoxExecute
133 connect Box22.Widget Box21.Widget1
135 connect Box00.Widget Box21.Widget2
137 connect Box18.Out Box17.In
141 # Complex input ports