packages/vtk/bbs/appli/exampleMeasureLength.bbs

   1 # ----------------------------------
   2 # - BBTKGEditor v 1.4 BBS BlackBox Script
   3 # - /home/davila/Creatis/creaTools/creatools_source/bbtk/packages/vtk/bbs/appli/exampleMeasureLength.bbs
   4 # ----------------------------------
   5
   6 # BBTK GEditor Script
   7 # ----------------------
   8
   9 include std
  10 include itkvtk
  11 include creaMaracasVisu
  12 include wx
  13 include vtk
  14 include std
  15 include creaImageIO
  16
  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. "
  19 category "example"
  20
  21 new ShowNPoints Box00
  22   set Box00.WinTitle "Points Widget"
  23   set Box00.WinWidth "200"
  24
  25 new ViewerNV Box02
  26   set Box02.WinTitle "Image Viewer"
  27
  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"
  33
  34 new MeasureLength Box04
  35
  36 new PointsXYZtoVTKPoints Box05
  37
  38 new OutputText Box06
  39
  40 new DrawAxe3D Box09
  41
  42 new ConcatStrings Box10
  43
  44 new ConcatStrings Box11
  45
  46 new ConcatStrings Box12
  47
  48 new ImageVtkProperties Box13
  49
  50 new LoadHola Box14
  51
  52 new Transform Box15
  53
  54 new ConcatStrings Box16
  55
  56 new vtkImageDataPointerRelay Box17
  57
  58 new ImagesChooserDialogBox Box18
  59
  60 new LayoutSplit Box19
  61   set Box19.Orientation "H"
  62   set Box19.Proportion "30"
  63
  64 new UpdateRender Box20
  65   set Box20.Active "true"
  66
  67 new LayoutSplit Box21
  68   set Box21.Proportion "25"
  69
  70 new LayoutLine Box22
  71
  72
  73 connect Box02.Renderer1 Box00.Renderer
  74
  75 connect Box02.Point Box00.In
  76
  77 connect Box02.BoxChange Box00.BoxExecute
  78
  79 connect Box00.lstPointsX Box05.LstPointsX
  80
  81 connect Box00.lstPointsY Box05.LstPointsY
  82
  83 connect Box00.lstPointsZ Box05.LstPointsZ
  84
  85 connect Box05.Points Box04.Points
  86
  87 connect Box04.Length Box06.In
  88
  89 connect Box02.Renderer1 Box09.Renderer
  90
  91 connect Box00.lstPointsX Box10.In1
  92
  93 connect Box00.lstPointsY Box11.In1
  94
  95 connect Box11.Out Box09.lstPointY
  96
  97 connect Box10.Out Box09.lstPointX
  98
  99 connect Box00.lstPointsZ Box12.In1
 100
 101 connect Box12.Out Box09.lstPointZ
 102
 103 connect Box15.Out Box09.Transform
 104
 105 connect Box13.Spacing Box16.In1
 106
 107 connect Box17.Out Box02.In
 108
 109 connect Box17.Out Box00.Image
 110
 111 connect Box17.Out Box04.ImageData
 112
 113 connect Box17.Out Box13.In
 114
 115 connect Box02.Widget Box19.Widget2
 116
 117 connect Box16.Out Box15.Scale
 118
 119 connect Box00.BoxChange Box09.BoxExecute
 120
 121 connect Box02.Renderer1 Box20.Renderer
 122
 123 connect Box00.BoxChange Box20.BoxExecute
 124
 125 connect Box03.Widget Box22.Widget1
 126
 127 connect Box06.Widget Box22.Widget2
 128
 129 connect Box21.Widget Box19.Widget1
 130
 131 connect Box03.BoxChange Box06.BoxExecute
 132
 133 connect Box22.Widget Box21.Widget1
 134
 135 connect Box00.Widget Box21.Widget2
 136
 137 connect Box18.Out Box17.In
 138
 139
 140
 141 # Complex input ports
 142 exec Box19